Cum se sortează datele coloanei făcând clic pe antet în Excel?
Presupunând că am o serie de date, acum aș dori să sortez datele în ordine crescătoare sau descendentă făcând clic pe orice antet de coloană pentru a afișa următoarea captură de ecran. Cum ați putea rezolva această sarcină în Excel?
Sortează datele făcând clic pe antetul coloanei cu codul VBA
Sortează datele făcând clic pe antetul coloanei cu codul VBA
În mod normal, în Excel, puteți aplica caracteristica Sortare pentru a sorta datele rapid și ușor, dar, pentru a sorta datele doar făcând clic pe o celulă, următorul cod VBA vă poate face o favoare.
1. Faceți clic dreapta pe fila de foaie pe care doriți să sortați datele făcând clic pe o celulă și alegeți Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în modulul gol:
Cod VBA: Sortează datele făcând clic pe un antet de celulă sau coloană:
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. Și apoi salvați și închideți fereastra de cod, acum, când faceți dublu clic pe orice antet de celulă sau coloană din intervalul de date, coloana va fi sortată în ordine crescătoare, dacă faceți dublu clic pe ea din nou, coloana va fi sortată descendent simultan.
Mai multe articole conexe:
Cum se schimbă valoarea celulei făcând clic pe celulă?
Cum se filtrează datele doar făcând clic pe conținutul celulei din Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!