1. 顽石财经首页
  2. 专题归档

VBA字典筛选不重复值为ComboBox下拉菜单选项赋值

在VBA中,利用字典的不重复属性,为窗体ComboBox下拉菜单选项进行赋值。

'放置位置:窗体
Private Sub UserForm_Activate()
    Dim d As Object
    Dim arr
    Dim x As Integer
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("项目信息").Range("A2:A" & Sheets("项目信息").Cells(Rows.Count, 1).End(xlUp).Row)
    For x = 1 To UBound(arr)
        d(arr(x, 1)) = ""
    Next
    ComboBox1.List() = d.keys
End Sub

本文来自用户投稿,不代表顽石财经立场;如侵犯了您的权益,请与本站联系;如若转载,请注明出处:https://www.rocknod.com/1379.html

发表评论

登录后才能评论
QR code