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

YZC51 · 发表于 2020-1-22 20:51

excel海发表于 2020-1-22 20:23
你用lcase或者ucase把查询值和被查询值统一转换就可以了

收到。谢谢老师！

YZC51 · 发表于 2020-1-22 20:53

akk0415 发表于 2020-1-22 19:26
感谢老师，提前预祝老师新年快乐

不客气！预祝老师新春快乐！

akk0415 · 发表于 2020-1-23 16:44

YZC51 发表于 2020-1-22 20:53
不客气！预祝老师新春快乐！

老师，那个小写能查询，大写查询不了，怎么弄啊？

YZC51 · 发表于 2020-1-23 17:04

本帖最后由 YZC51 于 2020-1-28 13:18 编辑

akk0415 发表于 2020-1-23 16:44
老师，那个小写能查询，大写查询不了，怎么弄啊？

您好！请参考
If VBA.InStr(ccxx, Sheet8.Cells(2, 6).Value) Then
修改为：
If InStr(ccxx, LCase(Sheet8.Cells(2, 6).Value)) Then

满意花花，上传附件！

akk0415 · 发表于 2020-1-24 08:32

YZC51 发表于 2020-1-23 17:04
您好！请参考
If VBA.InStr(ccxx, Sheet8.Cells(2, 6).Value) Then
修改为：

老师，还是显示错误，我上传附件了，您帮我看看，谢谢

YZC51 · 发表于 2020-1-24 10:41

akk0415 发表于 2020-1-24 08:32
老师，还是显示错误，我上传附件了，您帮我看看，谢谢

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

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

YZC51 · 发表于 2020-1-24 11:14

请参考

2020成品库cs.zip (773.96 KB, 下载次数: 29)

akk0415 · 发表于 2020-1-24 14:55

YZC51 发表于 2020-1-24 11:14
请参考

谢谢老师，已经完美了，大年三十还让老师麻烦了，老师新年快乐

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

不客气！满意就好！

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

akk0415 发表于 2020-1-24 14:55
谢谢老师，已经完美了，大年三十还让老师麻烦了，老师新年快乐

祝福您新春快乐！

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

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

评分

评分

评分