Hoe sorteert u kolomgegevens door op de koptekst te klikken in Excel?
Stel dat u een gegevensbereik hebt en de gegevens nu in oplopende of aflopende volgorde wilt sorteren door op een willekeurige kolomkop te klikken, zoals in de onderstaande schermafbeelding wordt weergegeven. Hoe lost u deze taak op in Excel?
Gegevens sorteren door op kolomkop te klikken met VBA-code
Gegevens sorteren door op kolomkop te klikken met VBA-code
Normaal gesproken kunt u in Excel de functie Sorteren gebruiken om gegevens snel en eenvoudig te ordenen, maar met de volgende VBA-code kunt u gegevens sorteren door simpelweg op een cel te klikken.
1. Klik met de rechtermuisknop op het werkbladtabblad waarop u gegevens wilt sorteren, klik op een cel en kies Code weergeven in het contextmenu. Plak vervolgens in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege module:
VBA-code: Gegevens sorteren door op een cel of kolomkop te klikken:
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. Sluit daarna het codevenster met Opslaan en sluiten. Wanneer u nu dubbelklikt op een willekeurige cel of kolomkop binnen het gegevensbereik, wordt de kolom in oplopende volgorde gesorteerd; dubbelklik nogmaals om de kolom direct in aflopende volgorde te sorteren.
Meer gerelateerde artikelen:
Hoe wijzigt u de celwaarde door op de cel te klikken?
Hoe filtert u gegevens in Excel door simpelweg op de celinhoud te klikken?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins