填充COMBOX与值从一个细胞

-1

这就是我想要做的：填充COMBOX与值从一个细胞

单元格A1的值是：猫，鼠，狗

我想填充组合框与这些值的用户窗体所以用户可以选择Cat，Mouse或Dog。

任何帮助非常感谢，提前致谢。

来源

2016-02-20 Geoff

推荐你加入你写尝试的问题 –

任何代码，我真的不知道如何短语我的问题，所以，当我试图寻找例子他们无关我的问题。你有一些关键词可以推荐吗？ – Geoff

试试这个：

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

来源

2016-02-20 01:52:08 SincereApathy

我编辑我的答案，以更清晰的方式，允许列表扩展。 – SincereApathy

感谢SincereApathy，是的最终目标是能够调整此单元格A1中任意数量的值。 A1可以有1到100个值。 – Geoff

填充COMBOX与值从一个细胞

回答

相关问题