Question

您好我想创建一个宏，将具有特定颜色RGB（252,252,250）的所有单元格的背景颜色切换为整个工作簿中的另一种颜色RGB（217,217,217）

Answer 1

试试这个宏，

Sub colorSwitch()
Dim i As Long, j As Long
For i = 1 To Rows.Count
For j = 1 To Columns.Count
    If Cells(i, j).Interior.Color = RGB(252, 252, 250) Then
        Cells(i, j).Interior.Color = RGB(217, 217, 217)
    End If
Next j
Next i
End Sub

但这需要一段时间才能执行，因为它循环遍历工作表中的所有单元格。如果您有一个短距离会更好，您可以使用i和j变体为宏提供更快的执行速度。

Answer 2

您可以录制Replace Format的宏：

Application.FindFormat.Clear
Application.FindFormat.Interior.Color = RGB(252, 252, 250)
Application.ReplaceFormat.Clear
Application.ReplaceFormat.Interior.Color = RGB(217, 217, 217)

Cells.Replace "", "", SearchFormat:=True, ReplaceFormat:=True

CheckBox切换所有单元格的内部颜色

2 个答案: