Hoe rasterlijnen te behouden tijdens het vullen van kleur in Excel?
Zoals we allemaal weten, worden de rasterlijnen bij het vullen van de achtergrondkleur in cellen ook bedekt, in dit geval, hoe kunnen we de rasterlijnen behouden terwijl we de achtergrondkleur in Excel-cellen vullen om de volgende schermafbeelding te laten zien.
Behoud rasterlijnen terwijl u kleur vult met VBA-code
Behoud rasterlijnen terwijl u kleur vult met VBA-code
Normaal gesproken is er voor ons geen directe manier om deze taak op te lossen, maar hier kan ik een VBA-code voor u introduceren. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Links Project-VBAProject dubbelklik op het paneel Dit Werkboek onder de uitgebreide VBA-project, kopieer en plak vervolgens de volgende VBA-code in de lege module:
VBA-code: behoud rasterlijnen tijdens het vullen van kleur
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. En sla vervolgens het codevenster op en sluit het, nu, wanneer u een kleur vult voor een reeks cellen, worden de rasterlijnen automatisch weergegeven.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
