Hvordan bevares gitterlinjer, mens du udfylder farve i Excel?
Som vi alle vidste, når vi udfylder baggrundsfarve til celler, dækkes gitterlinjerne også, i dette tilfælde hvordan kunne vi holde gitterlinjerne, mens vi udfylder baggrundsfarve i Excel-celler for at få vist følgende skærmbillede.
Bevar gitterlinjer, mens du udfylder farve med VBA-kode
Bevar gitterlinjer, mens du udfylder farve med VBA-kode
Normalt er der ingen direkte måde for os at løse dette job på, men her kan jeg introducere en VBA-kode til dig. Gør følgende:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. I venstre side Projekt-VBAProjekt dobbeltklik på ruden ThisWorkbook under den udvidede VBAProjekt, kopier og indsæt derefter følgende VBA-kode i det tomme modul:
VBA-kode: Bevar gitterlinjer, mens du udfylder farve
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. Og gem derefter og luk kodevinduet, når du nu udfylder en farve til en række celler, vises gitterlinjerne automatisk.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!