Kako dodati obrobo spodaj, ko se vrednost spremeni v stolpcu Excel?
Obstaja seznam podatkov, ki vključuje ponavljajoče se vrednosti, za boljšo razvrstitev vrednosti pa spodaj dodam mejno črto, ko se vrednost spremeni na seznamu, kot je prikazano spodaj. V tem članku bom govoril o tem, kako hitro dodati mejno črto spodaj, ko se vrednost spremeni v stolpcu Excel.
Spodaj dodajte mejno črto, ko se vrednost spremeni z VBA
Spodaj dodajte mejno črto, ko se vrednost spremeni z VBA
Očitno v Excelu ni vgrajene funkcije, ki bi vam pomagala dodati mejo spodaj, ko se vrednost spremeni, vendar lahko vnesem kodo VBA.
1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v prazen skript module.
VBA: spodaj dodajte mejno črto, ko se vrednost spremeni
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. Pritisnite F5 tipko za izvajanje kode. Nato so bile spodaj dodane mejne črte, ko se vrednost spremeni v izboru A2: A.
| Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
