Excel VBA编译错误列表框

Question

I'm nearing completion on a custom excel workbook. I'm having a irritating issue where the below code works but gives a compile error on load. I've tried searching for the solution but being so new to VBA I'm not even sure what could be causing the issue. It highlights listbox1 but I have listbox1 in the sheet noted.

(Compile Error "Method or Data member not found")

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

Thank You

Answer 1

It is probably due to the loading of the values into the list. Try something like this.

Create a global boolean variable

Private bDoneLoading as Boolean

Set it to true in the workbook open function after anything else you may have i this function

Private Sub Workbook_Open()

    'Any other code

    bDoneLoading = True
End Sub

Add a check to make sure the workbook has loaded.

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