[已解决]VBA 函数求助

HSZ6600

怎样将一行数据显示在ComboBox1.List？？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-4 11:31

Sub test()
    Dim A, j
    A = Range("a1").CurrentRegion
    With DropDowns("drop down 3")
        '删除
        For j = .ListCount To 1 Step -1
            .RemoveItem j
        Next
        '添加
        For j = 1 To UBound(A, 2)
            .AddItem A(1, j)
        Next
    End With
End Sub
1.rar (8.33 KB, 下载次数: 9)

2015-11-4 11:31 上传

点击文件名下载附件

跳转到最佳答案楼层

HSZ6600

把行月份显示在下拉列表怎样实现

爱疯

HSZ6600

爱疯 发表于 2015-11-4 10:45

能从行A1：L1选吗，不要列的，老师,VBA程序怎样实现

grf1973

1. Private Sub ComboBox1_DropButtonClick()
   
2.     Me.ComboBox1.List = Application.Transpose([a1:L1])
   
3. End Sub

复制代码

grf1973

请看附件。

爱疯

Sub test()
    Dim A, j
    A = Range("a1").CurrentRegion
    With DropDowns("drop down 3")
        '删除
        For j = .ListCount To 1 Step -1
            .RemoveItem j
        Next
        '添加
        For j = 1 To UBound(A, 2)
            .AddItem A(1, j)
        Next
    End With
End Sub
1.rar (8.33 KB, 下载次数: 9)

2015-11-4 11:31 上传

点击文件名下载附件

HSZ6600

老师，按上面的方法怎么实现不了呢，从I1：CN1每7列作为一个月份的数据区，给combox下拉list赋值不显示

爱疯

Sub test2()
    Dim A, j
    A = Range("i1:cn1")
    With DropDowns("drop down 3")
        '删除
        For j = .ListCount To 1 Step -1
            .RemoveItem j
        Next
        '添加
        For j = 1 To UBound(A, 2) Step 7
            .AddItem A(1, j)
        Next
    End With
End Sub

HSZ6600

爱疯 发表于 2015-11-4 14:50
Sub test2()
    Dim A, j
    A = Range("i1:cn1")

这个程序适用于复合框控件吗？老师