Jak dodać linię graniczną poniżej, gdy zmienia się wartość w kolumnie Excel?
Istnieje lista danych, która zawiera powtarzające się wartości, a aby lepiej klasyfikować wartości, dodaję linię graniczną poniżej, gdy wartość zmieni się na liście, jak pokazano poniżej. W tym artykule omówię, jak szybko dodać linię graniczną poniżej, gdy wartość zmieni się w kolumnie Excel.
Dodaj linię graniczną poniżej, gdy wartość zmienia się wraz z VBA
Dodaj linię graniczną poniżej, gdy wartość zmienia się wraz z VBA
Oczywiście w programie Excel nie ma wbudowanej funkcji, która może pomóc w dodaniu linii granicznej poniżej, gdy zmienia się wartość, ale istnieje kod VBA, który mogę wprowadzić.
1. naciśnij Alt + F11 klawisze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod do pustego skryptu modułe.
VBA: dodaj linię graniczną poniżej, gdy zmienia się wartość
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. naciśnij F5 klawisz, aby wykonać kod. Następnie linie graniczne zostały dodane poniżej, gdy wartość zmienia się w zaznaczeniu A2: A.
| Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
