Մենք հաճախ օգտագործում ենք MsgBox VBA -ում՝ կոդերը գործարկելուց հետո ծանուցումը ցուցադրելու համար: Երբեմն մեկ տողը չի կարող պատշաճ կերպով ցույց տալ ելքը: Այնուհետև մենք պետք է ավելացնենք նոր տողեր : Այսպիսով, այս հոդվածից դուք կսովորեք 6 օգտակար մակրոներ՝ Excel VBA-ի միջոցով MsgBox -ում նոր տող ավելացնելու համար:

Ներբեռնեք Practice Workbook

Դուք կարող եք ներբեռնել Excel-ի անվճար ձևանմուշն այստեղից և ինքնուրույն վարժվել:

6 Օրինակներ MsgBox-ում նոր տող ստեղծելու համար՝ օգտագործելով Excel VBA

1. Օգտագործեք vbNewLine՝ MsgBox-ում նոր տող ավելացնելու համար, օգտագործելով Excel VBA

Այստեղ մենք կօգտագործենք vbNewLine VBA մակրոյում -ում տող ավելացնելու համար: MsgBox. Ես ցույց կտամ « Բարև! »-ը առաջին տողում և « Բարի գալուստ ExcelWIKI» երկրորդ տողում:

Քայլեր. 2>

• Սեղմեք Alt + F11 ` բացելու համար VBA պատուհանը :
• Այնուհետև սեղմեք հետևյալի համար տեղադրեք մոդուլ՝ Տեղադրեք ➤ մոդուլ ։

• Այնուհետև մուտքագրեք հետևյալ կոդերը դրա մեջ-

1556

• Այնուհետև վերադառնալ ձեր թերթ և սեղմեք հետևյալը բացելու համար Մակրոներ երկխոսության տուփ. Մշակող ➤ Մակրո ։

• Ընտրեք Մակրո անունը ինչպես նշված է կոդերում :
• Վերջապես սեղմեք Գործարկել :

Այժմ նայեք, vbNewLine ցուցադրում է ելքը երկուտողեր .

Կարդալ ավելին. VBA՝ Excel-ում էլփոստի տեքստում բազմաթիվ տողեր ստեղծելու համար (2 մեթոդ)

2. Օգտագործեք vbCrLf MsgBox-ում նոր գիծ ստեղծելու համար Օգտագործելով VBA Excel-ում

Այժմ մենք կօգտագործենք մեկ այլ հաստատուն VBA – vbCrLf նոր տող ստեղծելու համար MsgBox : Այն նաև կավելացնի նոր տող երկու հաջորդական տողերի միջև:

Քայլեր.

• Նախ, հետևեք առաջին երկու քայլերին առաջին մեթոդից ՝ VBA-ում մոդուլ տեղադրելու համար
• Այնուհետև գրեք հետևյալ կոդերը դրա մեջ-

8692

• Այնուհետև, հետևեք առաջին մեթոդի չորրորդ քայլին ` բացելու Մակրո երկխոսության տուփը :
• Ընտրեք Մակրո անունը և սեղմեք Գործարկել :

vbCrLf հաստատունն ավելացրել է նոր տող բացվածքով նույնպես:

Կարդալ ավելին. Ինչպես ավելացնել Գիծ Excel բջիջում (5 հեշտ մեթոդ)

3. Տեղադրեք vbLf՝ MsgBox-ում նոր տող ավելացնելու համար՝ օգտագործելով Excel VBA

Եկեք օգտագործենք մեկ այլ հաստատուն՝ vbLf MsgBox-ում նոր տող ավելացնելու համար Excel VBA-ում:

Քայլեր.

• Հետևեք առաջին մեթոդի առաջին երկու քայլերին VBA մոդուլը տեղադրելու համար։
• Այնուհետև գրեք հետևյալ կոդերը դրա մեջ-

4295

