Često koristimo MsgBox u VBA za prikaz obavijesti nakon pokretanja kodova. Ponekad jedan redak ne može pravilno prikazati izlaz. Zatim moramo dodati nove retke . Stoga ćete iz ovog članka naučiti 6 korisnih makronaredbi za dodavanje novog retka u MsgBox koristeći Excel VBA.

Preuzmite radnu knjigu za vježbu

Ovdje možete preuzeti besplatni Excel predložak i vježbati sami.

6 primjera za stvaranje novog retka u MsgBoxu pomoću programa Excel VBA

1. Koristite vbNewLine za dodavanje novog retka u MsgBox koristeći Excel VBA

Ovdje ćemo koristiti vbNewLine u VBA makronaredbi za dodavanje retka u MsgBox. Pokazat ću “ Zdravo! ” u prvom retku i “ Dobrodošli u ExcelWIKI” u drugom retku.

Koraci:

• Pritisnite Alt + F11 da otvorite VBA prozor .
• Zatim kliknite kako slijedi umetnite modul: Insert ➤ Module .

• Kasnije unesite sljedeće kodove u njega-

2367

• Zatim se vratite na svoj list i kliknite kako slijedi da otvorite Makronaredbe dijaloški okvir: Razvojni programer ➤ Makronaredbe .

• Odaberite makronaredbu ime kako je navedeno u kodovima .
• Na kraju samo pritisnite Pokreni .

Sada pogledajte, vbNewLine pokazuje izlaz za dvaredaka .

Pročitajte više: VBA za generiranje više redaka u tijelu e-pošte u programu Excel (2 metode)

2. Koristite vbCrLf za stvaranje novog retka u MsgBoxu Korištenje VBA u Excelu

Sada ćemo upotrijebiti drugu konstantu VBA – vbCrLf za stvaranje novog retka u Poručni okvir . Također će dodati novi redak između dva uzastopna retka.

Koraci:

• Prvo, slijedite prva dva koraka iz prve metode za umetanje modula u VBA
• Zatim upišite sljedeće kodove u njega-

8465

• Zatim slijedite četvrti korak od prve metode da biste otvorili Makro dijaloški okvir .
• Odaberite Naziv makronaredbe i pritisnite Pokreni .

Konstanta vbCrLf je dodala novi red s linijom praznine također.

Pročitajte više: Kako dodati Linija u ćeliji programa Excel (5 jednostavnih metoda)

3. Umetnite vbLf za dodavanje novog retka u MsgBox koristeći Excel VBA

Upotrijebimo još jednu konstantu- vbLf za dodavanje novog retka u MsgBox u Excel VBA.

Koraci:

• Slijedite prva dva koraka iz prve metode da biste umetnuli modul u VBA
• Kasnije, upišite sljedeće kodove u njega-

8348

• Onda slijedite četvrti korak od prve metode da biste otvorili Makro dijaloški okvir .
• Kasnije odaberite Naziv makronaredbe kao što je navedeno u kodovima i pritisnite Pokreni .

I ubrzo nakon toga dobit ćete željeni rezultat.

Pročitajte više: Kako dodati novi redak s CONCATENATE formulom u Excelu (5 načina)

4. Primijenite Chr za stvaranje novog retka u MsgBoxu koristeći VBA u Excelu

Ovdje ćemo koristiti dvije konstante VBA- Chr(13) & Chr(10) za dodavanje redaka.

Koraci:

• Počnite slijedeći prva dva koraka iz prve metode za umetanje modula u VBA
• Zatim upišite sljedeće kodove u njega-

5124

• Nakon toga slijedite četvrti korak od prve metode kako biste otvorili makro dijaloški okvir .
• Zatim odaberite dodijelite Naziv makronaredbe i pritisnite Pokreni .

Vidite da imamo isti izlaz.

5. Dodajte novi redak unutar makronaredbe u programu Excel VBA

U prethodnim metodama nismo prekidali redak u kodu. Ovdje ćemo razdvojiti i dodati retke unutar kodova.

Koraci:

• Prvo, slijedite prva dva koraka iz prve metode za umetanje modula u VBA
• Zatim, upišite sljedeće kodove u njega-

