Скачать или смотреть Yellow Cell Filler Right Click or Double Click Excel VBA code

https://yexceltips.blogspot.com/2022/...

As an accountant I do a lot of reconciliations, matching numbers on credit and debit side by filling the cell with colour, ticking it off.
Rather than using full path to colour or even right click , left click on yellow, I written a little code, which fills cell with Yellow in this example with right click of mouse and if clicked on yellow again, clears the fill.

Code is attached to the specific sheet (tab)
Workbook must be saved as Excel Macro-Enabled Workbook, otherwise the code will disappear after closing spreadsheet
To move code to your custom spreadsheet:
Copy code below
click Alt + F11 to open Microsoft Visual Basics for Applications
Double click on sheet Yellow needs to be used (also right click - View Code)
Paste code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'to mute context menu
If Selection.Interior.Color = vbYellow Then
Selection.Interior.Color = xlNone
Else
Selection.Interior.Color = vbYellow
End If
End Sub



I found a useful tip how to limit your right click action to specific range, row, column here
https://excel.tips.net/T003070_Mouse_...

And applying it to code above here you have

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("D:E")) Is Nothing Then 'Only action for columns D:E
Cancel = True 'to mute context menu
If Selection.Interior.Color = vbYellow Then
Selection.Interior.Color = xlNone
Else
Selection.Interior.Color = vbYellow
End If
End If
End Sub


For double click replace line
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
with
Private Sub Worksheet_BeforeDoubleClickClick(ByVal Target As Range, Cancel As Boolean)


More colours
https://yexceltips.blogspot.com/2022/...



File Download