Hoe voeg ik een onderstaande grenslijn toe wanneer de waarde verandert in een Excel-kolom?
Er is een lijst met gegevens die herhalingswaarden bevat, en om de waarden beter te classificeren, voeg ik hieronder een grenslijn toe wanneer de waarde in de lijst verandert, zoals onderstaand screenshot. In dit artikel zal ik het hebben over hoe u hieronder snel een grenslijn kunt toevoegen wanneer de waarde verandert in een Excel-kolom.
Voeg een randlijn hieronder toe wanneer de waarde verandert met VBA
Voeg een randlijn hieronder toe wanneer de waarde verandert met VBA
Het is duidelijk dat er geen ingebouwde functie in Excel is die u kan helpen om een grenslijn hieronder toe te voegen wanneer de waarde verandert, maar er is een VBA-code die ik kan introduceren.
1. druk op Alt + F11 sleutels om in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het lege script modulee.
VBA: voeg onderstaande grenslijn toe wanneer de waarde verandert
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. druk op F5 toets om de code uit te voeren. Vervolgens zijn de randlijnen hieronder toegevoegd als de waarde verandert in de selectie A2: A.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
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!