• Այնուհետև հետևեք առաջին մեթոդի չորրորդ քայլին Մակրո երկխոսության տուփը բացելու համար :
• Այնուհետև ընտրեք Մակրո անունը ինչպես նշված է կոդերում և սեղմեք Run :

Եվ շուտով դուք կստանաք ցանկալի արդյունքը:

Կարդալ ավելին. Ինչպես ավելացնել նոր տող CONCATENATE բանաձևով Excel-ում (5 եղանակ)

4. Կիրառեք Chr-ը MsgBox-ում նոր տող ստեղծելու համար՝ օգտագործելով VBA Excel-ում

Այստեղ մենք կօգտագործենք VBA-ի երկու հաստատուններ- Chr(13) & Chr(10) գծեր ավելացնելու համար:

Քայլեր.

• Սկսեք հետևելով առաջին մեթոդի առաջին երկու քայլերին մոդուլ տեղադրելու համար VBA
• Այնուհետև գրեք հետևյալ կոդերը դրա մեջ-

2257

• Դրանից հետո կատարեք առաջին մեթոդի չորրորդ քայլը Մակրո երկխոսության տուփը բացելու համար :
• Այնուհետև ընտրեք նշանակված է Մակրո անունը և սեղմեք Գործարկել :

Տեսեք, որ մենք ունենք նույն արդյունքը:

5. Ավելացնել նոր տող մակրոյում Excel VBA-ում

Նախորդ մեթոդներում մենք չենք կոտրել կոդի գիծը: Այստեղ մենք կկոտրենք և կավելացնենք տողեր կոդերում:

Քայլեր.

• Նախ, հետևեք առաջին մեթոդի առաջին երկու քայլերին: մոդուլ տեղադրելու համար VBA
• Հաջորդը, գրեք հետևյալ կոդերը դրա մեջ-

9660

• Հետագայում կատարեք առաջին մեթոդի չորրորդ քայլը Մակրո երկխոսության տուփը բացելու համար :
• Այնուհետև պարզապես ընտրեք Մակրո անունը և սեղմեք Գործարկել :

