Pogosto uporabljamo MsgBox na spletnem mestu VBA za prikaz obvestila po zagonu kod. Včasih ena sama vrstica ne more pravilno prikazati izpisa. Takrat moramo dodajanje novih vrstic . V tem članku se boste naučili 6 koristni makri za dodajanje nove vrstice v MsgBox z uporabo programa Excel VBA.

Prenesi delovni zvezek za prakso

Brezplačno predlogo Excel lahko prenesete s tega mesta in jo uporabite sami.

6 primerov za ustvarjanje nove vrstice v MsgBoxu z uporabo programa Excel VBA

1. Uporaba vbNewLine za dodajanje nove vrstice v MsgBox z uporabo programa Excel VBA

V tem primeru bomo uporabili vbNewLine na spletnem mestu Makro VBA za dodajanje vrstice v MsgBox. Pokazal bom " Pozdravljeni! " v prvi vrstici in " Dobrodošli v ExcelWIKI" v drugi vrstici.

Koraki:

• Pritisnite Alt + F11 da odprete Okno VBA .
• Nato kliknite vstavite modul na naslednji način: Vstavljanje ➤ Modul .

• Pozneje vanj vnesite naslednje kode.

 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Dobrodošli v ExcelWIKI" End Sub 

• Nato vrnite se nazaj v svoj list in . kliknite za odprtje Makroji pogovorno okno: Razvijalec ➤ Makroji .

• Izberite . Ime makra kot je določeno v kode .
• Na koncu pritisnite Spustite .

Zdaj si oglejte, vbNewLine prikazuje izhod v dve vrstici .

Preberite več: VBA za ustvarjanje več vrstic v telesu e-pošte v Excelu (2 metodi)

2. Uporaba vbCrLf za ustvarjanje nove vrstice v MsgBoxu z uporabo VBA v Excelu

Zdaj bomo uporabili še eno konstanto VBA - vbCrLf za ustvarjanje nove vrstice v MsgBox Prav tako bo dodal novo vrstico med dve zaporedni vrstici.

Koraki:

• Najprej sledite prva dva koraka iz prve metode za vstavitev modula v VBA
• Nato napišite naslednje kode v njem...

 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "Welcome to ExcelWIKI" End Sub 

• Nato sledite navodilom četrti korak iz prve metode da odprete Pogovorno okno Makro .
• Izberite Ime makra in pritisnite Spustite .

Konstanta vbCrLf je dodal nova vrstica s spletno stranjo . črta vrzeli tudi.

Preberite več: Kako dodati vrstico v Excelovo celico (5 enostavnih metod)

3. Vstavljanje vbLf za dodajanje nove vrstice v MsgBox z uporabo programa Excel VBA

Uporabimo drugo konstanto - vbLf da dodate nova vrstica v MsgBox v programu Excel VBA.

Koraki:

• Sledite prva dva koraka iz prve metode za vstavitev modula v VBA
• Kasneje, napišite naslednje kode v njem...

 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Dobrodošli v ExcelWIKI" End Sub 

• Nato sledite četrti korak iz prve metode da odprete Pogovorno okno Makro .
• Kasneje izberite Ime makra kot je navedeno v kodah, in pritisnite Spustite .

In kmalu zatem boste dobili želeni rezultat.

Preberite več: Kako dodati novo vrstico s formulo CONCATENATE v Excelu (5 načinov)

4. Uporabite Chr za ustvarjanje nove vrstice v MsgBoxu z uporabo VBA v Excelu

Tu bomo uporabili dve konstanti VBA - Chr(13) & Chr(10) za dodajanje vrstic.

Koraki:

• Začnite z upoštevanjem prva dva koraka iz prve metode za vstavitev modula v VBA
• Nato napišite naslednje kode v njem...

 Sub NewLine_Chr() MsgBox "Pozdravljeni!" & Chr(13) & Chr(10) & "Dobrodošli v ExcelWIKI" End Sub 

• Nato sledite navodilom četrti korak iz prve metode da odprete Pogovorno okno Makro .
• Nato izberite dodeljeno Ime makra in pritisnite Spustite .

Oglejte si, da smo dobili enak rezultat.

5. Dodajanje nove vrstice v makro program Excel VBA

V prejšnjih metodah nismo prekinili vrstice v kodi. Tukaj bomo prekinili in dodali vrstice znotraj kod.

Koraki:

• Najprej sledite prva dva koraka iz prve metode za vstavitev modula v VBA
• Naslednji, napišite naslednje kode v njem...

 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Dobrodošli v ExcelWIKI" End Sub 

