Hoe kolomgegevens sorteren door op de koptekst in Excel te klikken?
Stel dat ik een reeks gegevens heb, nu zou ik de gegevens in oplopende of aflopende volgorde willen sorteren door op een kolomkop te klikken om de volgende schermafbeelding te laten zien. Hoe zou je deze klus in Excel kunnen oplossen?
Sorteer gegevens door op de kolomkop met VBA-code te klikken
Sorteer gegevens door op de kolomkop met VBA-code te klikken
Normaal gesproken kunt u in Excel de sorteerfunctie toepassen om de gegevens snel en gemakkelijk te sorteren, maar om gegevens te sorteren door gewoon op een cel te klikken, kan de volgende VBA-code u een plezier doen.
1. Klik met de rechtermuisknop op de bladtab waarop u gegevens wilt sorteren door op een cel te klikken en kies Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:
VBA-code: sorteer gegevens 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. En sla vervolgens het codevenster op en sluit het, als u nu dubbelklikt op een cel of kolomkop binnen het gegevensbereik, wordt de kolom in oplopende volgorde gesorteerd, als u er nogmaals op dubbelklikt, wordt de kolom in één keer aflopend gesorteerd.
Meer gerelateerde artikelen:
Hoe verander ik de celwaarde door op de cel te klikken?
Hoe gegevens filteren door op celinhoud in Excel te klikken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!