ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: wfchenyiting

[已解决] 实在受不了这个速度了!查找并选中指定字符单元格!

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-21 16:15 | 显示全部楼层
一把小刀闯天下 发表于 2019-1-21 14:33
'好玩而已,使用改变颜色速度会更快些,,,

Option Explicit

感谢小刀老师的持续关注和代码,确实是这样的标色是比选中的速度会快。学习了您很多的代码和思路,非常感谢!

今日小花用完了,改日送上,谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-21 16:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
一把小刀闯天下 发表于 2019-1-21 14:33
'好玩而已,使用改变颜色速度会更快些,,,

Option Explicit

需要审核,只有上图拉

TIM截图20190121161512.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-21 16:17 | 显示全部楼层
chis3 发表于 2019-1-21 16:12
樓主最主要問題都是要select
這部份太花時間

嗯嗯,是的,老师。现在来看确实选中会花更多的执行时间。谢谢您的帮助和指导!

TA的精华主题

TA的得分主题

发表于 2019-1-21 17:08 | 显示全部楼层
wfchenyiting 发表于 2019-1-21 16:04
感谢大师的指导,这个用vba代码如何实现啊?看了您的演示,是执行了标色,有同时选中符合条件的单元格么 ...

目前都没有选中的,你选中后还要做什么操作?
如果是提取数据 ,完全可以用高级筛选来做。

TA的精华主题

TA的得分主题

发表于 2019-1-21 17:20 | 显示全部楼层
条件格式
Sub Macro1()
    t = Timer
    Cells.FormatConditions.Delete
    Cells.FormatConditions.Add Type:=xlTextString, String:="昆山", TextOperator:=xlContains
    Selection.FormatConditions(1).Interior.Color = 13551615
    MsgBox "用时:" & Timer - t & " 秒!"
End Sub

TA的精华主题

TA的得分主题

发表于 2019-1-21 22:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
关键看意图,下一步的操作才是关键

这个是很多问题的结合,数组,字典,正则,循环,判断都用到了……
甚至还用到了函数
基本能用的方法都用到了,目前开来标记颜色和筛选是最实际的,不破坏原始数据又能查看选择的数据
下边做了一个代码用来筛选的
  1. Sub 查询()
  2. Application.ScreenUpdating = False '关闭刷新
  3. ActiveSheet.Range("$A$1:$S$5632").AutoFilter Field:=10: [a1].CurrentRegion.Interior.ColorIndex = 0
  4. FI = Application.InputBox("昆山", "", "昆山", Type:=2)
  5.     If FI = False Or FI = "" Then Exit Sub
  6. T = Timer
  7.     Set regx = CreateObject("vbscript.regexp")
  8.     With regx: .Global = False: .Pattern = FI: End With
  9.         For Each AR In [a1].CurrentRegion
  10.         Set B = regx.Execute(AR)
  11.         C = C + B.Count
  12.         If B.Count > 0 Then Range(AR.Row & ":" & AR.Row).Interior.ColorIndex = 8
  13.     Next
  14. CreateObject("Wscript.shell").popup FI & " 记录共计:" & C & "条" & Chr(10) & "一共用时:" & Format(Timer - T, "#0.0000") & "秒", 2, "ainiy提示!", 32
  15. ActiveSheet.Range("$A$1:$S$5632").AutoFilter Field:=10, Criteria1:=RGB(0, 255, 255), Operator:=xlFilterCellColor
  16.         Application.ScreenUpdating = True
  17. End Sub
复制代码



有大侠能看看我发的帖子么,取自定义函数所在单元格的工作表名,有兴趣的看看…………至今还没找到方法解决!!!

TA的精华主题

TA的得分主题

发表于 2019-1-22 08:04 | 显示全部楼层
要查找这么多数据,只能稍微牺牲一下速度了吧,楼主代码也不错的

TA的精华主题

TA的得分主题

发表于 2019-1-22 16:41 | 显示全部楼层
Sub Sel()
Set sh = Sheets("sheet1")
t = Timer
With sh
r = .Cells(Rows.Count, 1).End(3).Row
    .Rows("1:1").AutoFilter
    .Range("A1:BH" & r).AutoFilter Field:=3, Criteria1:="*昆山*", Operator:=xlFilterValues
    c = .Range("c2:c" & r).SpecialCells(xlCellTypeVisible).Count
     .Range("c2:c" & r).SpecialCells(xlCellTypeVisible).Font.Bold = True
     .Range("c2:c" & r).SpecialCells(xlCellTypeVisible).Font.ColorIndex = 3
     .Rows("1:1").AutoFilter
End With
Set Ws = CreateObject("wscript.shell")
Ws.popup "用时:" & Timer - t & "  记录:" & c & " 条", 2, "Notice", 64
End Sub

TA的精华主题

TA的得分主题

发表于 2019-1-22 17:31 | 显示全部楼层
如果仅仅为为标色,查找“昆山”-查找全部,设置所选单元格颜色。
或者用条件格式:
  1. Sub test()
  2. t = Timer
  3. With Range("a1").CurrentRegion.FormatConditions
  4.   .Delete
  5.   .Add Type:=xlExpression, Formula1:="=FIND(""昆山"",A1)"
  6.   .Item(1).Interior.Color = vbYellow
  7. End With
  8. MsgBox Timer - t
  9. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-23 14:32 | 显示全部楼层
05050818 发表于 2019-1-21 14:10
试试筛选呢?

Rows("1:1").Selection.AutoFilter

这几天忙的没来得及回复。谢谢老师,我试试
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 17:29 , Processed in 0.055145 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表