[已解决]求助修改提取照片代码

jds

错误：	ComboBox1提取编号1，结果编号2的也出来了
	ComboBox2提取编号2，结果编号1的也出来了

Private Sub UserForm_Initialize()
Dim i&, Myr&, d

Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a2:b" & Myr)
For i = 1 To UBound(Arr)
    d(Arr(i, 1)) = d(Arr(i, 1)) & i & ","
    d(Arr(i, 2)) = d(Arr(i, 2)) & i & ","
Next
k = d.keys

Me.ComboBox1.List = k
Me.ComboBox2.List = k
Set d = Nothing
ComboBox1.SetFocus

End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2015-8-30 17:29

若要2个不一样则
Private Sub UserForm_Initialize()
    Dim i&, Myr&, d1, d2
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    Myr = Sheet1.[a65536].End(xlUp).Row
    Arr = Sheet1.Range("a2:b" & Myr)
    For i = 1 To UBound(Arr)
        d1(Arr(i, 1)) = ""
        d2(Arr(i, 2)) = ""
    Next
    k1 = d1.keys
    k2 = d2.keys
    Me.ComboBox1.List = k1
    Me.ComboBox2.List = k2
    Set d1 = Nothing
    Set d2 = Nothing
    ComboBox1.SetFocus
End Sub

跳转到最佳答案楼层

zjdh

哪有啥编号1编号2？？
你将K数组赋值给了2个ComboBox，结果当然是一样的啦！！

zjdh

若要2个不一样则
Private Sub UserForm_Initialize()
    Dim i&, Myr&, d1, d2
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    Myr = Sheet1.[a65536].End(xlUp).Row
    Arr = Sheet1.Range("a2:b" & Myr)
    For i = 1 To UBound(Arr)
        d1(Arr(i, 1)) = ""
        d2(Arr(i, 2)) = ""
    Next
    k1 = d1.keys
    k2 = d2.keys
    Me.ComboBox1.List = k1
    Me.ComboBox2.List = k2
    Set d1 = Nothing
    Set d2 = Nothing
    ComboBox1.SetFocus
End Sub

jds

zjdh 发表于 2015-8-30 17:24
哪有啥编号1编号2？？
你将K数组赋值给了2个ComboBox，结果当然是一样的啦！！

网络不好，附件没有上去，麻烦老大您给看看

jds

zjdh 发表于 2015-8-30 17:29
若要2个不一样则
Private Sub UserForm_Initialize()
    Dim i&, Myr&, d1, d2

搞定了谢谢