奇怪的Excel单元格字体颜色格式

taller_2000

已于 2024-07-24 21:15:16 修改

阅读量2.1k

点赞数 10

分类专栏：数组 VBA 格式文章标签：字体格式字体颜色复合格式多样格式修改字体颜色

于 2024-07-24 21:13:23 首次发布

本文链接：https://blog.csdn.net/taller_2000/article/details/140673444

版权

使用VBA代码修改单元格全部字符字体颜色是个很简单的任务，例如设置A1单元格字体颜色为红色。

Range("A1").Font.Color = RGB(255, 0, 0)

有时需要修改部分字符的颜色，如下图所示，将红色字符字体颜色修改为蓝色。代码将会稍许复杂，需要使用Characters设置逐个字符的字体颜色。

在这里插入图片描述

先使用代码来读取单元格的字体颜色。

Sub CheckFontColor()
    Dim c As Range, i As Long
    Set c = Range("A1")
    For i = 1 To Len(c.Value)
        With c.Characters(i, 1).Font
            Debug.Print i, .Color
        End With
    Next
End Sub

输出如下所示，前5个字符和最后两个字符为红色。

 1             255 
 2             255 
 3             255 
 4             255 
 5             255 
 6             0 
 7             0 
 8             255 
 9             255

略加修改，逐个字符判断字体颜色，修改红色字符为蓝色。