请大师修改查询代码

sanson4760 · 发表于 2014-9-30 23:39

请大师修改代码：现在B3是根据表2B列输入关键字查询相应资料，能不能也可以根据表2D列输入关键字查询相应资料。谢谢大家！

liulang0808 · 发表于 2014-10-1 06:31

r = Sheets("表2").Cells(Rows.Count, 2).End(3).Row
For i = 4 To r
If InStr(Sheets("表2").Cells(i, 2).Value, Target.Value) <> 0 Then

这段代码根据需求调整吧

sanson4760 · 发表于 2014-10-1 07:51

liulang0808 发表于 2014-10-1 06:31
r = Sheets("表2").Cells(Rows.Count, 2).End(3).Row
For i = 4 To r
If InStr(Sheets(" ...

大师你好：我的意思是一次性写好代码后既可以根据表2的b列又可以根据表2的c列的关键字进行查询，而不是每次都去修改代码后进行查询的。谢谢大家！

liulang0808 · 发表于 2014-10-1 08:08

sanson4760 发表于 2014-10-1 07:51
大师你好：我的意思是一次性写好代码后既可以根据表2的b列又可以根据表2的c列的关键字进行查询，而不是每 ...

那就是增加以上代码的范围，把C列加进去
但是还需要考虑两列数据的重叠关系

sanson4760 · 发表于 2014-10-1 08:10

liulang0808 发表于 2014-10-1 08:08
那就是增加以上代码的范围，把C列加进去
但是还需要考虑两列数据的重叠关系

是增加以上代码的范围，要把C列加进去的意思。

liulang0808 · 发表于 2014-10-1 08:16

sanson4760 发表于 2014-10-1 08:10
是增加以上代码的范围，要把C列加进去的意思。

是的，但是要看看你的数据，如果加入C列是否会引起其他问题

liulang0808 · 发表于 2014-10-1 08:15

sanson4760 发表于 2014-10-1 08:10
是增加以上代码的范围，要把C列加进去的意思。

是的，但是要看看你的数据，如果加入C列是否会引起其他问题

liulang0808 · 发表于 2014-10-1 08:16

sanson4760 发表于 2014-10-1 08:10
是增加以上代码的范围，要把C列加进去的意思。

是的，但是要看看你的数据，如果加入C列是否会引起其他问题

liulang0808 · 发表于 2014-10-1 08:16

sanson4760 发表于 2014-10-1 08:10
是增加以上代码的范围，要把C列加进去的意思。

是的，但是要看看你的数据，如果加入C列是否会引起其他问题

liulang0808 · 发表于 2014-10-1 08:16

sanson4760 发表于 2014-10-1 08:10
是增加以上代码的范围，要把C列加进去的意思。

是的，但是要看看你的数据，如果加入C列是否会引起其他问题

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

最新热点 /1