字典中如何得到一个要查找 的值所在的行次？

wanghan519

字典不记顺序，vba自带的collection既有顺序又有hash，会不会更适合

cjc209

那你就要记录字典时候就要采取
If Not dic.exists(关键字) then
dic(关键字)=dic.count+1
End If
位置序号=dic(关键字)
这种形式

rmb_518

cjc209 发表于 2023-3-11 10:21
要想知道字典中的位置序号 就要记录字典keys的个数才能准确调出 不然就只能循环判断处于第几个位置

好的，我看看要不就给到数组里查找

liushi130

dic(cells(i,1))=cells(i,2).row行数  写入字典的时候item值写行数值就可以了

zxsea_7426

12楼正解，使用字典记录数组所在的行号就是这样来的

zjzyj

b = "AAAA"
For i = 0 To d.Count - 1
    If d.keys()(i) = b Then
        MsgBox b & "在字典中的顺序号是" & i + 1
        Exit For
    End If
Next

perfect131

办法总比困难多 ，还有很多方法可以获取 索引
WorksheetFunction.Match 会出错
instr

perfect131

1. Sub kong()
   
2.     Set dic = CreateObject("scripting.dictionary")
   
3.     dic("A") = 1
   
4.     dic("B") = 1
   
5.     dic("D") = 1
   
6.     dic("C") = 1
   
7.    
   
8.     aa = String(9, "@")   ''连接符
   
9.     bb = Len(aa)  ''连接符长度
   
10.     cc = aa & Join(dic.keys(), aa) & aa    ''字典 keys 转字符串
    
11.     dd = InStr(cc, aa & "B" & aa)  ''字典 keys 字符串 中找 B 字符串索引
    
12.     ee = dd \ bb  ''字典中 B 字符串索引
    
13.     Debug.Print ee, dic.keys()(ee)  ''字典中 B 字符串索引 ,对应索引 key
    
14. 
    
15.     If dic.exists("C") Then ''字典 keys 中找 C 字符串
    
16.         ff = Dictionaryindex(dic, "C")
    
17.         Debug.Print ff, dic.keys()(ff)  ''字典中 B 字符串索引 ,对应索引 key
    
18.         
    
19.         gg = WorksheetFunction.Match("C", dic.keys()) + 1
    
20.         Debug.Print gg, dic.keys()(gg)  ''字典中 B 字符串索引 ,对应索引 key
    
21.     End If
    
22.     If dic.exists("A") Then ''字典 keys 中找 C 字符串
    
23.         ff = Dictionaryindex(dic, "A")
    
24.         Debug.Print ff, dic.keys()(ff)  ''字典中 B 字符串索引 ,对应索引 key
    
25.         
    
26.         gg = WorksheetFunction.Match("A", dic.keys()) + 1
    
27.         Debug.Print gg, dic.keys()(gg)  ''字典中 B 字符串索引 ,对应索引 key
    
28.     End If
    
29. End Sub
    
30. '' aa 为字典 ， bb 为查找的 key
    
31. Function Dictionaryindex(ByVal aa As Object, bb)
    
32.     If TypeName(aa) <> "Dictionary" Then Exit Function
    
33.     If Not aa.exists(bb) Then Exit Function
    
34.     a = String(9, "@")   ''连接符
    
35.     B = Len(a)  ''连接符长度
    
36.     C = a & Join(aa.keys(), a) & a    ''字典 keys 转字符串
    
37.     D = InStr(C, a & bb & a)   ''字典 keys 字符串 中找 bb
    
38.     f = D \ B  ''字典中 bb 字符串索引
    
39.     Dictionaryindex = f
    
40. End Function
    

复制代码