Kako razvrstiti podatke stolpcev s klikom na glavo v Excelu?

Recimo, da imam vrsto podatkov, bi zdaj želel podatke razvrstiti v naraščajočem ali padajočem vrstnem redu s klikom na katero koli glavo stolpca, da se prikaže naslednji posnetek zaslona. Kako ste lahko rešili to nalogo v Excelu?

Razvrstite podatke s klikom na glavo stolpca s kodo VBA

Razvrstite podatke s klikom na glavo stolpca s kodo VBA

Običajno lahko v Excelu uporabite funkcijo za razvrščanje, da hitro in enostavno razvrstite podatke, če pa želite podatke razvrstiti s klikom na celico, vam lahko z naslednjo kodo VBA naredite uslugo.

1. Z desno miškino tipko kliknite jeziček lista, za katerega želite razvrstiti podatke, tako da kliknete celico, in izberite Ogled kode v priročnem meniju in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazen modul:

Koda VBA: Razvrstite podatke s klikom na glavo celice ali stolpca:

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. Nato shranite in zaprite okno kode. Ko dvokliknete katero koli glavo celice ali stolpca v obsegu podatkov, bo stolpec razvrščen po naraščajočem vrstnem redu, če ga znova kliknete, pa bo stolpec razvrščen padajoče hkrati.

Več povezanih člankov:

Kako spremeniti vrednost celice s klikom na celico?

Kako filtrirati podatke samo s klikom na vsebino celice v Excelu?