如何更改VBA填充的文本颜色答案

【问题标题】：How to change color of text filled in by VBA如何更改VBA填充的文本颜色
【发布时间】：2021-02-23 07:26:59
【问题描述】：

我有一个代码可以根据另一列中的 LEFT 3 个符号填充空白单元格，例如：

Set xlCellA = Range("C2")
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Do Until xlCellA.Row > LastRow
If xlCellA.Value = "" Then
xlCellA.Value = Left(xlCellA.Offset(0, 2).Value, 3)
            
End If
Set xlCellA = xlCellA.Offset(1, 0)
Loop
Set xlCellA = Nothing

我希望它为新添加的文本着色以进行 vbred。在代码中如何以及在何处添加它？

【问题讨论】：

@Eduards 如果您对这门语言比较陌生，给您一个建议：您通常可以通过使用记录宏功能然后检查代码来找到一个好的解决方案/理解 VBA 对象模型。这是创建 docs.microsoft.com/en-us/office/vba/word/concepts/miscellaneous/… - 本文与 Word 相关，但 Excel 中的概念相同

标签： vba colors

【解决方案1】：

来自the comment braX：

xlCellA.Font.Color = vbRed

我的代码是这样的：

Set xlCellA = Range("C2")
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Do Until xlCellA.Row > LastRow
If xlCellA.Value = "" Then
xlCellA.Value = Left(xlCellA.Offset(0, 2).Value, 3)
xlCellA.Font.Color = vbRed
    
End If
Set xlCellA = xlCellA.Offset(1, 0)
Loop
Set xlCellA = Nothing

【讨论】：