Question

我正在处理一个宏，我想为以下代码录制一个插件：

Selection.Replace What:="<", replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

需要新代码：如果上面的代码最终替换了<，那么单元格需要标记为黄色（colorindex=6）。哪个代码可以让我这样做？

Answer 1

可以使用replace替换格式

Dim ReplaceRange As Range
Set ReplaceRange = Selection

'define color for ReplaceFormat
With Application.ReplaceFormat.Interior
    .ColorIndex = 6
End With
'replace the format and text
ReplaceRange.Replace What:="<", replacement:=vbEmpty, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=True, FormulaVersion:=xlReplaceFormula2

VBA - 如果replacement = true，将单元格颜色更改为黄色

1 个答案: