填充COMBOX與值從一個細胞

Question

這就是我想要做的：

單元格A1的值是：貓，鼠，狗

我想填充組合框與這些值的用戶窗體所以用戶可以選擇Cat，Mouse或Dog。

任何幫助非常感謝，提前致謝。

Answer 1

試試這個：

Private Sub UserForm_Initialize() 
Dim animals() As String 
Dim i As Integer 

animals() = Split(Sheet1.Range("A1"), ", ") 

With UserForm1.ComboBox1 
    For i = 0 To Application.CountA(animals) - 1 
     .AddItem animals(i) 
    Next i 
End With 

End Sub