Hvordan tilføjes kantlinje nedenfor, når værdien ændres i en Excel-kolonne?
Der er en liste over data, der inkluderer gentagne værdier, og for bedre klassificering af værdierne tilføjer jeg en kantlinje nedenfor, når værdien ændres på listen som vist nedenstående skærmbillede. I denne artikel vil jeg tale om, hvordan man hurtigt tilføjer kantlinje nedenfor, når værdien ændres i en Excel-kolonne.
Tilføj kantlinje nedenfor, når værdien ændres med VBA
Tilføj kantlinje nedenfor, når værdien ændres med VBA
Der er naturligvis ingen indbygget funktion i Excel, der kan hjælpe dig med at tilføje kantlinje nedenfor, når værdien ændres, men der er en VBA-kode, jeg kan introducere.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenunder kode i det tomme script module.
VBA: tilføj kantlinje nedenfor, når værdien ændres
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. Trykke F5 tast for at udføre koden. Derefter er kantlinjerne blevet tilføjet nedenfor, når værdien ændres i markeringen A2: A.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
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!