数据字典可以里可以查找一对多的数据吗？

vleexhya

请教各位老师：

如果姓名为A的人，有三个，不同的分数，如何，输入A可以将三个分数都查找出来？
谢谢！

petergaod

存：
d("A")=d("A") & 分数 & ","

取：
分数s=d("A")
分数Arr=split(分数s,",")
for i=0 to ubound(分数Arr)-1
...
next

zhangcheng6688

feilanga

vleexhya

feilanga 发表于 2024-8-21 16:38

请问如何能够让查询的结果输出到对话框？

ykcbf1100

参与一下，2级字典

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.21
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = [g5].Resize(4, 2)
   
4.     [b2:b1000] = ""
   
5.     For i = 1 To UBound(arr)
   
6.         s = UCase(arr(i, 1))
   
7.         If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
   
8.         d(s)(i) = arr(i, 2)
   
9.     Next
   
10.     s = UCase([a2].Value)
    
11.     m = 1
    
12.     For Each k In d.keys
    
13.         If k = s Then
    
14.             For Each kk In d(k).keys
    
15.                 m = m + 1
    
16.                 Cells(m, 2) = d(k)(kk)
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

feilanga

vleexhya 发表于 2024-8-21 16:41
请问如何能够让查询的结果输出到对话框？

不太明白什么意思。输出结果弹窗提示可以用msgbox

vleexhya

feilanga 发表于 2024-8-21 16:51
不太明白什么意思。输出结果弹窗提示可以用msgbox

输出来形如：A的成绩有：100
                                      75
                                      60
msgbox 我输文本还行，复杂的不会做。

vleexhya

ykcbf1100 发表于 2024-8-21 16:50
参与一下，2级字典

多谢老师帮助！
如何将查找的结果输出到弹窗
输出来形如：A的成绩有：100
                                      75
                                      60