使用特定的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」更改爲該號碼。

您還需要製作一個按鈕並將新宏分配給按鈕。