Ciao luca9989, benvenuto nel forum.
Una macro come questa inserisce /rimuove il rosso in una qualsiasi cella del foglio tramite click sul tasto dx:
- Codice: Seleziona tutto
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex <> 3 Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
Cancel = True
End Sub
Uso: tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice, copia il codice e incollalo nel frame di dx.
Perderai pero' le funzionalita' associate normalmente al tasto dx; se questo ti da fastidio allora sostituisci la prima riga con
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)In questo modo l' operativita' dipendera' dal "doppioclick".
Fai sapere se si deve limitare questo comportamento a uno specifico intervallo di celle.
Ciao