Mae gwybod sut i ddidoli ystod gan ddefnyddio VBA yn Excel yn arbed amser ac ymdrech yn ein cyfrifiadau dyddiol. Er bod Excel yn darparu cyfleuster didoli yn ddiofyn. Trwy ddefnyddio'r dull Range.Sort , rydym yn cael mynediad i sawl paramedr i ddidoli set ddata gyda mwy o opsiynau nag arfer.

Lawrlwytho Llyfr Gwaith Ymarfer<2

Lawrlwythwch y llyfr gwaith ymarfer hwn i wneud ymarfer corff tra byddwch yn darllen yr erthygl hon.

Cyflwyniad i'r Datganiad Ystod.Sort yn Excel VBA

Amcan : Didoli ystod o ddata celloedd.

Cystrawen:

mynegiant .Trefnu ( Allwedd1 , Gorchymyn1 , Allwedd2 , Math , Gorchymyn2 , Allwedd3 , Gorchymyn 3 , Pennawd , GorchymynCwsmer , MatchCase , Gogwyddiad , Dull Trefnu , Opsiwn Data1 , Opsiwn Data2 , Opsiwn Data3 )

Yma, mae'r mynegiant yn cynrychioli gwrthrych Ystod h.y., cell, rhes, colofn, neu ddetholiad o gelloedd.

Dadleuon:

Mae angen i ni ddarparu tri prif baramedr ar gyfer y dull Range.Sort . Dyma-

Allwedd – Ystod y celloedd o golofnau sengl neu luosog y mae angen i ni eu didoli.

Gorchymyn - Nodwch y drefn didoli naill ai esgynnol neu ddisgynnol.

Pennawd – Datgan a oes gan y colofnau sydd i'w didoli bennawd ai peidio.

6 Enghreifftiau i Drefnu Ystod yn Excel VBA<2

Ynyr erthygl hon, fel set ddata, byddwn yn defnyddio rhestr o enwau pobl gyda'u dyddiad geni a'u hoedran. Byddwn yn defnyddio gwahanol ddulliau i ddidoli'r set ddata. Gadewch i ni fynd trwy'r erthygl ac ymarfer i feistroli'r dulliau hyn.

1. Trefnu Amrediad Colofn Sengl Gan Ddefnyddio Excel VBA

Yn yr enghraifft hon, byddwn yn trefnu pobl o hynaf i ieuengaf . Gadewch i ni ddilyn y camau i ddefnyddio'r Ystod . Trefnu dull a fydd yn didoli y golofn Oedran yn >archeb ddisgynnol .

Camau:

• Ewch i'r Tab Datblygwr yn y Rhuban Excel i cliciwch ar y Visual Basic

Nawr, byddwn yn rhoi ein cod i trefnu ystod y golofn Oedran .

1.1 Colofn gyda Phennawd

Rhowch y cod canlynol yn y golygydd cod gweledol.

6059

Pwyswch F5 neu cliciwch y botwm Rhedeg i gweithredu y cod.

Eglurhad:<2

Yn y cod uchod, rydym yn rhoi-

Mynegiad (Range object)=Ystod("D4:D11"); y golofn oedran gyda phennawd mewn cell D4 a gwerthoedd mewn D5:D11. 3>

Allwedd = Ystod (“D4”); yr allwedd ar gyfer trefnu.

Gorchymyn= xlDisgynnol; gan ein bod eisiau didoli gwerthoedd o mwyaf i isaf rydym yn gosod y drefn ddidoli fel yn disgyn.

Pennawd =xlYes; Yn y ciplun canlynol, gallwn weld bod gan set ddata pennyn ar gyfer pob un o'r colofnau.

Colofn heb Bennawd

Rhowch y canlynol cod yn y golygydd cod gweledol.

1569

Pwyswch F5 neu cliciwch y botwm Rhedeg i gweithredu y cod.

Eglurhad:

Yn y cod uchod, rydym yn rhoi-

Mynegiant (Range object)=Ystod(“D4 :D10”); Mae gan colofn oedran heb bennyn werthoedd yn D4:D10.

Allwedd = Ystod("D4"); yr allwedd ar gyfer trefnu.

Gorchymyn= xlDisgynnol; gan ein bod eisiau didoli gwerthoedd o mwyaf i isaf rydym yn gosod y gorchymyn didoli fel yn disgyn.

Pennawd =xlNa; Yn y ciplun canlynol, gallwn weld nad oes gan y set ddata bennyn .

Cynnwys Cysylltiedig: Sut i Ddidoli Colofnau yn Excel heb Gymysgu Data (3 Ffordd)

2. Defnyddio Cod VBA i Ddidoli Amrediad Colofn Lluosog yn Excel

I ddangos didoli mewn colofnau lluosog , mae angen addasu ein set ddata ychydig. Fe wnaethom fewnosod ychydig resi newydd . Yn y set ddata a addaswyd, mae gan resi 7, 8, a 9 yr un gwerthoedd yr un ar gyfer y dyddiad geni a oed ond tri enw gwahanol . Nid yw'r enwau hyn mewn unrhyw drefn benodol o esgynnol neu ddisgynnol.

Yn yr enghraifft hon, byddwn yn trefnu'r enwau yn trefn esgynnol . Gadewch i ni redeg y cod canlynol yn y golygydd sylfaenol gweledol:

1790

Esboniad:

Yn yr uchod sgrinlun, gallwn weld bod yr oedrannau yng ngholofn D wedi'u didoli mewn yn disgyn trefn. Ychwanegwyd dau baramedr arall yn ein cod blaenorol.

Allwedd 2: =Ystod("B4") , yr allwedd i ddidoli enwau.

Gorchymyn2: =xlEsgynnol , y archeb ar gyfer byrhau enwau .

O ganlyniad, gwelwn yr enwau yn Mae rhesi 7, 8, a 9 bellach yn nhrefn yr wyddor wedi'u trefnu yn nhrefn esgynnol .

Yn y ciplun canlynol, fe wnaethom newid y gwerth y paramedr Gorchymyn2 i trefnu yr enwau yn y drefn tuag i lawr .

3>

Darllen Mwy: Sut i Ddidoli Colofnau Lluosog yn Excel (5 Dull Cyflym)

3. Cliciwch ddwywaith ar y Pennawd i Drefnu Ystod Colofn yn Excel VBA

Nid yw nodwedd didoli rhagosodedig Excel yn caniatáu didoli gwerthoedd colofn erbyn clicio ddwywaith y pennawd colofn . Ond gan ddefnyddio cod VBA gallwn wneud iddo ddigwydd. Gadewch i ni ddangos y swyddogaeth hon trwy gymhwyso'r cod canlynol.

2306

Yn y cod hwn, fe wnaethom ddefnyddio'r digwyddiad BeforeDoubleClick i analluogi'r dwbl arferol – cliciwch sef dechrau modd golygu y gell. Gyda'r digwyddiad hwnrhedeg, os byddwn yn dwbl – cliciwch ar unrhyw un o'r penawdau colofn mae'n didoli data'r golofn yn trefn esgynnol .

Darlleniadau Tebyg:

• Sut i Ychwanegu Botwm Didoli yn Excel (7 Dull)
• Trefnu Rhestr Unigryw yn Excel (10 Dull Defnyddiol)
• Sut i Ddefnyddio Swyddogaeth Didoli yn Excel VBA (8 Enghreifftiol Addas)
• Trefnu Dyblygiadau yn Excel (Colofnau a Rhesi)
• Trefnu Ar hap yn Excel ( Fformiwlâu + VBA)

Gallwn ddidoli ystod o gelloedd mewn colofn yn seiliedig ar eu lliw cefndir . I wneud hynny, mae angen ychwanegu a paramedr o'r enw SortOn sydd â gwerth xlSortOnCellColor . Er mwyn dangos y didoli, rydym yn gyntaf yn gosod lliwiau cefndir gwahanol i'r rhesi o'n set ddata .

Yna yn y sylfaenol gweledol golygydd cod copïwch y cod canlynol a gwasgwch F5 i'w redeg.

1342