3648

• Kasnije slijedite četvrti korak od prve metode da biste otvorili Makro dijaloški okvir .
• Zatim samo odaberite Naziv makronaredbe i pritisnite Pokreni .

Sadavidite da je makro dodao novi redak zadržavajući razmak između redaka.

Pročitajte više: Kako napraviti prijelom retka u programu Excel (4 načina)

6. Ugradite VBA za dodavanje novih redaka u MsgBox pomoću gumba

U našoj posljednjoj metodi zadatak ćemo obaviti na malo drugačiji način. Postavit ćemo gumb za dodavanje redaka u MsgBox .

6.1 Gumb za jednu liniju

Prvo, Napravit ću gumb za dodavanje jednog retka. Za to sam napravio skup podataka koji predstavlja tri ćelije za unos Prezime , Adresa i Broj telefona . Kada kliknemo gumb , on će provjeriti ćelije i ako dobije praznu ćeliju tada će prikazati poruku za tu ćeliju.

• Kliknite na sljedeći način: Programer ➤ Umetni i zatim odaberite pravokutni okvir iz odjeljka Kontrole obrazaca .

• Ubrzo nakon toga dobit ćete znak plus pokazivač, kliknite lijevom tipkom miša mišem i povucite na listu da postavite veličinu gumba .

• Zatim desnom tipkom miša kliknite mišom na gumb i odaberite Uredi tekst iz kontekstnog izbornika za postavljanje naziva gumba .

• Tip Ime i kliknite bilo gdje na listu.

• Opet desnom tipkom miša kliknite svoj mišom na gumb i odaberite Dodijeli makronaredbu iz kontekstnog izbornika za postavljanje Makronaredbe .

• U ovom trenutku dajte naziv makronaredbe i pritisnite Novo .

• Zatim upišite sljedeće kodove –

2964

Raščlanu koda

• Prvo sam kreirao Sub procedure SingleLine_Button .
• Zatim sam deklarirao varijablu WS kao Radni list .
• Zatim upotrijebi tri IF naredbe za provjeru ćelija, ako je ćelija ispunjena vrijednošću onda će je ignorirati i ako dobije praznu ćeliju tada će prikazati odgovarajuću poruku kroz MsgBox .

• Kasnije, samo se vratite na svoj list i kliknite na gumb .

Pošto je polje Prezime prazno, zato se prikazuje poruka obavijesti.

• Pritisnite OK i zatim će provjeriti drugo polje .

Drugo polje je također prazno pa je dodalo n novi redak da ga obavijestim .

Ovdje sam ispunio prvo polje i kliknuo gumb, i vidim da je preskočio to polje i preskočio na drugo polje za prikaz poruke.

6.2 Gumb za više redaka

Dodjelom ovaj gumb, moći ćemo dodati više redaka odjednom u okvir s porukom.

• Prvo, slijedite prvih 6 koraka odprethodni odjeljak da biste dodali gumb i dodijelili makro .

• Zatim upišite sljedeće kodove u makro-

8431

Raščlamba koda

• Ovdje sam kreirao Sub procedure Multiple_Line_Button .
• Zatim sam deklarirao neke varijable WS Kao Radni list i Prezime , Adresa , Telefon , Error_msg Kao
• Kasnije, korišteno Len i Range za postavljanje polja.
• Konačno, koristi se If naredba za provjera jesu li polja prazna ili ne . Ako je ispunjen, preskočit će ga, a ako nije, prikazati će poruke kroz MsgBox .

• Na kraju, samo se vratite na list i kliknite na gumb .

I vidite da prikazuje tri retka za tri polja kako sve su prazne .

Ispunio sam prvo polje i sada vidite, prikazuje samo poruke za sljedeća 2 polja .

Pročitajte više: Kako staviti više redaka u ćeliju programa Excel (2 laka načina)

Zaključak

Nadam se da će gore opisani postupci biti dovoljno dobri za stvaranje novog retka u MsgBoxu koristeći Excel VBA. Slobodno postavite bilo koje pitanje u odjeljku za komentare i dajte mi povratne informacije.