|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
关键看意图,下一步的操作才是关键
这个是很多问题的结合,数组,字典,正则,循环,判断都用到了……
甚至还用到了函数
基本能用的方法都用到了,目前开来标记颜色和筛选是最实际的,不破坏原始数据又能查看选择的数据
下边做了一个代码用来筛选的
- Sub 查询()
- Application.ScreenUpdating = False '关闭刷新
- ActiveSheet.Range("$A$1:$S$5632").AutoFilter Field:=10: [a1].CurrentRegion.Interior.ColorIndex = 0
- FI = Application.InputBox("昆山", "", "昆山", Type:=2)
- If FI = False Or FI = "" Then Exit Sub
- T = Timer
- Set regx = CreateObject("vbscript.regexp")
- With regx: .Global = False: .Pattern = FI: End With
- For Each AR In [a1].CurrentRegion
- Set B = regx.Execute(AR)
- C = C + B.Count
- If B.Count > 0 Then Range(AR.Row & ":" & AR.Row).Interior.ColorIndex = 8
- Next
- CreateObject("Wscript.shell").popup FI & " 记录共计:" & C & "条" & Chr(10) & "一共用时:" & Format(Timer - T, "#0.0000") & "秒", 2, "ainiy提示!", 32
- ActiveSheet.Range("$A$1:$S$5632").AutoFilter Field:=10, Criteria1:=RGB(0, 255, 255), Operator:=xlFilterCellColor
- Application.ScreenUpdating = True
- End Sub
复制代码
有大侠能看看我发的帖子么,取自定义函数所在单元格的工作表名,有兴趣的看看…………至今还没找到方法解决!!! |
|