使用特定的RGB颜色清除单元格的ActiveX按钮

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”更改为该号码。

您还需要制作一个按钮并将新宏分配给按钮。