Question

Excel VBA窗体控件中的复合框怎么显示sheet1中A1：A10单元格的内容

Answer 1

步骤如下：

1. Sheet1的A1:A10中有如下内容

   

2. 插入窗体，并插入一个复选框

   

   
   

3. 双击窗体，添加如下代码

   

4. 按F5执行代码，结果如下：

   
   

Answer 2

看下图：

代码如下，方便你复制粘贴：

Private Sub UserForm_Initialize()

    Dim i As Integer

    For i = 1 To 10

        ComboBox1.AddItem Sheets("sheet1").Range("a" & i)

    Next i

End Sub

追问

谢谢，怎么让它显示出来的内容自动换行呢？

追答

自动换行貌似不行，你可以考虑把组合框拉宽。

Answer 3

　　方法：
　　

　　Private Sub UserForm_Initialize()
　　Dim i As Integer
　　For i = 1 To 10
　　ComboBox1.AddItem Sheets("sheet1").Range("a" & i)
　　Next i
　　End Sub