求大神完善一下这个查询类的vba

yjpyjpyjpyyy

2018年信息价汇总.rar (86.4 KB, 下载次数: 9)

2018-8-17 22:21 上传

点击文件名下载附件

   比如这个查询柴油  明明列表里有 但是查询不出来  求大神完善一下

LikeStudy

问题出在规格中有 “#” 符号。
因为下列这段代码的关系，这宏不允许数据中有 “#” 这个符号。

With CreateObject("VBScript.RegExp") '‘正则表达式将#----#替换掉，就只有如“1：1，3：3”这样的行号
        .Global = -1
        .Pattern = "#.*?#"
        arr1 = .Replace(arr1, ",")
End With

yjpyjpyjpyyy

0.0   有大手子能帮我修改一下嘛。

yjpyjpyjpyyy

LikeStudy 发表于 2018-8-18 01:05
问题出在规格中有 “#” 符号。
因为下列这段代码的关系，这宏不允许数据中有 “#” 这个符号。

谢谢。。不过水平不够我不晓得怎么修改才能达成能查询含有#的字符

zpy2

yjpyjpyjpyyy 发表于 2018-8-18 09:30
谢谢。。不过水平不够我不晓得怎么修改才能达成能查询含有#的字符

可以试试看看sql语句吧，select * from ...where

LikeStudy

wbk = Mid(TextBox1.Text, dhwz + 1, dhwz2) '文本框中的数去除逗号后分别循环筛选
If ecxh = 0 Then arr = Filter(R, wbk, True) Else arr = Filter(arr, wbk, True) '这里进行循环筛选
Next

1. For j = 0 To UBound(arr)
   
2. sr2 = Split(arr(j), "#")
   
3. n = UBound(sr2)
   
4. sr3 = arr(j)
   
5. For i = 2 To n - 1
   
6. sr3 = WorksheetFunction.Substitute(sr3, "#", "", 2)
   
7. Next
   
8. arr(j) = sr3
   
9. Next

复制代码

arr1 = Join(arr) '将筛选出的数组连接，以便通过正则表达式替换出只有行号的值
With CreateObject("VBScript.RegExp") '‘正则表达式将#----#替换掉，就只有如“1：1，3：3”这样的行号
        .Global = -1
        .Pattern = "#.*?#"
        arr1 = .Replace(arr1, ",")
End With

在arr1前面加这段代码。