• Kasneje sledite četrti korak iz prve metode da odprete Pogovorno okno Makro .
• Nato samo izberite Ime makra in pritisnite Spustite .

Poglej, da makro ima . dodal novo vrstico vodenje črta vrzeli med vrsticami.

Preberite več: Kako narediti prelom vrstice v Excelu (4 načini)

6. Vgradnja VBA za dodajanje novih vrstic v MsgBox z uporabo gumba

V naši zadnji metodi bomo nalogo opravili na nekoliko drugačen način. gumb za dodajanje vrstic v MsgBox .

6.1 Gumb za eno vrstico

Najprej bomo naredili gumb za dodajanje ene vrstice. V ta namen sem naredil podatkovni niz, ki predstavlja tri celice za vnos Priimek , Naslov in Telefonska številka . Ko bomo kliknili gumb , bo preveril celice in če dobi prazno celico potem bo prikaže sporočilo za to celico.

• Kliknite . na naslednji način: Razvijalec ➤ Vstavljanje in nato izberite . pravokotna škatla iz Razdelek Nadzor obrazca .

• Kmalu zatem boste prejeli znak plus v kazalcu, z levim klikom miške miško in povlecite na list za nastavitev velikost gumba .

• Nato z desnim klikom miške kliknite . vaš miška na gumb in izberite Urejanje besedila iz kontekstni meni za nastavitev ime gumba .

• Tip . Ime in kliknite kjer koli na listu.

• Ponovno z desnim klikom miške kliknite . vaš miška na gumb in izberite Dodelitev makra iz kontekstni meni za nastavitev Makro .

• V tem trenutku dajte Ime makra in pritisnite Novo .

• Nato vrsta naslednje kode -

 Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Please Insert Last Name!" End If If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address!" End If If WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End Sub 

Razčlenitev kode

• Najprej sem ustvaril Podpostopek SingleLine_Button .
• Nato razglasi spremenljivko WS kot Delovni list .
• Nato uporabite tri stavki IF preverite celice, če je celica napolnjena z vrednostjo potem bo ga ne upoštevajte. in . če dobi prazno celico nato se prikaže ustrezno sporočilo prek spletne strani . MsgBox .

• Kasneje, samo vrnite se nazaj v svoj list in . kliknite . gumb .

Kot Priimek polje je prazno, zato se prikaže sporočilo z obvestilom.

• Pritisnite V REDU in nato preveri drugo polje.

Drugi polje je prazno. tudi tako, da je dodal novo vrstico za obvestilo .

Tu sem napolnil prvo polje in kliknil na gumb ter videl, da je preskočil to polje in preskočil na polje drugo polje za prikaz sporočila.

6.2 Gumb za več vrstic

Z dodelitvijo tega gumba bomo lahko v polje za sporočila dodali več vrstic hkrati.

• Najprej, upoštevajte prvih 6 korakov iz prejšnjega poglavja. da dodate gumb in dodelite makro .

• Nato vrsta naslednje kode v makro-

 Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4")) Address = Len(WS.Range("C5")) Phone = Len(WS.Range("C6")) If Last_Name = 0 Then Error_msg = "Please Insert Last Name!" End If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Please Insert Address!" End If If Phone = 0Potem Error_msg = Error_msg & vbNewLine & "Prosimo, vstavite telefonsko številko!" End If If Error_msg "" Potem MsgBox Error_msg, vbOKOnly, Naslov:="Pomembno opozorilo!" Exit Sub End If End Sub 

Razčlenitev kode

• Tu sem ustvaril Podpostopek Gumb Multiple_Line_Button .
• Nato razglasi nekaj spremenljivk WS Kot Delovni list in . Last_Name , Naslov , Telefon , Error_msg Kot
• Pozneje je bil uporabljen Len in . Razpon za nastavitev polj.
• Končno, uporabljen Če izjave za preverjanje, ali polja so prazna ali ne Če je napolnjena, jo bo preskočil, če pa ni, bo prikazal sporočila prek MsgBox .

• Končno, samo vrniti na list in kliknite . gumb .

In glej, da je prikazano tri vrstice za tri polja kot so vsi. prazno .

Napolnil sem prvo polje in zdaj vidite, da prikazuje samo sporočila za naslednji 2 polji .

Preberite več: Kako postaviti več vrstic v Excelovo celico (2 preprosta načina)

Zaključek

Upam, da bodo zgoraj opisani postopki dovolj dobri za ustvarjanje nove vrstice v MsgBoxu z uporabo programa Excel VBA. Vabim vas, da v razdelku s komentarji postavite kakršno koli vprašanje in mi prosim sporočite povratne informacije.