在单元格中显示消息框值答案

【问题标题】：Displaying Message box values in a cell在单元格中显示消息框值
【发布时间】：2018-12-12 01:25:34
【问题描述】：

我是 VBA 新手。所以发布这个问题：

要求：我想在单元格中显示我的消息框值。

例如：

下面是我的代码：

Sub Button1_Click()

    MsgBox "value of a cell is" & Worksheets("Sheet1").Range("A1")

End Sub

当我点击按钮时，它会显示单元格 A1 的值，如下所示

但我希望消息框中的值显示在任何单元格上。

假设我希望“单元格的值为 45”显示在其他单元格上。

提前致谢。

【问题讨论】：

标签： vba excel

【解决方案1】：

代替

MsgBox "value of a cell is" & Worksheets("Sheet1").Range("A1")

使用

Worksheets("Sheet1").Range("E1") = "value of a cell is " & Worksheets("Sheet1").Range("A1")

将Cell E1 更改为您想要的单元格。

【讨论】：

感谢 Mrig 的回答。但是在这里你是硬编码“单元格的值是”，但我希望它是动态的。我希望将消息框中的整个字符串拉起并放在单元格中
@NaveenVM - to be placed in the cell，您希望结果显示在哪个单元格中？
我想将消息框中的值放在同一张工作表上的单元格 B3 中。
@NaveenVM - "value of a cell is" but i want it to be dynamic 到底是什么意思？
@NaveenVM - 这就是解决方案正在做的事情。只需按照您所说的将E1 更改为B3 I want to place the value from message box in cell B3

【解决方案2】：

我必须同意@Mrig 你告诉一个 msgbox 显示什么，就像你告诉一个单元格显示什么一样。

Sub Button1_Click()
    Dim rng As Range, s As String, x As String
    Set rng = Range("A1")
    s = "value of a cell is "
    x = s & rng.Value

    MsgBox x
    Range("B3") = x
End Sub

【讨论】：