Excel VBA编译错误列表框

我正在接近完成一个自定义的Excel工作簿。 我有一个恼人的问题，下面的代码工作，但给加载编译错误。 我试过寻找的解决scheme，但对VBA是如此新，我甚至不知道是什么可能导致这个问题。 它突出显示listbox1，但我有logging表中的listbox1。

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

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

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

创build一个全局布尔variables

 Private bDoneLoading as Boolean 

在工作簿打开函数中设置为true后，你可能有任何我这个function

 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