如何將值添加到用戶窗體上的第二個列表框中

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