将字典的值赋给组合框代码有错

枫丹白露

各位老师，请看一下我的代码，无法将字典的值赋给组合框

醉眼看尘世

是不是要这个效果？

mmwwdd

基本语句都弄不明白，建议用本地窗口调试看一下

ww87725244

1. Private Sub UserForm_Initialize() '窗体初始化
   
2. Dim d, ar, i, k
   
3. Set d = CreateObject("scripting.dictionary")
   
4. With Worksheets("数据")
   
5.     ar = .Range("c6:d" & .UsedRange.Rows.Count)
   
6.     For i = 1 To UBound(ar)
   
7.         For k = 1 To UBound(ar, 2)
   
8.             d(ar(i, k)) = ""
   
9.         Next
   
10.     Next
    
11. End With
    
12. Me.ComboBox1.List = d.keys
    
13. End Sub

复制代码

kyxfyzg

Private Sub UserForm_Initialize() '窗体初始化
    Dim myarr As Variant, mybrr As Variant, mydic As Object, i As Integer, d, n()
    myarr = Sheet2.Range("C6:C" & Range("C6").End(xlDown).Row) 'A列装入字典
    mybrr = Sheet2.Range("D6:D" & Range("D6").End(xlDown).Row) 'B列装入字典
    Set mydic = CreateObject("scripting.dictionary") '定义字典mydic As Object
    For i = 1 To UBound(myarr)
        mydic(myarr(i, 1)) = "" 'A列重复的值赋为1
    Next i
    For i = 1 To UBound(mybrr)
        mydic(mybrr(i, 1)) = ""
    Next i
    Arr = Application.Transpose(mydic.keys) '转置成一维后的值写入
    ComboBox1.List = Arr
End Sub

quqiyuan

参与一下，这两个过程改一下。。。仅供参考。。。

quqiyuan

代码如下。。。

Private Sub ComboBox1_Change()
    Dim myarr As Variant, mybrr As Variant, mydic As Object, i As Integer, d, n()
    myarr = Sheet2.Range("C6:C" & Range("C6").End(xlDown).Row) 'A列装入字典
    mybrr = Sheet2.Range("D6:D" & Range("D6").End(xlDown).Row) 'B列装入字典
    Set mydic = CreateObject("scripting.dictionary") '定义字典mydic As Object
    For i = 1 To UBound(myarr)
        mydic(myarr(i, 1)) = "" 'A列重复的值赋为1
    Next i
    For i = 1 To UBound(mybrr)
            mydic(mybrr(i, 1)) = ""
    Next i
    ComboBox1.List = mydic.keys
End Sub

'
Private Sub UserForm_Initialize() '窗体初始化
    Dim myarr As Variant, mybrr As Variant, mydic As Object, i As Integer, d, n()
    myarr = Sheet2.Range("C6:C" & Range("C6").End(xlDown).Row) 'A列装入字典
    mybrr = Sheet2.Range("D6:D" & Range("D6").End(xlDown).Row) 'B列装入字典
    Set mydic = CreateObject("scripting.dictionary") '定义字典mydic As Object
    For i = 1 To UBound(myarr)
        mydic(myarr(i, 1)) = "" 'A列重复的值赋为1
    Next i
    For i = 1 To UBound(mybrr)
            mydic(mybrr(i, 1)) = ""
    Next i
    ComboBox1.List = mydic.keys
End Sub

枫丹白露

quqiyuan 发表于 2024-7-18 11:45
参与一下，这两个过程改一下。。。仅供参考。。。

非常感谢，窗体初始化，是我错了

枫丹白露

醉眼看尘世 发表于 2024-7-18 00:45
是不是要这个效果？

非常感谢，我需要是两列并成一列 ，是一维数组，楼下的老师已经给出代码了。但还是谢谢你