|
字典有限制吗?我怎么无法将第14列放入字典?
请参见附件给予解决。
代码如下:疑问行在“注销行”中
Sub 序列号查询()
Dim d, d1
Set d = CreateObject("scripting.dictionary")
d.CompareMode = BinaryCompare '区分大小写A a
Dim x, y
Dim arr
With Sheets("一次性通过")
arr = .Range("A2").Resize(1000, 30)
For y = 1 To UBound(arr)
d(arr(y, 8)) = "设备型号:" & arr(y, 3) & Chr(10) & "自检人员:" & arr(y, 4)
'为什么将第14列放入字典就无法在B3中显示我想要的内容呢?
'd(arr(y, 14)) = "设备型号:" & arr(y, 3) & Chr(10) & "自检人员:" & arr(y, 4)
Next y
End With
ComboBox1.List = d.keys '''将字典第一列加到组合框combobox1中
Range("B3") = d(ComboBox1.Value)
End Sub
Private Sub ComboBox1_Change()
Call 序列号查询
End Sub
d(arr(y, 14)) = "设备型号:" & arr(y, 3) & Chr(10) & "自检人员:" & arr(y, 4)
改为
d(CStr(arr(y, 14))) = "设备型号:" & arr(y, 3) & Chr(10) & "自检人员:" & arr(y, 4)
|
|