VBA多条件查询

61866985 · 发表于 2013-7-17 20:21

如何用VBA实现多条件查询函数LOOKUP(1,0/.....)
要求：至少有4个以上查询条件，如下表

VBA多条件查询.rar (8.08 KB, 下载次数: 401)

蓝桥玄霜 · 发表于 2013-7-17 20:51

Sub lqxs()
Dim Arr, i&, Brr, d
Set d = CreateObject("Scripting.Dictionary")
Sheet2.Activate
Arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(Arr)
x = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4)
d(x) = Arr(i, 5)
Next
Brr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
x = Brr(i, 1) & "|" & Brr(i, 2) & "|" & Brr(i, 3) & "|" & Brr(i, 4)
If d.exists(x) Then Cells(i, 5) = d(x)
Next
End Sub

复制代码

蓝桥玄霜 · 发表于 2013-7-17 20:52

请见附件。

61866985 · 发表于 2013-7-17 21:59

本帖最后由 61866985 于 2013-7-17 22:15 编辑

蓝桥玄霜发表于 2013-7-17 20:52
请见附件。

哈哈，多谢蓝桥！明白了
以前的问题也都是你教我的
现在知道了越来越多了

lcjy11185 · 发表于 2013-7-17 22:27

For i = 2 To UBound(Arr)笔误

For i = 2 To UBound(Brr)

61866985 · 发表于 2013-7-17 22:28

蓝桥玄霜发表于 2013-7-17 20:51

这是我自己修改后的，但为什么我选中E2或E3时，按Delete键后，文件会自动关闭?

VBA多条件查询修改.rar (15.9 KB, 下载次数: 398)
[code=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, i&, Brr, d
Set d = CreateObject("Scripting.Dictionary")
Sheet2.Activate
Arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(Arr)
x = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4)
d(x) = Arr(i, 5)
Next
Brr = Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)
x = Brr(1, 1) & "|" & Brr(1, 2) & "|" & Brr(1, 3) & "|" & Brr(1, 4)
If d.exists(x) Then Cells(ActiveCell.Row, 5) = d(x)
End Sub
[/code]

蓝桥玄霜 · 发表于 2013-7-18 08:25

你把代码改为工作表变化事件时，没有对单元格进行限制，导致任何一个单元格发生改变都触发此事件而出错。

lovelyg · 发表于 2014-4-26 09:01

下载学习一下

孤独裘剑 · 发表于 2014-7-26 22:58

本帖最后由孤独裘剑于 2014-7-26 23:44 编辑

蓝桥玄霜发表于 2013-7-17 20:52
请见附件。

求助多条件查询问题，代码都是从论坛中得到修改而成的，汇总表中D列是根椐A、B、C列对应“”场资料”D列数据，代码是依蓝版在本贴中代码修改加入，问题是汇总表中D列数据上移了2行，本应从第5行写入，试了几回，没办法下移这2行，求助，详见附件

采挖统计表201407.rar (34.06 KB, 下载次数: 251)

追着去学习 · 发表于 2014-7-27 00:46

回头看看学习

		自动登录	找回密码
密码			免费注册

[求助] VBA多条件查询

评分