Question

我想在Excel VBA中的一个UserForm中创建两个单独的ListBox。

通过使用以下代码创建了一个ListBox，我添加了值，但另一个显示了模糊的名称错误。

如果我将名称更改为UserForm_Initialize1()或其不接受的话。

我应该如何在同一个UserForm中向第二个ListBox（ListBox2）添加值？

Private Sub UserForm_Initialize()
    With ListBox1
        ListBox1.AddItem "MBA"
        ListBox1.AddItem "MCA"
        ListBox1.AddItem "MSC"
        ListBox1.AddItem "MECS"
        ListBox1.AddItem "CA"
    End With
End Sub

Answer 1

你的意思是下面的代码：

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "MBA"
    .AddItem "MCA"
    .AddItem "MSC"
    .AddItem "MECS"
    .AddItem "CA"
End With


With ListBox2
    .AddItem "Test 1"
    .AddItem "Test 2"
    .AddItem "Test 3"
    .AddItem "Test 4"
End With

End Sub

如何将值添加到UserForm上的第二个ListBox

1 个答案: