Question

VBA 实现下拉框

怎么才能把复合框弄成下拉框
就是出生年月那里，我要弄成12个月的

Answer 1

Private Sub UserForm_Layout()
    Dim i As Integer
    For i = 1 To 12
        ComboBox1.AddItem i
    Next
    ComboBox1.Text = Empty
End Sub

刚才写错了，复制到窗体模块，

追问

还是不行，下拉框没东西

追答

你把下拉框控件删除后重新放一个，我这里试了下行的吗。打开附件看看。

Answer 2

szqaly的回答没错

你下拉框没东西是因为你把代码复制到Private Sub ComboBox1_Change()

你应该直接用他的代码就可以了

如果你复制到Private Sub ComboBox1_Change()里面，那比就要改变复合框里的内容，才会生成1-12