Tabl cynnwys
Wrth weithio gyda VBA yn Excel, yn aml mae'n rhaid i ni gydgatenu llinyn(nau) a newidyn(au) mewn taflen waith. Defnyddir llinyn(nau) cydgatenu a newidyn(au) yn eang ym mron pob sector yn ein gwaith, gan ddechrau o grynhoi canlyniadau myfyrwyr i ddadansoddi busnes cymhleth. Yn yr erthygl hon, byddaf yn dangos i chi sut y gallwch chi gydgatenu llinyn (au) a newidyn (au) mewn taflen waith gyda VBA yn Excel. Egluraf y pethau gydag enghreifftiau a darluniau cywir.
Llinyn(iau) Cydgadwyn a Newidyn(au) yn Excel VBA (Gweld Cyflym)
Lawrlwythwch Gweithlyfr Ymarfer
Lawrlwythwch y gweithlyfr ymarfer hwn i wneud ymarfer corff tra byddwch yn darllen yr erthygl hon.
Llinyn Cydgadwyn a Newidyn.xlsm
Llinynnol (au) cydgadwyn a Newidyn(au) yn Excel VBA (Dadansoddiad Cam wrth Gam)
Yn gyntaf oll, gadewch i ni weld sut y gallwn gydgatenate llinyn(s) a newidyn(au) yn VBA gam wrth gam.
⧪ Llinyn(au) Cydgadwynu:
I gydgadwynu dau linyn neu fwy yn VBA , gallwch ddefnyddio'r symbol rhifyddol adiad (+) a'r symbol ampersa (& ).
Er enghraifft, i gydgadwynu y llinynnau "Disgwyliadau Mawr" a "Stori Dwy Ddinas" gyda coma , gallwch ddefnyddio:
9681
Neu,
2279
Rhedwch unrhyw un o'r codau uchod. Bydd yn dangos yr allbwn concatenated, Disgwyliadau Mawr,Chwedl Dwy Ddinas .
⧪ Newidyn(au) Cydgadwynu
Os yw'r holl newidynnau'n cynnwys gwerthoedd llinynnol, yna gallwch ddefnyddio'r symbol rhifyddol adiad (+) a'r symbol ampera (&) .
Ond os nad ydyn nhw, yna gallwch chi ddefnyddio dim ond y symbol ampersand (&) i gydgadwynu.
Er enghraifft, Gadewch i ni gael dau newidyn, A a B .
MaeA yn cynnwys llinyn, "Stori Dwy Ddinas" , a B yn cynnwys llinyn arall, "Deugain Rheol Cariad" .
Gallwch ddefnyddio'r symbol ychwanegiad (+) a'r symbol ampera (&) i'w cydgadwynu.
9864
Neu,
4655
Yn y ddau achos, byddant yn dychwelyd y llinyn cydgadwynedig.
<0
Ond os yw A yn llinyn ( " Chwedl Dwy Ddinas" ) a B yn gyfanrif ( 27 ), rhaid i chi ddefnyddio'r symbol ampersa (&) i gydgadwynu.
4178
Bydd yn dychwelyd yr allbwn cydgadwynedig .
Enghreifftiau i'w Concat enate Llinynnau a Newidynnau yn Excel VBA (Yn cynnwys Macro, UDF, a Ffurflen Defnyddiwr)
Rydym wedi dysgu concatenate llinyn (au) a newidyn (au) gyda VBA yn Excel . Y tro hwn byddwn yn archwilio rhai enghreifftiau sy'n cynnwys cydgatenu llinyn(nau) a newidyn(iau) gyda VBA .
Enghraifft 1: Datblygu llinyn(nau) Macro i Gydgatenu a newidyn (au) yn Excel VBA
Rydym wedi dysgu gwneudconcatenate llinynnau a newidynnau gyda VBA . Y tro hwn byddwn yn datblygu Macro i gydgadwynu llinynnau a newidynnau o golofnau lluosog mewn taflen waith.
Yma mae gennym set ddata gyda enwau llyfr , awduron , a prisiau rhai o lyfrau siop lyfrau o'r enw Martin Bookstore.
Dewch i ni ddatblygu Macro cydgadwynu colofnau 1, 2, a 3 o'r set ddata B4:D14 yn y gell F4 .
Cod VBA fydd:
⧭ Cod VBA:
7032
⧭ Allbwn :
Rhedwch y cod hwn. Byddwch yn cael y colofnau 3 wedi'u cydgadwynu yn yr ystod F4:F14.
Darllen Mwy: Macro i Cydgadwynu Colofnau Lluosog yn Excel (gyda UDF a Ffurflen Defnyddiwr)
Enghraifft 2: Creu Swyddogaeth a Ddiffiniwyd gan Ddefnyddiwr i Gydgadwynu llinyn(nau) a newidyn(nau) yn Excel VBA
Rydym wedi dysgu datblygu Macro i gydgadwynu colofnau lluosog o set ddata. Y tro hwn byddwn yn creu swyddogaeth Diffiniedig gan Ddefnyddiwr i gydgadwynu llinynnau neu newidynnau yn Excel.
Cod VBA cyflawn fydd:
⧭ Cod VBA:
1398
⧭ Allbwn:
Dewiswch y golofn lle rydych am gydgatenu'r amrediad a rhowch y fformiwla hon:
=ConcatenateValues("She","H. Rider Haggard",", ") Bydd yn dychwelyd She, H. Rider Haggard fel yr allbwn.<3
Eto, rhowch y fformiwla:
=ConcatenateValues(B4:B14,30,", ") [ Fformiwla Arae . Felly peidiwch ag anghofiopwyswch CTRL + SHIFT + ENTER oni bai eich bod yn Office 365 .]
Bydd yn cydgadwynu 30 gyda holl werthoedd yr amrediad B4:B14 .
Yn olaf, rhowch:
=ConcatenateValues(B4:B14,C4:C14,", ") [Eto Fformiwla Arae . Felly peidiwch ag anghofio pwyso CTRL + SHIFT + ENTER oni bai eich bod yn Office 365 .]
Bydd yn cydgadwyneiddio holl werthoedd yr amrediad B4: B14 gyda rhai C4:C14 .
Darllen Mwy: Sut i Gydgadwynu yn Excel (3 Ffordd Addas) <2
Darlleniadau Tebyg:
- Sut i Cyfuno Testun o Ddwy Gell neu Fwy yn Un Gell yn Excel (5 Dull)
- Cyfuno Rhesi yn Un Cell yn Excel
- Rhifau Cydgadwyn yn Excel (4 Fformiwla Cyflym)
- Cyfuno Testun yn Excel (8 Ffordd Addas)
- Sut i Gydgadwynu Collnod yn Excel (6 Ffordd Hawdd)
Enghraifft 3: Datblygu a Ffurflen Defnyddiwr i Gydgadwynu llinyn(nau) a newidyn(au) mewn Taflen Waith Gwahanol yn Excel VBA
Rydym wedi dysgu datblygu Macro a Diffiniedig gan Ddefnyddiwr swyddogaeth i gydgadwynu llinynnau a gwerthoedd. Yn olaf, byddwn yn datblygu Ffurflen Defnyddiwr i gydgatenu llinynnau a gwerthoedd i leoliad dymunol y daflen waith a ddymunir.
⧪ Cam 1: Mewnosod y Ffurflen Defnyddiwr
Ewch i'r Mewnosod > Opsiwn DefnyddiwrFfurf yn y bar offer VBA i fewnosod Ffurflen Ddefnyddiwr newydd.
⧪ Cam 2: Llusgo Offer ibydd y Ffurflen Defnyddiwr
A Ffurflen Defnyddiwr o'r enw Ffurflen Defnyddiwr1 yn cael ei hagor, ynghyd â Blwch Offer o'r enw Rheoli .
Symudwch eich llygoden dros y e Blwch Offer a llusgwch 2 Flwch Rhestr, 5 Blwch Testun, 7 Label ac 1 Botwm Cyffredin yn y Ffurflen Defnyddiwr .
Newid arddangosiadau'r Labelau fel y dangosir yn y ffigur.
Yn yr un modd, newidiwch ddangosydd y Botwm Gorchymyn i Iawn .
⧪ Cam 3: Ysgrifennu Cod ar gyfer TextBox1
Cliciwch ddwywaith ar TextBox1 . Bydd Is-weithdrefn Breifat o'r enw TextBox1_Change yn agor. Rhowch y cod canlynol yno.
7820
⧪ Cam 4: Ysgrifennu Cod ar gyfer TextBox3
Yn yr un modd, cliciwch ddwywaith ar Blwch Testun3 . Bydd Is-weithdrefn Breifat arall o'r enw TextBox3_Change yn agor. Rhowch y cod canlynol yno.
3225
⧪ Cam 5: Ysgrifennu Cod ar gyfer TextBox4
Hefyd, cliciwch ddwywaith ar Blwch Testun3 . Bydd Is-weithdrefn Breifat arall o'r enw TextBox3_Change yn agor. Rhowch y cod canlynol yno.
2639
⧪ Cam 6: Ysgrifennu Cod ar gyfer ListBox2
Yna cliciwch ddwywaith ar ListBox2 . Pan fydd y Is-weithdrefn Breifat o'r enw ListBox2_Click yn agor, rhowch y cod hwn yno.
4425
⧪ Cam 7: Ysgrifennu Cod ar gyfer CommanButton1
Hefyd, cliciwch ddwywaith ar CommandButton1 . Ar ôl yr Is-weithdrefn Breifat a elwir yn CommandButton1_Change yn agor, mewnosodwch y cod canlynol yno.
7437
⧪ Cam 7: Ysgrifennu Cod ar gyfer Rhedeg y Ffurflen Defnyddiwr
Nawr yw'r cam olaf. Mewnosodwch fodiwl newydd o'r bar offer VBA a mewnosodwch y cod canlynol.
3348
⧪ Cam 8: Rhedeg mae'r Ffurflen Defnyddiwr
Eich Ffurflen Defnyddiwr nawr yn barod i'w defnyddio. I'w redeg, dewiswch y set ddata o'r daflen waith (Gan gynnwys y Penawdau ) a rhedeg y Macro o'r enw Run_UserForm .
Bydd y Ffurflen Defnyddiwr yn llwytho gyda'r holl opsiynau. Bydd y cyfeiriad ystod a ddewiswyd yn cael ei ddangos ar TextBox1 ( B3:D4 yma). Os dymunwch, gallwch ei newid. Bydd yr ystod a ddewiswyd yn y daflen waith yn newid.
Dewiswch y colofnau rydych chi am eu concatio o'r Colofnau i Concat ListBox. Yma rwyf wedi dewis Enw'r Llyfr a Pris .
Rhowch y Gwahanydd . Yma rydw i wedi rhoi coma ( , ).
Dewiswch enw'r daflen waith lle rydych chi am roi'r amrediad cydgadwynedig o'r Concatenated In blwch rhestr. Yma rydw i wedi rhoi Taflen 3 .
(Y funud y byddwch chi'n dewis y ddalen, bydd yn cael ei gweithredu, hyd yn oed os nad dyma'r un gweithredol.)
Yna mewnosod y Lleoliad Allbwn . Dyma gyfeirnod cell cell gyntaf yr amrediad cydgadwynaidd. Yma rydw i wedi rhoi B3 .
(Y foment y byddwch chi'n mynd i mewn i'r Lleoliad Allbwn , bydd yr amrediad allbwn yn cael ei ddewis).
Ac yn olaf , mynd i mewn i'renw'r Pennyn Allbwn (Pennawd yr Ystod Allbwn). Yma rydw i wedi rhoi Ystod Cydgadwynedig .
(Y foment rydych chi'n rhoi'r Pennawd Allbwn , bydd pennyn y golofn allbwn yn cael ei osod.)
Cliciwch Iawn . Byddwch yn cael yr allbwn dymunol yn y lleoliad dymunol.
Darllen Mwy: Sut i Gydgatenu Llinyn a Chyfanrif gan ddefnyddio VBA
Casgliad
Felly dyma ychydig o enghreifftiau lle gallwch ddefnyddio Excel VBA i gydgatenu llinynnau a newidynnau. Gobeithio bod yr enghreifftiau wedi gwneud popeth yn eithaf clir i chi. Oes gennych chi unrhyw gwestiynau? Mae croeso i chi ofyn i ni. A pheidiwch ag anghofio ymweld â'n gwefan ExcelWIKI am ragor o bostiadau a diweddariadau.
