筛选目标单元格字体颜色，标记对应另一单元格字体颜色

最新推荐文章于 2024-12-27 17:15:11 发布

徐赛俊

最新推荐文章于 2024-12-27 17:15:11 发布

阅读量865

点赞数 1

文章标签： dba

本文链接：https://blog.csdn.net/weixin_47771206/article/details/131636880

版权

文章介绍了如何通过编写VBA自定义函数`AnyCellRedColor`来检查Excel中B1到AQ1范围内是否有红色字体的单元格。一旦找到红色字体，函数将返回True。然后，利用条件格式，在单元格值为1时，将字体设置为红色。用户可以通过相对引用和格式刷应用此规则到其他行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、如果你要检查范围 B1 到 AQ1 中的任意一个单元格是否为红色，你可以自定义函数 FontColorisRed 来实现。下面是修改后的代码：

打开Excel文件，按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，插入一个新的模块。右键点击项目资源管理器中的"Microsoft Excel 对象"，选择"插入" -> “模块”。
在模块中，复制粘贴以下函数代码，：

Function AnyCellRedColor(Rng As Range) As Boolean
    Dim cell As Range
    For Each cell In Rng
        If cell.Font.ColorIndex = 3 Then #这里字体颜色为红色，如果想标记为其他颜色修改对应颜色的索引号就行
            AnyCellRedColor = True
            Exit Function
        End If
    Next cell
    AnyCellRedColor = False
End Function