Кнопка ActiveX для очистки ячеек с определенным цветом RGB

Question

Я ищу код VBA в Excel 2010, чтобы создать кнопку 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» на это число.

Вам также нужно будет сделать кнопку и назначить новый макрос на кнопку.