Come preservare le linee di griglia mentre si riempie il colore in Excel?
Come sappiamo tutti, quando riempiamo il colore di sfondo delle celle, anche le linee di griglia verranno coperte. In questo caso, come possiamo mantenere le linee di griglia mentre riempiamo il colore di sfondo nelle celle di Excel per ottenere lo screenshot mostrato di seguito?
Preservare le linee di griglia mentre si riempie il colore con il codice VBA
Preservare le linee di griglia mentre si riempie il colore con il codice VBA
Normalmente, non esiste un modo diretto per risolvere questo problema, ma qui posso presentarvi un codice VBA. Si prega di fare come segue:
1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nel riquadro sinistro Project-VBAProject, fare doppio clic su ThisWorkbook sotto VBAProject espanso, quindi copiare e incollare il seguente codice VBA nel modulo vuoto:
Codice VBA: preservare le linee di griglia mentre si riempie il colore
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. Quindi salvare e chiudere la finestra del codice; ora, quando si riempie un colore per un intervallo di celle, le linee di griglia verranno mostrate automaticamente.
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in