Sut i ddidoli data colofn trwy glicio ar y pennawd yn Excel?
Gan dybio, mae gen i ystod o ddata, nawr, hoffwn ddidoli'r data yn nhrefn esgynnol neu ddisgynnol trwy glicio ar unrhyw bennawd colofn i ddangos y screenshot canlynol. Sut allech chi ddatrys y swydd hon yn Excel?
Trefnwch ddata trwy glicio ar bennawd y golofn gyda chod VBA
Trefnwch ddata trwy glicio ar bennawd y golofn gyda chod VBA
Fel rheol, yn Excel, gallwch gymhwyso'r nodwedd Trefnu i ddidoli'r data yn gyflym ac yn hawdd, ond, i ddidoli data trwy glicio ar gell yn unig, gall y cod VBA canlynol ffafrio chi.
1. Cliciwch ar y dde ar y tab dalen rydych chi am ddidoli data trwy glicio ar gell, a dewis Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:
Cod VBA: Trefnu data trwy glicio ar bennawd cell neu golofn:
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. Ac yna arbed a chau ffenestr y cod, nawr, pan fyddwch chi'n clicio ddwywaith ar unrhyw bennawd cell neu golofn o fewn yr ystod ddata, bydd y golofn yn cael ei didoli yn nhrefn esgynnol, os byddwch chi'n ei chlicio ddwywaith eto, bydd y golofn yn cael ei didoli yn disgyn ar unwaith.
Erthyglau mwy cysylltiedig:
Sut i newid gwerth y gell trwy glicio ar y gell?
Sut i hidlo data dim ond trwy glicio cynnwys celloedd yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!