Excel VBA输出一个特定的单元格值

我似乎无法在Excel VBA中使用这么简单的工作

我有关于单元格A1的数据

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

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

运行时错误：'1004'应用程序定义或对象定义的错误

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值