Question

我似乎无法在excel VBA中使用这么简单的东西

我有关于单元格A1的数据

Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(0, 0).Value)
End Sub

我想基本上使用msgBox输出所述数据

运行时错误：＆＃39; 1004＆＃39;应用程序定义或对象定义的错误

Answer 1

更可靠的答案是使用这样的东西：

Sub TestBox()

Dim sVal as String
sVal = ThisWorkbook.Worksheets("Sheet1").Cells(1,1).Value
'sVal = ActiveSheet.Cells(1,1).Value 
'above can be used as well, but its not 100% reliable.

Msgbox sVal

End Sub

注意我是如何显式声明我的对象而避免激活。

Answer 2

在引用整个工作表时，单元格被索引为1作为初始值（与ActiveCell.Offset相反，那些索引为0）

A1= Cells(1,1)

所以

Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(1, 1).Value)
End Sub

输出当前工作表的A1值

Excel VBA输出特定的单元格值

2 个答案: