Note: The other languages of the website are Google-translated. Back to English

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?

didoli doc trwy glicio 1

Trefnwch ddata trwy glicio ar bennawd y golofn gyda chod VBA


swigen dde glas saeth 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

didoli doc trwy glicio 2

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?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n iawn i esgyn, cliciwch ddwywaith yr 2il dro fel y nodir i ddisgyn yn gwneud dim
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio, dim byd yn digwydd, yn gwybod sut i greu modiwl yn vba, gwnaeth hynny, arbed a dim byd pan pennawd cliciwch ddwywaith. Os gwelwch yn dda trwsio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na all wneud crackerjack - peidiwch â gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Rob, Mae'r cod uchod yn gweithio'n dda yn fy Excel, a allwch chi roi llun i'ch problem yma?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
der Cod funktioniert auch gut bei mir. Allerdings würde ich gerne die oberen beiden Zeilen nicht mit sortieren, da diese die Überschriften sind.
Wie muss ich dann diesen Cod ändern?

Diolch i chi !!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ffrind,
Dyma'r VBA sydd ei angen arnoch chi:

BlnToggle Cyhoeddus Fel Boole
Is-daflen waith breifat_cyn clicio dwbl _
(Targed ByVal Fel Ystod, Canslo Fel Boole)
'Updateby Extendoffice
Dim Colofn Olaf Cyn Hir, Colofn Allwedd Cyn Hir, Rhes Olaf Cyn Hir
Dim SortRange As Range
Colofn Olaf = _
Cells.Find(Beth:="*", Ar ôl:=Ystod("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlCynt).Colofn
keyColumn = Target.Column
Os KeyColumn > LastColumn Yna Gadael Is
Application.ScreenUpdating = Anghywir
Diddymu = Gwir
LastRow = Celloedd(Rhesi.Count, keyColumn).Diwedd(xlUp).Row
Ar Ail-ddechrau Gwall Nesaf
Gosod SortRange = Target.CurrentRegion
Dim i Cyhyd
i = 2
Gosod SortRange = SortRange.Offset(i, 0)
Gosod SortRange = SortRange.Resize(SortRange.Rows.Count - i, SortRange.Columns.Count)
blnToggle = Ddim yn blnToggle
Os blnToggle = Gwir Yna
SortRange.Sort _
Allwedd 1:=Celloedd(2, Colofn allwedd), Gorchymyn1:=xlEsgynnol, Pennawd:=xlNa
arall
SortRange.Sort _
Allwedd 1:=Celloedd(2, Colofn bysell), Gorchymyn1:=xlDescending, Pennawd:=xlNa
Gorffennwch Os
Set SortRange = Dim byd
Application.ScreenUpdating = Gwir
Is-End


Os oes gennych benawdau o 3 rhes, newidiwch "i = 2" i "i = 3" yn y VBA. Gobeithio ei fod yn helpu. Cael diwrnod gwych.

Yn gywir,
Mandy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir