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

2024-12-02 19:14:38
推荐回答(3个)
回答1:

步骤如下:

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

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


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

  4. 按F5执行代码,结果如下:


回答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

回答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