作者：绿色风
分类：
时间：2022-08-17
浏览：126
楼主
kevinchengcw |
Q: 如何用vba代码查找并替换工作表中指定字符为红色字体?
A: 代码如下：
- Sub test()
- Dim Rng As Range, RngStart As Range, Str$, N%
- On Error GoTo skip '设置出错跳转
- Str = InputBox("请输入要查找的内容：", "输入") '利用输入框输入要查找的内容
- If Cells.Find(Str) Is Nothing Then '如果工作表未找到要查找的内容及提示
- MsgBox "未发现要查找的内容"
- Else '如果找到则开始执行替换字体操作
- Set RngStart = Cells.Find(Str) '先取得第一个找到的单元格位置
- Set Rng = RngStart '再转赋值给处理中用的动态变量
- Do
- With Rng '因字体颜色只能设置给字符串，故将单元格格式先处理成文本（会修改公式为显示值，可通过判断不处理一些类型的单元格）
- .NumberFormatLocal = "@"
- .Value = .Text
- End With
- N = InStr(Rng.Value, Str) '取得字符串所处的第一个位置
- Do
- With Rng.Characters(InStr(N, Rng.Value, Str), Len(Str)) '修改对应位置的文本颜色为红色
- .Font.Color = vbRed
- End With
- N = InStr(N + 1, Rng.Value, Str) '提取下一个文本串的位置
- Loop While N > 0 '如果存在下一个文本串则继续循环
- Set Rng = Cells.FindNext(Rng) '转到下一个找到的文本的单元格
- Loop Until Rng = RngStart '当单元格不是初始单元格时继续循环（循环完毕后会再次回到第一个单元格，以此判断循环结束）
- End If
- skip: '出错时跳转位置
- End Sub
|
2楼
rongjun |
学习了！
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一