vba - 设置 Listindex 后 Excel 列表框不一致地没有值

Question

我有一个简单的用户窗体，其中包含两个列表框和两个文本框，其中包含当前所选列表项的值。我遇到一个奇怪的错误，加载表单时其中一个框不会填充。如果我关闭表单并再次加载它，则对面的框将不会加载。如果我第三次关闭并重新加载，则会加载第一个框，但不会再次加载第二个框。重复令人作呕的广告。

首次加载:

第二次加载:

代码应该在启动时填充两个文本框。这个错误的根源是什么？

Private Sub UserForm_Initialize()
    Dim i As Long

    For i = 1 To 4
        ListBox1.AddItem "Item A - " & i
    Next i
    ListBox1.ListIndex = 0

End Sub


Private Sub ListBox1_Change()

    Dim i As Long

    ListBox2.Clear
    For i = 1 To 3
        ListBox2.AddItem "Item B - " & i
    Next i
    ListBox2.ListIndex = 0

    TextBox1.Value = ListBox1.Value
End Sub

Private Sub ListBox2_Change()
    TextBox2.Value = ListBox2.Value
End Sub

Answer 1

这个答案来自 Yow3Ek，也来自任何人。此代码按照测试运行，没有错误或以前的问题。谢谢大家，今天我学到了一些东西。它在晴朗的情况下开火。

Private Sub UserForm_Initialize()
    Dim i As Long

    For i = 1 To 4
        Me.ListBox1.AddItem "Item A - " & i
    Next i
    Me.ListBox1.ListIndex = 0

End Sub


Private Sub ListBox1_Change()

    Dim i As Long

    Me.ListBox2.Clear
    For i = 1 To 3
        ListBox2.AddItem "Item B - " & i
    Next i
    Me.ListBox2.ListIndex = 0


    Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex)
End Sub

Private Sub ListBox2_Change()
    If Me.ListBox2.ListIndex = -1 Then Exit Sub
    Me.TextBox2.Value = Me.ListBox2.List(Me.ListBox2.ListIndex)
End Sub