Yn y ciplun canlynol, gallwn weld y set ddata wedi'i didoli ar eu lliw cefndir.

Esboniad:

• Yn yr enghraifft hon, fe enwyd y daflen waith >“ cefndir ”. Felly, yn y cod, rydyn ni'n rhoi “ cefndir ” fel ein enw taflen waith gweithredol.
• Rydym yn gosod B4 fel yr allwedd a B4:D10 fel y ystod . Bydd y cod yn didoli data yn seiliedig ar yr allwedd.
• Gan na wnaethom nodi'r paramedr pennyn , mae'r cod yn rhedeg am y rhagosodiad dim pennyn.
• Rydym yn gosod y paramedr gorchymyn fel esgynnol, felly mae'n didoli'r data o werthoedd is i uwch .

1>Darllen Mwy: Sut i Drefnu yn ôl Lliw yn Excel (4 maen prawf)

5. Cymhwyso Cod VBA i Ddidoli Ystod Colofn yn Seiliedig ar Lliw Ffont

Drwy gymhwyso cod VBA, gallwn ddidoli ein set ddata yn seiliedig ar eu lliw ffont . Yn gyntaf, mae angen i ni liwio gwahanol resi i ddarlunio'r enghraifft.

Defnyddiwch y cod isod i ddidoli'r set ddata yn seiliedig ar liw ffont .

8198

Esboniad:

• Yn hwn enghraifft, fe wnaethom enwi'r daflen waith “ fontcolor ”. Felly, yn y cod, rydyn ni'n rhoi “ fontcolor ” fel ein enw taflen waith gweithredol.
• Rydym yn gosod B4 fel yr allwedd a B4:D11 fel yr ystod . Bydd y cod yn didoli data yn seiliedig ar yr allwedd.
• Yn yr enghraifft hon, rydym hefyd wedi nodi'r paramedr pennyn fel xlYes .
• Yma, rydym yn gosod y gorchymyn paramedr fel esgynnol, felly mae'n didoli'r data o werthoedd is i uwch .
• Gwerth y paramedr SortOn yw
• Mae'r paramedr cyfeiriadedd yn dal y gwerth xlTopToBottom gan ei fod yn orfodol.
• Mae lliw i'w ddidoli mewn termau RGB sy'n mae ganddo wertho 0 i 255 .

Darllen Mwy: Sut i Drefnu Dwy Golofn yn Excel i Gyfateb (Y Ddau Union a Paru Rhannol)

6. Newid Cyfeiriadedd i Amrediad Trefnu Gan Ddefnyddio Excel VBA

Gan ddefnyddio'r cyfeiriadedd paramedr, gallwn newid y ffordd yr ydym am ddidoli data. Yn yr enghraifft hon, rydym wedi trawsnewid ein set ddata i ddidoli it yn llorweddol .

Dewch i ni roi dilyn y cod yn y golygydd sylfaenol gweledol a gwasgwch F5 i'w redeg.

2695

Yma fe wnaethom ddidoli y data yn seiliedig ar y rhes oedran mewn trefn esgynnol o chwith i dde . Yn y cod, rydym yn gosod y paramedr cyfeiriadedd fel xlSortRows .

Cynnwys Cysylltiedig: Sut i Ddidoli Colofnau Lluosog yn Awtomatig yn Excel (3 Ffordd)

Pethau i'w Cofio

• Y paramedr SortOn a ddefnyddiwyd gennym i sortio Gall ystod colofn yn seiliedig ar liw cefndir a lliw ffont gael ei ddefnyddio gan wrthrych taflen waith yn unig. Ni allwn ei ddefnyddio gyda gwrthrych ystod .
• Mae'r digwyddiad BeforeDoubleClick yn didoli data yn esgyn yn unig.

Casgliad

Nawr, rydyn ni'n gwybod sut i ddidoli ystod gan ddefnyddio VBA yn Excel. Gobeithio y byddai'n eich annog i ddefnyddio hwn yn fwy hyderus. Unrhyw gwestiynau neu awgrymiadau peidiwch ag anghofio eu rhoi yn y blwch sylwadau isod.