Často používame MsgBox na stránke VBA na zobrazenie oznámenia po spustení kódov. Niekedy sa na jednom riadku nedá správne zobraziť výstup. Vtedy potrebujeme pridať nové riadky . Takže z tohto článku sa dozviete 6 užitočné makrá na pridanie nového riadku v MsgBox pomocou programu Excel VBA.

Stiahnite si cvičebnicu

Bezplatnú šablónu programu Excel si môžete stiahnuť odtiaľto a precvičiť si ju sami.

6 príkladov na vytvorenie nového riadku v MsgBox pomocou programu Excel VBA

1. Použitie vbNewLine na pridanie nového riadku v MsgBox pomocou Excel VBA

Tu použijeme vbNewLine na stránke Makro VBA pridať riadok do MsgBox. Ukážem vám " Dobrý deň! " v prvom riadku a " Vitajte na stránkach ExcelWIKI" v druhom riadku.

Kroky:

• Tlač Alt + F11 otvoriť Okno VBA .
• Potom kliknite na na vloženie modulu takto: Vloženie modulu ➤ .

• Neskôr do nej zadajte nasledujúce kódy.

 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Welcome to ExcelWIKI" End Sub 

• Potom vrátiť sa späť do vášho list a kliknite na takto otvoriť Makrá dialógové okno: Vývojár ➤ Makrá .

• Vyberte . Názov makra ako je uvedené v kódy .
• Nakoniec stačí stlačiť Spustiť .

Teraz sa pozrite, vbNewLine zobrazuje výstup v dva riadky .

Prečítajte si viac: VBA na generovanie viacerých riadkov v tele e-mailu v programe Excel (2 metódy)

2. Použitie vbCrLf na vytvorenie nového riadku v MsgBox pomocou VBA v programe Excel

Teraz použijeme ďalšiu konštantu VBA - vbCrLf vytvoriť nový riadok v MsgBox . Pridá tiež nový riadok medzi dva po sebe idúce riadky.

Kroky:

• Najprv postupujte podľa prvé dva kroky z prvej metódy na vloženie modulu do VBA
• Potom napíšte nasledujúce kódy v ňom...

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

• Ďalej postupujte podľa štvrtý krok z prvej metódy otvoriť Dialógové okno makra .
• Vyberte Názov makra a stlačte Spustiť .

Konštanta vbCrLf pridala nový riadok s riadok s medzerou tiež.

Prečítajte si viac: Ako pridať riadok do bunky programu Excel (5 jednoduchých metód)

3. Vloženie vbLf na pridanie nového riadku v MsgBox pomocou Excel VBA

Použime ďalšiu konštantu - vbLf pridať nový riadok v MsgBox v programe Excel VBA.

Kroky:

• Sledujte prvé dva kroky z prvej metódy na vloženie modulu do VBA
• Neskôr, napíšte nasledujúce kódy v ňom...

 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Welcome to ExcelWIKI" End Sub 

• Potom postupujte podľa štvrtý krok z prvej metódy otvoriť Dialógové okno makra .
• Neskôr vyberte Názov makra ako je uvedené v kódoch a tlači Spustiť .

A čoskoro potom získate požadovaný výstup.

Prečítajte si viac: Ako pridať nový riadok pomocou vzorca CONCATENATE v programe Excel (5 spôsobov)

4. Aplikovať Chr na vytvorenie nového riadku v MsgBox pomocou VBA v programe Excel

Tu použijeme dve konštanty VBA- Chr(13) & Chr(10) na pridávanie riadkov.

Kroky:

• Začnite nasledovať prvé dva kroky z prvej metódy na vloženie modulu do VBA
• Potom napíšte nasledujúce kódy v ňom...

 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Welcome to ExcelWIKI" End Sub 

• Potom postupujte podľa štvrtý krok z prvej metódy otvoriť Dialógové okno makra .
• Potom vyberte priradené Názov makra a stlačte Spustiť .

Pozrite sa, že sme dostali rovnaký výstup.

5. Pridanie nového riadku v rámci makra v programe Excel VBA

V predchádzajúcich metódach sme riadky v kóde nelámali. Tu budeme riadky v rámci kódov lámať a pridávať.

Kroky:

• Najprv postupujte podľa prvé dva kroky z prvej metódy na vloženie modulu do VBA
• Ďalšie, napíšte nasledujúce kódy v ňom...

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

• Neskôr sledujte štvrtý krok z prvej metódy otvoriť Dialógové okno makra .
• Potom stačí vybrať Názov makra a stlačte Spustiť .

Pozrite sa, že makro má pridaný nový riadok udržiavanie riadok s medzerou medzi riadkami.

Prečítajte si viac: Ako urobiť zalomenie riadku v programe Excel (4 spôsoby)

6. Vloženie VBA na pridanie nových riadkov v MsgBox pomocou tlačidla

V našej úplne poslednej metóde vykonáme úlohu trochu iným spôsobom. Nastavíme tlačidlo pridať riadky v MsgBox .

6.1 Tlačidlo pre jeden riadok

Najprv vytvoríme tlačidlo na pridanie jedného riadku. Na tento účel som vytvoril súbor údajov, ktorý predstavuje tri bunky na zadanie vstupu Priezvisko , Adresa a Telefónne číslo . Keď klikneme na tlačidlo , skontroluje bunky a ak získa prázdnu bunku potom bude zobraziť správu pre túto bunku.

• Kliknite na . takto: Vývojár ➤ Vložiť a potom vybrať . obdĺžnikový box z Sekcia Ovládacie prvky formulára .

• Čoskoro potom dostanete znamienko plus v kurzoroch, kliknutie ľavým tlačidlom myši myšou a Drag na list nastaviť veľkosť tlačidla .

• Potom kliknutie pravým tlačidlom myši na vaše myš na tlačidlo a vyberte Upraviť text z kontextové menu nastaviť názov tlačidla .

• Typ . Názov a kliknite kdekoľvek na hárku.

• Opäť kliknutie pravým tlačidlom myši na vaše myš na tlačidlo a vyberte Priradenie makra z kontextové menu nastaviť Makro .

• V tejto chvíli dajte Názov makra a stlačte Nový .

• Potom typ nasledujúce kódy -

 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 WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End Sub 

Rozdelenie kódu

• Najprv som vytvoril Dílčí postup SingleLine_Button .
• Potom deklarujte premennú WS ako Pracovný list .
• Potom použil tri Príkazy IF skontrolovať bunky, ak je bunka vyplnená hodnotou potom bude ignorovať ho a ak získa prázdnu bunku potom sa zobrazí zodpovedajúca správa prostredníctvom stránky . MsgBox .

• Neskôr, len vrátiť sa späť do vášho list a kliknite na . tlačidlo .

Ako Priezvisko pole je prázdne, preto sa zobrazuje správa s upozornením.

• Tlač OK a potom skontroluje druhé pole.

Druhý pole je prázdne tiež tak, aby to pridal nový riadok, ktorý ho upozorňuje .

Tu som vyplnil prvé pole a kliknite na tlačidlo a uvidíte, že preskočil toto pole a skočil na druhé pole na zobrazenie správy.

6.2 Tlačidlo pre viac riadkov

Priradením tohto tlačidla budeme môcť do poľa správ pridávať viac riadkov naraz.

• Po prvé, vykonajte prvých 6 krokov z predchádzajúcej časti. pridať tlačidlo a priradiť makro .

• Potom typ nasledujúce kódy 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 = 0Potom Error_msg = Error_msg & vbNewLine & "Prosím vložte telefónne číslo!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Dôležité upozornenie!" Exit Sub End If End Sub 

Rozdelenie kódu

• Tu som vytvoril Dílčí postup Multiple_Line_Button .
• Potom vyhlásil niektoré premenné WS Ako Pracovný list a Last_Name , Adresa , Telefón , Error_msg Ako
• Neskôr sa používa Len a Rozsah na nastavenie polí.
• Nakoniec sa používa Príkazy If skontrolovať, či polia sú prázdne alebo nie Ak je vyplnená, preskočí ju a ak nie, zobrazí správy prostredníctvom MsgBox .

• Nakoniec len vrátiť na hárok a kliknite na . tlačidlo .

A vidíte, že sa zobrazuje tri riadky pre tri polia tak ako všetky. prázdne .

Naplnil som prvé pole a teraz vidíte, že sa zobrazujú len správy pre ďalšie 2 polia .

Prečítajte si viac: Ako vložiť viac riadkov do bunky programu Excel (2 jednoduché spôsoby)

Záver

Dúfam, že vyššie opísané postupy budú dostatočne dobré na vytvorenie nového riadku v MsgBox pomocou Excel VBA. Neváhajte položiť akúkoľvek otázku v sekcii komentárov a prosím, dajte mi spätnú väzbu.