如何将值添加到用户窗体上的第二个列表框中

Question

我想在Excel VBA中的一个用户窗体中创建两个单独的列表框。

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

如果我将名称更改为UserForm_Initialize1()，或者它不接受它。

我该如何将值添加到第二个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