excel - 如何在简单的代码中修复“下标超出范围”错误

Question

我开始学习如何使用 VBA for Dummies 书编写 VBA 代码。我从书中复制并粘贴了这段代码，但它给了我一个错误。

你能帮忙吗？

Sub ShowValue()

    Contents = Worksheets(“Sheet1”).Range(“A1”).Value
    MsgBox Contents

End Sub

标签： excelvba

Answer 1

猜测，因为它是一个简单的宏，但是您使用的引号（假设我们在这里看到的正是您的模块/工作表代码中的内容）可能不适用于 VBA。

Sub ShowValue()
Dim contents As String
    contents = Worksheets("Sheet1").Range("A1").Value
    MsgBox (contents)
End Sub

至于@KenWhite 询问您的代码在哪里，它要么在工作表中，要么在模块中。我将以上内容放在您可以在 VBEditor 窗口中看到的工作表中。