Hvordan sorteres søjledata ved at klikke på overskrift i Excel?
Antag, jeg har en række data, nu vil jeg sortere dataene i stigende eller faldende rækkefølge ved at klikke på et hvilket som helst kolonneoverskrift for at få vist følgende skærmbillede. Hvordan kunne du løse dette job i Excel?
Sorter data ved at klikke på kolonneoverskrift med VBA-kode
Sorter data ved at klikke på kolonneoverskrift med VBA-kode
Normalt kan du i Excel anvende sorteringsfunktionen til at sortere dataene hurtigt og nemt, men for at sortere data ved blot at klikke på en celle kan følgende VBA-kode gøre dig en tjeneste.
1. Højreklik på arkfanen, som du vil sortere data ved at klikke på en celle, og vælg Vis kode fra genvejsmenuen og i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:
VBA-kode: Sorter data ved at klikke på en celle- eller kolonneoverskrift:
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. Og gem derefter og luk kodevinduet, når du dobbeltklikker på en hvilken som helst celle eller kolonneoverskrift inden for dataområdet, sorteres kolonnen i stigende rækkefølge, hvis du dobbeltklikker på den igen, sorteres kolonnen faldende med det samme.
Flere relaterede artikler:
Hvordan ændres celleværdien ved at klikke på cellen?
Hvordan filtreres data bare ved at klikke på celleindhold i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!