求大神帮我做一个查询功能

akk0415 · 发表于 2020-1-19 10:02

YZC51 发表于 2020-1-19 00:25
学习老师的代码。谢谢老师！
Sub cx()
Dim arr, n, brr, i, j, k, crr, drr

老师，你的这个可以模糊查询，如我输入：SR就能查到SR内容的相关数据，但是输入sr小写的就查不到了，请问老师查询的时候输入能不分大小写吗、。

YZC51 · 发表于 2020-1-19 10:15

akk0415 发表于 2020-1-19 10:02
老师，你的这个可以模糊查询，如我输入：SR就能查到SR内容的相关数据，但是输入sr小写的就查不到了，请问 ...

ccxx = crr(i, 1) & crr(i, 2) & crr(i, 3) & crr(i, 4) & crr(i, 5)
修改为
ccxx = LCase(crr(i, 1) & crr(i, 2) & crr(i, 3) & crr(i, 4) & crr(i, 5))

YZC51 · 发表于 2020-1-19 10:37

请参考

akk0415 · 发表于 2020-1-22 18:45

YZC51 发表于 2020-1-19 10:37
请参考

老师在吗/。这个现在可以用小写查询了，可是大写的又查询不到了，还有你这个E行单元格是用函数还是VBA啊

YZC51 · 发表于 2020-1-22 19:10

akk0415 发表于 2020-1-22 18:45
老师在吗/。这个现在可以用小写查询了，可是大写的又查询不到了，还有你这个E行单元格是用函数还是VBA啊

1、E2行单元格是用函数还是VBA，都可以
2、大写的查询等再修改下发上来

YZC51 · 发表于 2020-1-22 19:13

本帖最后由 YZC51 于 2020-1-27 15:16 编辑

If VBA.InStr(ccxx, Sheet8.Cells(2, 6).Value) Then
修改为：
If InStr(ccxx, LCase(Sheet8.Cells(2, 6).Value)） Then

YZC51 · 发表于 2020-1-22 19:19

excel海发表于 2020-1-19 09:57
感谢肯定

不客气！老师的写的代码很漂亮！

akk0415 · 发表于 2020-1-22 19:26

YZC51 发表于 2020-1-22 19:10
1、E2行单元格是用函数还是VBA，都可以
2、大写的查询等再修改下发上来

感谢老师，提前预祝老师新年快乐

akk0415 · 发表于 2020-1-22 19:34

YZC51 发表于 2020-1-22 19:13
If VBA.InStr(ccxx, Sheet8.Cells(2, 6).Value) Then
修改为：
If InStr(ccxx, Sheet8.LCase(Cells(2, 6) ...

老师，提示方法和数据未找到

excel海 · 发表于 2020-1-22 20:23

YZC51 发表于 2020-1-19 10:15
ccxx = crr(i, 1) & crr(i, 2) & crr(i, 3) & crr(i, 4) & crr(i, 5)
修改为
ccxx = L ...

你用lcase或者ucase把查询值和被查询值统一转换就可以了

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

[求助] 求大神帮我做一个查询功能