isexists可以传数组查询吗_多条件查询的VBA应用方案

大家好&＃xff0c;今日推出常用“积木”过程案例分享第314期&＃xff0c;今日内容是利用字典实现三条件&＃xff0c;结果唯一查询。这些资料是提供给大家我多年经验的记录&＃xff0c;来源于我多年的实践。大家在学习VBA的时候&＃xff0c;可以把这些代码块作为一块块的积木对待&＃xff0c;平时积累&＃xff0c;用时拿来修正、组合。这就是我的“积木编程”的思想&＃xff0c;这些讲解就是我推出的“积木”方案&＃xff0c;希望大家加以利用。最近代码多是出自我的第三套教程”VBA数组与字典解决方案”。

&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61; ① &＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

Sub mynzsz_83()

Sheets("83").Select

myarr &＃61; Range("a2:f" & Range("a2").End(xlDown).Row)

Set mydic &＃61; CreateObject("Scripting.Dictionary")

For i &＃61; 1 To UBound(myarr)

If Not mydic.exists(myarr(i, 1)) Then

Set mydic(myarr(i, 1)) &＃61; CreateObject("Scripting.Dictionary")

End If

If Not mydic(myarr(i, 1)).exists(myarr(i, 2)) Then

Set mydic(myarr(i, 1))(myarr(i, 2)) &＃61; CreateObject("Scripting.Dictionary")

End If

mydic(myarr(i, 1))(myarr(i, 2))(myarr(i, 3)) &＃61; myarr(i, 4)

Next

Set myRng &＃61; Range(Cells(2, "I"), Cells(Range("I2").End(xlDown).Row, "I"))

For Each uu In myRng

Cells(uu.Row, "L") &＃61; ""

If mydic.exists(uu.Value) Then

If mydic(uu.Value).exists(Cells(uu.Row, "J").Value) Then

Cells(uu.Row, "L") &＃61; mydic(uu.Value)(Cells(uu.Row, "J").Value)(Cells(uu.Row, "K").Value)

End If

End If

Next

Set mydic &＃61; Nothing

MsgBox ("ok")

End Sub

&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;②&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;&＃61;

代码讲解&＃xff1a;

1&＃xff09; 上面的代码实现了字典的三级嵌套来完成赋值和查询的过程&＃xff1a;

Set mydic &＃61; CreateObject("Scripting.Dictionary")&＃xff1b;这是字典的最外层结构

Set mydic(myarr(i, 1)) &＃61; CreateObject("Scripting.Dictionary")&＃xff1b;将第一层字典的键值作为字典&＃xff1b;

Set mydic(myarr(i, 1))(myarr(i, 2)) &＃61; CreateObject("Scripting.Dictionary")&＃xff1a;将第二层字典的键值作为字典&＃xff0c;实现字典的嵌套。

赋值&＃xff1a;mydic(myarr(i, 1))(myarr(i, 2))(myarr(i, 3)) &＃61; myarr(i, 4)

2&＃xff09; &＃39;将数据存入数组

myarr &＃61; Range("a2:f" & Range("a2").End(xlDown).Row)

上述代码实现了数据数组装载&＃xff0c;。

3&＃xff09; For i &＃61; 1 To UBound(myarr)

&＃39;这里利用了字典的嵌套

If Not mydic.exists(myarr(i, 1)) Then

Set mydic(myarr(i, 1)) &＃61; CreateObject("Scripting.Dictionary")

End If

If Not mydic(myarr(i, 1)).exists(myarr(i, 2)) Then

Set mydic(myarr(i, 1))(myarr(i, 2)) &＃61; CreateObject("Scripting.Dictionary")

End If

&＃39;mydic的键值是字典&＃xff0c;这时字典的键值是一个一维数组

mydic(myarr(i, 1))(myarr(i, 2))(myarr(i, 3)) &＃61; myarr(i, 4)

Next

上述语句完成了字典的嵌套和赋值&＃xff0c;注意在实现嵌套的时候要分层逐步实现&＃xff0c;最后才是把数组数据赋给字典。

4&＃xff09; If mydic.exists(uu.Value) Then

If mydic(uu.Value).exists(Cells(uu.Row, "J").Value) Then

Cells(uu.Row, "L") &＃61; mydic(uu.Value)(Cells(uu.Row, "J").Value)(Cells(uu.Row, "K").Value)

End If

End If

Next

上述代码实现三层嵌套下的数据查询。

各套教程的介绍&＃xff1a;

第1套&＃xff1a;VBA代码解决方案

第2套&＃xff1a;VBA数据库解决方案

第3套&＃xff1a;VBA数组与字典解决方案

第4套&＃xff1a;VBA代码解决方案之视频

第5套&＃xff1a;VBA中类的解读和利用

第6套&＃xff1a;VBA信息获取与处理

上述教程的学习顺序&＃xff1a;1→3→2→6→5或者4→3→2→6→5。如需要可以WeChat: NZ9668或者VBA6337

分享成果&＃xff0c;随喜正能量