VBA组合框

如果组合框内容既定，则在编程时写入即可：

Private Sub ComboBox1_Enter()
ComboBox1.DropDown
End Sub
Private Sub xx_Initialize()
ComboBox1.AddItem "小明"
ComboBox1.AddItem "小红"
ComboBox1.AddItem "小刚"
End Sub

如果需要在代码外随时修改组合框内容，方法如下：

如在sheet1中写入n个组合框的内容，然后可在一个模块中单独写组合框代码：

Sub 添加组合框资料(组合框名称 As Object, 数据标题 As String)
  Dim Mrg As Range
    Dim K As Integer
      Set Mrg = Sheets("Sheet1").Rows(1).Find(<span style="font-family: Arial, Helvetica, sans-serif;">数据标题</span><span style="font-family: Arial, Helvetica, sans-serif;">)</span>
        K = 0
        Do While Len(Mrg.Offset(K, 0)) <> 0
          K = K + 1
         组合框名称.AddItem Mrg.Offset(K, 0)
    Loop
End Sub

最后，在需要使用哪个组合框就在该组合框使用前初始化即可：

添加组合框资料 组合框名称, "数据标题"