如何利用VBA为指定文本更改格式？

作者：绿色风分类：时间：2022-08-17 浏览：94

楼主
biaotiger1

Q：如何利用VBA为指定文本更改格式？比如颜色等
A：可以在VBA中利用查找替换格式的功能实现。具体如下
ALT+F11→“插入”→“模块”，在代码窗口中输入如下代码

Sub 查找并替换为带格式文本1()
Dim c As Range
For I = 6 To 300
For j = 4 To 37
Set c = Sheets("对照表").[A1:A65536].Find(Sheets("查询记录").Cells(I, j))
If Not c Is Nothing Then
clor = c.Offset(0, 1)
Sheets("查询记录").Cells(I, j).Font.ColorIndex = clor
End If
Next
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub
Sub 查找并替换为带格式文本2()
Dim c As Range
Dim I, Sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Sht = Worksheets("对照表")
For I = 2 To Sht.[a65536].End(xlUp).Row
Application.FindFormat.Clear
Application.ReplaceFormat.Font.ColorIndex = Sht.Cells(I, 2).Value
Sheets("查询记录").UsedRange.Replace What:=Sht.Cells(I, 1), Replacement:=Sht.Cells(I, 1), SearchFormat:=True, ReplaceFormat:=True
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

运行以上任意一段代码，则Sheets("查询记录")中的相应单元格中的字体颜色均按照Sheets("对照表")中的颜色设置
而在VBA中利用带格式查找替换的功能实现起来，速度要快得多

颜色1.rar

2楼
xmyjk

谢谢标题哥分享。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表