excelvba字典用法(ExcelVBA用字典处理多条件查询问题)

以下文章来源于VBA编程学习与实践 ,作者EH看见星光

我们今天分享的内容是使用VBA代码实现多条件查询的功能,照例举个栗子。

如下图所示,表名为“明细表”的数据是明细数据。

excelvba字典用法(ExcelVBA用字典处理多条件查询问题)(1)

再如下图所示,表名为“查询表”的数据是需要查询的数据。

excelvba字典用法(ExcelVBA用字典处理多条件查询问题)(2)

现在我们需要根据查询表的姓名和课目两个条件,在明细表中查询相关的成绩。

对于VBA来说,处理这样的问题总是有一个固定的套路,确定条件关系后,将明细数据循环装入字典,其中明细表的条件作为关键字(Key),需要查询的结果作为条目(Item),最后遍历查询表,根据提取相应的结果。

代码如下:

Sub DicFind()

Dim d As Object, arr, brr, i&, j&, k&, s$

Set d = CreateObject("scripting.dictionary")

'后期引用字典

'd.CompareMode = vbTextCompare

'不区分字母大小写

arr = Sheets("明细表").[a1].CurrentRegion

'明细数据装入数组arr

For i = 2 To UBound(arr)

'遍历数组arr,将数据装入字典,以备查询

'标题行不要,从第二行开始遍历

For j = 2 To UBound(arr, 2)

'标题列不要,从第二列开始遍历

s = arr(i, 1) & "@" & arr(1, j)

'姓名@课目是查询条件,作为字典的key值

d(s) = arr(i, j)

'成绩是查询的结果,作为字典的item

Next

Next

brr = Sheets("查询表").[a1].CurrentRegion

'查询区域的数据装入数组brr

For i = 2 To UBound(brr)

s = brr(i, 1) & "@" & brr(i, 2)

'合并查询的两个条件成为一个条件字符串,姓名@课目

For j = 3 To UBound(brr, 2)

If d.exists(s) Then

'如果字典中存在变量s

brr(i, j) = d(s)

'从字典中取s对应的条目

Else

brr(i, j) = ""

'否则返回假空

End If

Next

Next

Sheets("查询表").[a1].CurrentRegion = brr

'将数组brr放回查询区域

MsgBox "查询OK"

Set d = Nothing

'释放字典内存

End Sub

小贴士:

1,对于字典查询法来说,其实大部分情况下,并不存在多条件查询的问题,把多个条件合并成一个条件表达式,那就是单条件查询。

2,需要注意的是,该段代码区分字母大小写,也就是说“VBA”并不等同于“vba”,如果需要不区分字母大小写,取消代码中以下语句的注释。

'd.CompareMode =vbTextCompare '不区分字母大小写

3,留个练手题,使用VBA代码实现条件求和和计数。

如下图所示,根据A:B列的数据,计算D列人员的考试次数和考试成绩

excelvba字典用法(ExcelVBA用字典处理多条件查询问题)(3)

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页