Բովանդակություն
Excel-ում VBA -ի հետ աշխատելիս մենք հաճախ ստիպված ենք լինում միացնել տողերը (ներ) և փոփոխականները (ներ) աշխատաթերթում: Միավորվող տող (ներ) և փոփոխական (ներ) լայնորեն կիրառվում է մեր աշխատանքների գրեթե բոլոր ոլորտներում՝ սկսած ուսանողների արդյունքների ամփոփումից մինչև բարդ բիզնեսի վերլուծություն: Այս հոդվածում ես ձեզ ցույց կտամ, թե ինչպես կարող եք միացնել տողերը (ները) և փոփոխականները (ներ) աշխատաթերթում VBA -ով Excel-ում: Ես կբացատրեմ բաները պատշաճ օրինակներով և նկարազարդումներով:
Միավորել տողերը (ներ) և փոփոխական (ներ) Excel VBA-ում (Արագ դիտում)
Ներբեռնեք պրակտիկայի աշխատանքային գիրքը
Ներբեռնեք այս պրակտիկայի աշխատանքային գիրքը՝ այս հոդվածը կարդալու ընթացքում վարժություններ կատարելու համար:
Concatenate String and Variable.xlsm
Միացնել տողերը (ներ) և փոփոխական (ներ) Excel VBA-ում (քայլ առ քայլ վերլուծություն)
Նախ, եկեք տեսնենք, թե ինչպես կարող ենք միացնել տողերը (ներ) և փոփոխական (ներ) VBA -ում քայլ առ քայլ:
⧪ Միավորվող տող (ներ):
Երկու կամ ավելի տողեր միացնելու համար VBA , դուք կարող եք օգտագործել և՛ ավելացում (+) թվաբանական, և՛ նշանանշան (& ):
Օրինակ՝ միացնելու համար «Մեծ սպասելիքներ» և «Երկու քաղաքների հեքիաթ» տողերը ստորակետով , կարող եք օգտագործել՝
2063
Կամ,
8545
Գործարկեք վերը նշված կոդերից որևէ մեկը: Այն կցուցադրի միացված ելքը, Մեծ ակնկալիքներ,Երկու քաղաքների հեքիաթ .
⧪ Միացող փոփոխական (ներ)
Եթե բոլոր փոփոխականները պարունակում են տողային արժեքներ, ապա դուք կարող եք օգտագործել և՛ թվաբանական ավելացում (+) խորհրդանիշը և թե նշանանշանը (&) :
Բայց եթե դրանք չեն, ապա կարող եք օգտագործել միայն ամպերսանդ (&) նշանը միացնելու համար:
Օրինակ, Եկեք ունենանք երկու փոփոխական՝ A և B :
A պարունակում է տող, «Հեքիաթ երկու քաղաքների մասին» , իսկ B պարունակում է մեկ այլ տող՝ «Սիրո քառասուն կանոնները» ։
Դուք կարող եք օգտագործել և՛ հավելման (+) նշանը, և՛ նշանանշանը (&) դրանք միացնելու համար։
7370
Կամ,
6513
Երկու դեպքում էլ նրանք կվերադարձնեն միացված տողը:
Բայց եթե A -ը տող է ( «Հեքիաթ երկու քաղաքների մասին» ), իսկ B ամբողջ թիվ է ( 27 ), միանալու համար պետք է օգտագործեք նշանանշանը (&) :
6178
Այն կվերադարձնի փոխկապակցված ելքը .
Օրինակներ Concat enate տողեր և փոփոխականներ Excel VBA-ում (ներառում է մակրո, UDF և UserForm)
Մենք սովորել ենք միացնել տողերը (եր) և փոփոխականները (ներ) VBA -ի հետ Excel-ում . Այս անգամ մենք կուսումնասիրենք մի քանի օրինակներ, որոնք ներառում են տողերի (ներ) և փոփոխականների (ներ) միացում VBA -ով:
Օրինակ 1. Մակրո մշակում տող(ներ)ը միացնելու համար և փոփոխական (ներ) Excel VBA-ում
Մենք սովորել ենքմիացնել տողերն ու փոփոխականները VBA -ով: Այս անգամ մենք կմշակենք Մակրո ՝ աշխատաթերթում մի քանի սյունակների տողերն ու փոփոխականները միացնելու համար:
Այստեղ մենք ունենք տվյալների հավաքածու գրքերի անուններով , Martin Bookstore կոչվող գրախանութի որոշ գրքերի հեղինակներ և գները :
Եկեք մշակենք Մակրո F4 բջիջի B4:D14 տվյալների հավաքածուի 1, 2, և 3 սյունակները միացնելու համար:
VBA կոդը կլինի՝
⧭ VBA կոդը՝
8658
⧭ Ելք :
Գործարկեք այս կոդը: Դուք կստանաք 3 սյունակները միացված F4:F14 տիրույթում:
Կարդալ ավելին. Մակրո դեպի Միացնել բազմաթիվ սյունակներ Excel-ում (UDF-ով և UserForm-ով)
Օրինակ 2. Օգտատիրոջ կողմից սահմանված ֆունկցիայի ստեղծում Excel VBA-ում տող (ներ) և փոփոխական (ներ) միացնելու համար
Մենք սովորել ենք մշակել Մակրո տվյալների հավաքածուի մի քանի սյունակները միացնելու համար: Այս անգամ մենք կստեղծենք Օգտատիրոջ կողմից սահմանված ֆունկցիա Excel-ում տողերը կամ փոփոխականները միացնելու համար:
Ամբողջական VBA կոդը կլինի.
⧭ VBA կոդ՝
3450
⧭ Ելք.
Ընտրեք այն սյունակը, որտեղ ցանկանում եք միացնել միջակայքը և մուտքագրեք այս բանաձևը՝
=ConcatenateValues("She","H. Rider Haggard",", ")
Այն կվերադարձնի She, H. Rider Haggard որպես արդյունք:
Կրկին մուտքագրեք բանաձևը.
=ConcatenateValues(B4:B14,30,", ")
[ Զանգվածի բանաձև : Այսպիսով, մի մոռացեքսեղմեք CTRL + SHIFT + ENTER , եթե դուք Office 365 -ում չեք:]
Այն 30-ը կմիավորի B4:B14 տիրույթի բոլոր արժեքներով: .
Վերջապես մուտքագրեք՝
=ConcatenateValues(B4:B14,C4:C14,", ")
[Կրկին Զանգվածի բանաձևը . Այսպիսով, մի մոռացեք սեղմել CTRL + SHIFT + ENTER , քանի դեռ չեք գտնվում Office 365 -ում:]
Այն կմիավորի տիրույթի բոլոր արժեքները B4: B14 C4:C14 -ի հետ:
Կարդալ ավելին. Ինչպես միանալ Excel-ում (3 հարմար եղանակ)
Նման ընթերցումներ.
- Ինչպես համատեղել տեքստը երկու կամ ավելի բջիջներից մեկ բջիջի մեջ Excel-ում (5 մեթոդ)
- Միավորել տողերը մեկ բջիջում Excel-ում
- Միացնել թվերը Excel-ում (4 արագ բանաձևեր)
- Միացնել տեքստը Excel-ում (8 հարմար եղանակներ)
- Ինչպես միացնել ապոստրոֆը Excel-ում (6 հեշտ եղանակ)
Օրինակ 3. Մշակել UserForm՝ տող (ներ) և փոփոխական (եր) միացնելու համար Excel VBA-ում տարբեր աշխատաթերթում
Մենք սովորել ենք մշակել Մակրո և Օգտատիրոջ կողմից սահմանված ֆունկցիա տողերն ու արժեքները միացնելու համար: Ի վերջո, մենք կմշակենք UserForm տողերն ու արժեքները ցանկալի աշխատաթերթի ցանկալի վայրին միացնելու համար:
⧪ Քայլ 1. Տեղադրեք UserForm
Գնալ դեպի Տեղադրել > UserForm տարբերակը VBA գործիքագոտում նոր UserForm տեղադրելու համար:
⧪ Քայլ 2. Քաշել Գործիքներ դեպիUserForm
A UserForm , որը կոչվում է UserForm1 , կբացվի Toolbox , որը կոչվում է Control :
Տեղափոխեք ձեր մկնիկը e Գործիքների տուփի վրայով և քաշեք 2 Ցուցակարկղ, 5 Տեքստային տուփ, 7 Պիտակ և 1 CommanButton UserForm-ում :
Փոխեք Պիտակների էկրանները: ինչպես ցույց է տրված նկարում:
Նմանապես, փոխեք CommandButton -ի ցուցադրումը OK :
⧪ Քայլ 3. Կոդ գրել TextBox1-ի համար
Կրկնակի սեղմեք TextBox1 -ի վրա: Կբացվի Մասնավոր ենթակարգ , որը կոչվում է TextBox1_Change : Այնտեղ մուտքագրեք հետևյալ կոդը:
4752
⧪ Քայլ 4. Կոդ գրել TextBox3-ի համար
Նմանապես, կրկնակի սեղմեք TextBox3 : Մեկ այլ Մասնավոր ենթակարգ , որը կոչվում է TextBox3_Change , կբացվի: Այնտեղ մուտքագրեք հետևյալ կոդը:
1633
⧪ Քայլ 5. Կոդ գրել TextBox4-ի համար
Նաև, կրկնակի սեղմեք TextBox3 : Մեկ այլ Մասնավոր ենթակարգ , որը կոչվում է TextBox3_Change , կբացվի: Այնտեղ մուտքագրեք հետևյալ կոդը:
4189
⧪ Քայլ 6. Կոդ գրել ListBox2-ի համար
Այնուհետև կրկնակի սեղմեք ListBox2-ի վրա . Երբ բացվի Մասնավոր ենթակարգը , որը կոչվում է ListBox2_Click , մուտքագրեք այս կոդը այնտեղ:
2033
⧪ Քայլ 7. Կոդ գրելը CommanButton1-ի համար
Նաև կրկնակի սեղմեք CommandButton1 -ի վրա: Մասնավոր ենթակարգից հետո, որը կոչվում է CommandButton1_Change բացվում է, այնտեղ տեղադրեք հետևյալ կոդը:
3439
⧪ Քայլ 7. Կոդ գրել UserForm-ը գործարկելու համար
Հիմա վերջին քայլն է։ Տեղադրեք նոր Մոդուլ VBA գործիքագոտուց և տեղադրեք հետևյալ կոդը:
7900
⧪ Քայլ 8. Գործարկում UserForm
Ձեր UserForm այժմ պատրաստ է օգտագործման: Այն գործարկելու համար ընտրեք տվյալների հավաքածուն աշխատաթերթից (ներառյալ Վերագրերը ) և գործարկեք Մակրո , որը կոչվում է Run_UserForm :
UserForm -ը կբեռնվի բոլոր տարբերակներով: Ընտրված միջակայքի հասցեն կցուցադրվի TextBox1 ( B3:D4 այստեղ): Ցանկության դեպքում կարող եք փոխել այն։ Աշխատանքային թերթի ընտրված տիրույթը կփոխվի:
Ընտրեք այն սյունակները, որոնք ցանկանում եք միացնել Սյունակներից դեպի Concat ListBox: Այստեղ ես ընտրել եմ Գրքի անունը և Գինը :
Մուտքագրեք Անվանումը : Այստեղ ես մուտքագրել եմ ստորակետ ( , ):
Ընտրեք աշխատաթերթի անունը, որտեղ ցանկանում եք տեղադրել միացված միջակայքը Concatenated In<2-ից:> ցուցակի տուփ: Այստեղ ես մուտքագրել եմ Sheet3 ։
(Այն պահին, երբ ընտրեք թերթը, այն կակտիվանա, նույնիսկ եթե այն ակտիվը չէ։)
Այնուհետև տեղադրեք Ելքի գտնվելու վայրը : Դա կապակցված տիրույթի առաջին բջիջի բջջային հղումն է: Այստեղ ես դրել եմ B3 ։
(Այն պահին, երբ մուտքագրեք Ելքի տեղադրությունը , ելքային տիրույթը կընտրվի):
Եվ վերջապես , մուտքագրեք Ելքի վերնագրի անունը (Ելքի տիրույթի վերնագիր): Այստեղ ես դրել եմ Concatenated Range :
(Այն պահին, երբ դուք տեղադրեք Ելքի վերնագիրը , ելքային սյունակի վերնագիրը կսահմանվի:)
Սեղմեք Լավ : Դուք կստանաք ցանկալի արդյունքը ցանկալի վայրում:
Կարդալ ավելին. Ինչպես միացնել տողը և ամբողջ թիվը՝ օգտագործելով VBA
Եզրակացություն
Այսպիսով, սրանք մի քանի օրինակներ են, որոնցում դուք կարող եք օգտագործել Excel VBA տողերն ու փոփոխականները միացնելու համար: Հուսով եմ, որ օրինակները ձեզ համար ամեն ինչ պարզ դարձրին: Հարցեր ունե՞ք։ Ազատորեն հարցրեք մեզ: Եվ մի մոռացեք այցելել մեր կայք ExcelWIKI ավելի շատ գրառումների և թարմացումների համար: