Jak přidat hraniční čáru níže, když se hodnota změní ve sloupci aplikace Excel?
K dispozici je seznam dat, který obsahuje opakované hodnoty, a pro lepší klasifikaci hodnot přidávám níže hraniční čáru, když se hodnota v seznamu změní, jak je znázorněno níže. V tomto článku budu mluvit o tom, jak rychle přidat hraniční čáru níže, když se hodnota změní ve sloupci aplikace Excel.
Při změně hodnoty pomocí VBA přidejte níže hraniční řádek
Při změně hodnoty pomocí VBA přidejte níže hraniční řádek
Je zřejmé, že v aplikaci Excel není žádná vestavěná funkce, která by vám pomohla přidat hraniční řádek níže, když se změní hodnota, ale mohu zavést kód VBA.
1. lis Alt + F11 kláves pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte níže uvedený kód do prázdného skriptu module.
VBA: při změně hodnoty přidejte hraniční řádek níže
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. lis F5 klíč k provedení kódu. Poté se přidají hraniční čáry níže, když se hodnota změní ve výběru A2: A.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!