Jak třídit data sloupců kliknutím na záhlaví v aplikaci Excel?

Předpokládejme, že mám řadu dat, nyní bych chtěl data seřadit vzestupně nebo sestupně kliknutím na záhlaví libovolného sloupce a zobrazit následující snímek obrazovky. Jak byste mohli vyřešit tuto práci v aplikaci Excel?

Řazení dat kliknutím na záhlaví sloupce s kódem VBA

Řazení dat kliknutím na záhlaví sloupce s kódem VBA

Za normálních okolností můžete v aplikaci Excel použít funkci řazení k rychlému a snadnému řazení dat, ale pokud chcete data seřadit pouhým kliknutím na buňku, můžete si udělat laskavost pomocí následujícího kódu VBA.

1. Klikněte pravým tlačítkem na kartu listu, kterou chcete seřadit data, kliknutím na buňku a vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Seřadit data kliknutím na záhlaví buňky nebo sloupce:

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 poté uložte a zavřete okno s kódem, nyní, když dvakrát kliknete na záhlaví buňky nebo sloupce v rámci rozsahu dat, sloupec bude seřazen vzestupně, pokud na něj dvakrát kliknete, sloupec bude seřazen sestupně najednou.

Další související články:

Jak změnit hodnotu buňky kliknutím na buňku?

Jak filtrovat data pouhým kliknutím na obsah buňky v aplikaci Excel?