[已解决]ComboBox1控件

一成不变变

做了一个ComboBox1控件，想达到：当打开Excel时，控件是空，如图1，当鼠标点按控件时，形成下拉菜单，，请帮忙改改，谢谢
Sub ComboBox1_Click()
        Me.ComboBox1.List = Array(Format(Date, "yyyy年m月d日"), Format(Date - 1, "yyyy年m月d日"), Format(Date - 2, "yyyy年m月d日"), Format(Date - 3, "yyyy年m月d日"), Format(Date - 4, "yyyy年m月d日"), Format(Date - 5, "yyyy年m月d日"), Format(Date - 6, "yyyy年m月d日"))

    End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-29 10:01

Sub addListComb()
    Dim Arr(6) As String, i As Integer

    For i = 0 To UBound(Arr)
        Arr(i) = Format(Date - i, "yyyy年m月d日")
    Next i

    With Sheets(1).ComboBox1
        .List = Arr
        .AddItem "全部"
    End With
End Sub
报2.rar (24.44 KB, 下载次数: 27)

2015-12-29 09:52 上传

点击文件名下载附件


在工作簿打开事件中，好点。

跳转到最佳答案楼层

爱疯

Sub addListComb()
    Dim Arr(6) As String, i As Integer

    For i = 0 To UBound(Arr)
        Arr(i) = Format(Date - i, "yyyy年m月d日")
    Next i

    With Sheets(1).ComboBox1
        .List = Arr
        .AddItem "全部"
    End With
End Sub
报2.rar (24.44 KB, 下载次数: 27)

2015-12-29 09:52 上传

点击文件名下载附件


在工作簿打开事件中，好点。