Jak sortować dane kolumn, klikając nagłówek w programie Excel?
Przypuśćmy, że mam szereg danych, teraz chciałbym posortować dane w kolejności rosnącej lub malejącej, klikając dowolny nagłówek kolumny, aby wyświetlić poniższy zrzut ekranu. Jak możesz rozwiązać tę pracę w programie Excel?
Sortuj dane, klikając nagłówek kolumny z kodem VBA
Sortuj dane, klikając nagłówek kolumny z kodem VBA
Zwykle w programie Excel można zastosować funkcję Sortuj, aby szybko i łatwo posortować dane, ale aby posortować dane, klikając po prostu komórkę, następujący kod VBA może wyświadczyć ci przysługę.
1. Kliknij prawym przyciskiem myszy kartę arkusza, którą chcesz posortować dane, klikając komórkę, i wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic dla aplikacji w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: Sortuj dane, klikając nagłówek komórki lub kolumny:
Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub
2. A następnie zapisz i zamknij okno kodu, teraz, po dwukrotnym kliknięciu dowolnej komórki lub nagłówka kolumny w zakresie danych, kolumna zostanie posortowana w kolejności rosnącej, jeśli ponownie klikniesz dwukrotnie, kolumna zostanie posortowana malejąco.
Więcej powiązanych artykułów:
Jak zmienić wartość komórki, klikając komórkę?
Jak filtrować dane, klikając zawartość komórki w programie Excel?
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!