Cum să păstrați liniile grilei în timp ce completați culoarea în Excel?
După cum știm cu toții, atunci când completăm culoarea de fundal în celule, liniile de grilă vor fi acoperite și în acest caz, cum am putea păstra liniile de grilă în timp ce umplem culoarea de fundal în celulele Excel pentru a afișa următoarea captură de ecran.
Păstrați liniile de grilă în timp ce completați culoarea cu codul VBA
Păstrați liniile de grilă în timp ce completați culoarea cu codul VBA
În mod normal, nu există o modalitate directă de a rezolva această treabă, dar, aici, vă pot introduce un cod VBA. Vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. In stanga Proiect-VBAProject , faceți dublu clic Acest manual de lucru sub extins Proiect VBA, apoi copiați și lipiți următorul cod VBA în modulul gol:
Cod VBA: păstrați liniile de grilă în timp ce completați culoarea
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. Și apoi salvați și închideți fereastra de cod, acum, când completați o culoare pentru o gamă de celule, liniile de grilă vor fi afișate automat.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!