Այժմտեսեք, որ մակրո -ը ավելացրել է նոր տող ` պահելով բացվածք տողերի միջև:

Կարդալ ավելին. Ինչպես կատարել տողերի ընդհատում Excel-ում (4 եղանակ)

6. Տեղադրեք VBA-ն MsgBox-ում նոր տողեր ավելացնելու համար՝ օգտագործելով կոճակը

Մեր վերջին մեթոդով մենք առաջադրանքը մի փոքր այլ կերպ կկատարենք: Մենք կսահմանենք կոճակը MsgBox -ում տողեր ավելացնելու համար:

6.1 կոճակ մեկ տողի համար

Նախ, մենք Կստեղծի կոճակ մեկ տող ավելացնելու համար: Դրա համար ես ստեղծել եմ տվյալների բազա, որը ներկայացնում է երեք բջիջ՝ մուտքագրելու համար Ազգանուն , Հասցե և Հեռախոսահամար : Երբ մենք սեղմենք կոճակը , այն կստուգի բջիջները և եթե ստացվի դատարկ բջիջ , ապա ցուցադրի հաղորդագրությունը այդ բջիջի համար:

• Սեղմեք հետևյալ կերպ. Մշակավոր ➤ Տեղադրեք և այնուհետև ընտրեք ուղղանկյուն վանդակը Ձևի վերահսկում բաժնից :

• Շուտով դուք կստանաք գումարած մուտք մուտք ձեր կուրսորը, ձախ սեղմեք ձեր մկնիկը և քաշեք թերթի վրա կոճակի չափը սահմանելու համար:

• Այնուհետև աջ սեղմեք ձեր մկնիկը կոճակի վրա և ընտրեք Խմբագրել տեքստը համատեքստային ընտրացանկից ՝ կոճակի անունը սահմանելու համար:

• Տեսեք Անունը և սեղմեք թերթի ցանկացած կետ:

• Կրկին աջ սեղմեք ձեր մկնիկը կոճակի վրա և ընտրել Նշանակել մակրո համատեքստային ընտրացանկից Մակրո սահմանելու համար:

• Այս պահին տվեք Մակրո անունը և սեղմեք Նոր ։

• Այնուհետև մուտքագրեք հետևյալ կոդերը –

8347

Code Breakdown

• Սկզբում ես ստեղծեցի Ենթաընթացակարգ SingleLine_Button :
• Այնուհետև հայտարարագրեցի փոփոխական WS որպես Աշխատանքային թերթիկ ։
• Այնուհետև օգտագործեք երեք IF հայտարարություն բջիջները ստուգելու համար, եթե բջիջը լցված է արժեքով , ապա այն անտեսի այն։ և եթե ստանում է դատարկ բջիջ , ապա ցույց կտա համապատասխան հաղորդագրությունը MsgBox -ի միջոցով:

• Ավելի ուշ, պարզապես վերադառնալ ձեր թերթին և սեղմեք կոճակը :

Քանի որ Ազգանուն դաշտը դատարկ է, այդ իսկ պատճառով այն ցույց է տալիս ծանուցման հաղորդագրությունը:

• Սեղմեք OK այնուհետև այն կստուգի երկրորդ դաշտը: .

Երկրորդ դաշտը նույնպես դատարկ է , ուստի ավելացրել է n ew տողը ծանուցելու համար :

Այստեղ ես լրացրեցի առաջին դաշտը և սեղմեցի կոճակը և տեսա, որ այն բաց է թողել այդ դաշտը և ցատկել է երկրորդ դաշտը ՝ հաղորդագրությունը ցույց տալու համար:

6.2 կոճակ բազմակի տողերի համար

Հանձնարարելով այս կոճակը, մենք կկարողանանք միաժամանակ մի քանի տողեր ավելացնել հաղորդագրության վանդակում:

• Նախ, հետևեք առաջին 6 քայլերիննախորդ բաժինը ՝ ավելացնելու կոճակը և նշանակելու մակրո :

• Այնուհետև մուտքագրեք հետևյալ կոդերը մակրո-

9874

Code Breakdown

• Այստեղ ես ստեղծեցի Ենթաընթացակարգ Multiple_Line_Button :
• Այնուհետև որոշ փոփոխականներ հայտարարեցի WS Որպես Աշխատանքային թերթ և Ազգանուն , Հասցե , Հեռախոս , Սխալ_հաղորդագրություն Որպես
• Հետագայում օգտագործվեց Len և Range դաշտերը սահմանելու համար:
• Վերջապես օգտագործվեցին If դրույթները ` ստուգելու համար դաշտերը դատարկ են, թե ոչ . Եթե ​​այն լցված է, ապա այն բաց կթողնի, իսկ եթե ոչ, ապա ցույց կտա հաղորդագրությունները MsgBox -ի միջոցով:

• Վերջապես, պարզապես վերադարձեք թերթ և սեղմեք կոճակը :

Եվ տեսեք, որ այն ցույց է տալիս երեք տող երեք դաշտերի քանի որ դրանք բոլորը դատարկ են :

Ես լրացրեցի առաջին դաշտը և հիմա տեսեք, որ այն ցույց է տալիս միայն -ի հաղորդագրությունները հաջորդ 2 դաշտերը ։

Կարդալ ավելին. Ինչպես մի քանի տող տեղադրել Excel բջիջում (2 հեշտ եղանակ)

Եզրակացություն

Հուսով եմ, որ վերը նկարագրված ընթացակարգերը բավարար կլինեն Excel VBA-ի միջոցով MsgBox-ում նոր տող ստեղծելու համար: Ազատորեն ցանկացած հարց տվեք մեկնաբանությունների բաժնում և խնդրում եմ ինձ կարծիք հայտնել: