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