ActiveX按钮用于清除具有特定RGB颜色的单元格

Question

我正在寻找Excel 2010中的VBA代码来创建一个ActiveX按钮，如果这些单元格包含特定的RGB颜色，则允许用户清除单元格的内容（但不是它们的格式）。

此外，我希望用户确认（使用消息框），他确保使用密码fir实例清除这些单元格的内容。

Answer 1

这是一些通过100个单元格的简单代码，如果颜色为红色，则清除其内容：

    Sub delete_if_red()
        For c = 1 To 10
            For r = 1 To 10
                If Cells(r, c).Interior.Color = 255 Then Cells(r, c).Value = ""
            Next r
        Next c
    End Sub

如果您想要寻找不同的颜色，我建议您录制一个宏，将单元格的背景颜色更改为该颜色，然后查看代码以获得所需颜色的索引。然后将“255”更改为该数字。

您还需要创建一个按钮并将新宏指定给按钮。