Excel - изменение шаблона ячейки, нажав на нее

Question

Я хотел бы найти код VBA, который, когда я щелкаю левой кнопкой мыши в ячейке на листе, изменяет ее на желтый.Тогда давайте скажем, что я не хотел, чтобы ячейка была желтой, я мог щелкнуть правой кнопкой мыши, и она изменилась бы обратно.Я не уверен, возможно ли это или нет.

Answer 1

Вот код, который работает:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)    
   Call ChangeCellColor(Target, 6)       
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
                                       Cancel As Boolean)
   Call ChangeCellColor(Target, xlNone)      
End Sub

Private Sub ChangeCellColor(Target As Range, CLR As Integer)    
   Selection.Interior.ColorIndex = CLR      
End Sub

Answer 2

вот код, который изменит шаблон (это полосатый серый)

With Selection.Interior
    .Pattern = xlLightUp
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
End With

когда я не знаю VBA, я иду в Excel, View, Macros, Record New Macro ..

Затем я делаю необходимые изменения в Excel, затем возвращаюсь и выключаю макрос. Наконец, я иду и смотрю макрос ... и БАМ! для меня сгенерирован код, который я ищу.