Vba：如何读取变量中单元格的值

您可以在 VBA 中使用以下语法将单元格值读入变量：

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

这个特定的宏创建一个名为CellVal 的字符串变量，然后将当前活动工作表的单元格A1的值读取到该变量中。

最后，我们使用MsgBox在消息框中显示该变量的值。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中读取变量中单元格的值

假设我们有一个 Excel 工作表，单元格A1中的值为 500：

我们可以创建以下宏来将该单元格值读入变量，然后在消息框中显示该值：

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

当我们运行这个宏时，我们会收到以下输出：

该宏显示变量的值，其中包含单元格A1中的值 500 。

请注意，如果我们愿意，我们还可以使用变量执行更复杂的计算。

例如，我们可以创建以下宏来将单元格A1的值读取到变量中，然后创建一个消息框来显示该值乘以 5：

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

当我们运行这个宏时，我们会收到以下输出：

该宏显示变量的值乘以 5，结果为 500 * 5 = 2500 。

其他资源

以下教程解释了如何在 VBA 中执行其他常见操作：

VBA：如何设置另一个工作表中单元格的值
VBA：如何从另一个工作表获取单元格的值
VBA：如何选择活动单元格中的范围