[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

5元,EXCEL中关键字标红

EXCEL单元格关键词一小段标红
毕竟没有老师教,自学很痛苦的

钱太少,只能给个思路
  1. Dim Rng As Range, RngStart As Range, Str$, N%
  2. On Error GoTo skip  '设置出错跳转
  3. Str = InputBox("请输入要查找的内容:", "输入")  '利用输入框输入要查找的内容
  4. If Cells.Find(Str) Is Nothing Then  '如果工作表未找到要查找的内容及提示
  5.     MsgBox "未发现要查找的内容"
  6. Else    '如果找到则开始执行替换字体操作
  7.     Set RngStart = Cells.Find(Str)  '先取得第一个找到的单元格位置
  8.     Set Rng = RngStart  '再转赋值给处理中用的动态变量
  9.     Do
  10.         With Rng    '因字体颜色只能设置给字符串,故将单元格格式先处理成文本(会修改公式为显示值,可通过判断不处理一些类型的单元格)
  11.             .NumberFormatLocal = "@"
  12.             .Value = .Text
  13.         End With
  14.         N = InStr(Rng.Value, Str)   '取得字符串所处的第一个位置
  15.         Do
  16.             With Rng.Characters(InStr(N, Rng.Value, Str), Len(Str)) '修改对应位置的文本颜色为红色
  17.                 .Font.Color = vbRed
  18.             End With
  19.             N = InStr(N + 1, Rng.Value, Str)    '提取下一个文本串的位置
  20.         Loop While N > 0    '如果存在下一个文本串则继续循环
  21.         Set Rng = Cells.FindNext(Rng)   '转到下一个找到的文本的单元格
  22.     Loop Until Rng = RngStart   '当单元格不是初始单元格时继续循环(循环完毕后会再次回到第一个单元格,以此判断循环结束)
  23. End If
  24. skip:       '出错时跳转位置
  25. End Sub
复制代码

TOP

回复 3# flashercs


    大神怎么修改成整个工作表,其它的地方也要
毕竟没有老师教,自学很痛苦的

TOP

回复 2# slimay


    还是能解决一部分,发下支付宝账号
毕竟没有老师教,自学很痛苦的

TOP

[attach]13141[/attach]
微信:flashercs
QQ:49908356

TOP

回复 5# flashercs


    红包发你微信上了
毕竟没有老师教,自学很痛苦的

TOP

回复 6# 朱科技


    单元格内是公式得出来的结果,运行后部分显示不对,不利用文本粘贴运行代码结果就对,但我不想另外在粘贴成文本在另外运行
毕竟没有老师教,自学很痛苦的

TOP

返回列表