无法从 Cells excel VBA 中检索值

Question

我正在尝试从另一个工作表激活工作表并在 excel 的消息框中显示单元格值，但是每当我运行它时，都会出现下标错误，说下标超出范围。

我的代码：

Sub Home()
Dim tbValue As String
tbValue = Worksheets("Home").TextBox1.Value

Worksheets(tbValue).Activate

MsgBox Cells(7,1).Value


End Sub

有人知道为什么下标超出范围吗？谢谢

Answer 1

下标超出范围，因为找不到工作表名称。这可能发生在两个Worksheet(...) 行代码中。

1. Worksheets("Home") 可能会返回下标错误，因为您的活动工作簿可能不是您的主工作表所在的工作簿；

2. Worksheets(tbValue) 可能会因第一个原因而失败，因为 tbValue 可能与确切的工作表名称不匹配。

第一个解决方案可能是确保正确的书处于活动状态：

Sub Home()
   Dim tbValue As String
   Workbooks("your_workbook_name.xlsm").Activate
   tbValue = ThisWorkbook.Worksheets("Home").TextBox1.Value
   Worksheets(tbValue).Activate
   MsgBox Cells(7,1).Value
End Sub

更好的解决方案是避免激活工作表和书籍并使用完全合格的对象。如果您的宏与主页表在同一本书中：

Sub Home()
    Dim tbValue As String
    tbValue = ThisWorkbook.Worksheets("Home").TextBox1.Value
    MsgBox ThisWorkbook.Worksheets(tbValue).Cells(7,1)
End Sub

您也可以将Worksheets("Home") 替换为VBA 为工作表分配的名称，可能是Sheet1（您可以在IDE 中检查此名称）。

Answer 2

代码看起来可行，但是，尝试顶部的With/ End with 和Option Explicit，它可能会起作用。此外，可能是 .Cells(7,1) 是错误或什么的。无论如何，再试一次：

Option Explicit

Sub Home()
    Dim tbValue As String
    tbValue = trim(Worksheets("Home").TextBox1.text)

    with worksheets(tbValue)
        MsgBox .Cells(7,1)
    end with

End Sub

cmets 中Trim 的想法也不错。 更进一步，请使用TextBox1.Text。在这里查看更多 - Distinction between using .text and .value in VBA Access