Excel VBA编译错误列表框

Question

我的自定义Excel工作簿即将完成。 我遇到了一个令人烦恼的问题，以下代码可以工作，但在加载时出现编译错误。 我曾尝试寻找解决方案，但对于VBA还是那么陌生，我什至不知道是什么原因引起的。 它突出显示了listbox1，但是我在工作表中有listbox1。

（编译错误“未找到方法或数据成员”）

Private Sub ListBox1_Click()
Sheet2.TextBox1.Value = " "
Dim i As Long
i = Sheet2.ListBox1.ListIndex
If i < -1 Then Exit Sub
Sheet2.TextBox1.Value = Sheet1.Range("C" & (i + 4))
End Sub

谢谢

Answer 1

这可能是由于将值加载到列表中所致。 尝试这样的事情。

创建一个全局布尔变量

Private bDoneLoading as Boolean

在工作簿打开功能中将其设置为true以后，您可能需要此功能

Private Sub Workbook_Open()

    'Any other code

    bDoneLoading = True
End Sub

添加检查以确保工作簿已加载。

Private Sub ListBox1_Click()

    If bDoneLoading = false Then
        Exit sub
    End If

    Sheet2.TextBox1.Value = " "
    Dim i As Long
    i = Sheet2.ListBox1.ListIndex
    If i < -1 Then Exit Sub
    Sheet2.TextBox1.Value = Sheet1.Range("C" & (i + 4))
End Sub