Come fare per mantenere visibili le linee della griglia quando si applica un colore di riempimento in Excel?
Come ben sappiamo, quando applichiamo il riempimento con un colore di sfondo alle celle, le linee della griglia vengono nascoste. In questo caso, come possiamo mantenere visibili le linee della griglia pur applicando il riempimento colorato alle celle in Excel, per ottenere un risultato come nell’immagine seguente?
Conserva le linee della griglia durante Colore di riempimento con codice VBA
Conserva le linee della griglia durante Colore di riempimento con codice VBA
Di solito non esiste un metodo diretto per risolvere questo problema, ma posso proporvi una soluzione basata su codice VBA. Seguite questi passaggi:
1. Tenete premuto ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nel riquadro sinistro Progetto - VBAProject, fate doppio clic su QuestoWorkbook sotto il nodo espanso VBAProject, quindi copiate e incollate il seguente codice VBA nel modulo vuoto:
Codice VBA: conserva le linee della griglia durante Colore di riempimento
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. Chiudete quindi la finestra del codice: da questo momento, ogni volta che applicherete un colore a un intervallo di celle, le linee della griglia verranno visualizzate automaticamente.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi