Často používáme MsgBox na adrese VBA aby se po spuštění kódů zobrazilo oznámení. Někdy nelze správně zobrazit výstup z jednoho řádku. Pak potřebujeme, aby se přidat nové řádky . Takže z tohoto článku se dozvíte 6 užitečná makra pro přidání nového řádku v MsgBox pomocí aplikace Excel VBA.

Stáhnout cvičebnici

Bezplatnou šablonu Excelu si můžete stáhnout zde a procvičit si ji sami.

6 příkladů na vytvoření nového řádku v MsgBoxu pomocí aplikace Excel VBA

1. Použití vbNewLine k přidání nového řádku v MsgBoxu pomocí Excel VBA

Zde použijeme vbNewLine na adrese Makro VBA přidat řádek do MsgBox. Ukážu vám " Dobrý den! " v prvním řádku a " Vítejte v ExcelWIKI" ve druhém řádku.

Kroky:

• Tisk Alt + F11 otevřít Okno VBA .
• Pak klikněte na vložit modul následujícím způsobem: Vložení modulu ➤ .

• Později do něj zadejte následující kódy.

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

• Pak vrátit se zpět k vašemu list a klikněte na otevřít následujícím způsobem Makra dialogové okno: Vývojář ➤ Makra .

• Vyberte na Název makra jak je uvedeno v kódy .
• Nakonec stačí stisknout Spustit .

Nyní se podívejte, vbNewLine zobrazuje výstup v dva řádky .

Přečtěte si více: Generování více řádků v těle e-mailu v aplikaci Excel pomocí VBA (2 metody)

2. Použití vbCrLf k vytvoření nového řádku v MsgBoxu pomocí VBA v aplikaci Excel

Nyní použijeme další konstantu VBA - vbCrLf vytvořit nový řádek v MsgBox . Přidá také nový řádek mezi dva po sobě jdoucí řádky.

Kroky:

• Nejprve postupujte podle první dva kroky první metody vložit modul do VBA
• Pak napsat následující kódy v něm...

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

• Dále postupujte podle čtvrtý krok z první metody otevřít Dialogové okno Makro .
• Vyberte Název makra a stiskněte Spustit .

Konstantní vbCrLf přidala nový řádek s mezera také.

Přečtěte si více: Jak přidat řádek do buňky aplikace Excel (5 snadných metod)

3. Vložení vbLf pro přidání nového řádku v MsgBoxu pomocí Excel VBA

Použijme jinou konstantu - vbLf přidat nový řádek v MsgBox v aplikaci Excel VBA.

Kroky:

• Sledujte první dva kroky první metody vložit modul do VBA
• Později, napsat následující kódy v něm...

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

• Pak postupujte podle čtvrtý krok z první metody otevřít Dialogové okno Makro .
• Později vyberte Název makra jak je uvedeno v kódech a tisku Spustit .

A brzy poté získáte požadovaný výstup.

Přečtěte si více: Jak přidat nový řádek pomocí vzorce CONCATENATE v aplikaci Excel (5 způsobů)

4. Použít Chr pro vytvoření nového řádku v MsgBoxu pomocí VBA v aplikaci Excel

Zde použijeme dvě konstanty VBA- Chr(13) & Chr(10) přidat řádky.

Kroky:

• Začněte tím, že se budete řídit první dva kroky první metody vložit modul do VBA
• Pak napsat následující kódy v něm...

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

• Poté postupujte podle čtvrtý krok z první metody otevřít Dialogové okno Makro .
• Poté vyberte přiřazené Název makra a stiskněte Spustit .

Podívejte se, že máme stejný výstup.

5. Přidání nového řádku v makru v aplikaci Excel VBA

V předchozích metodách jsme řádek v kódu nezalomili. Zde zalomíme a přidáme řádky v rámci kódů.

Kroky:

• Nejprve postupujte podle první dva kroky první metody vložit modul do VBA
• Další, napsat následující kódy v něm...

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

• Později sledujte čtvrtý krok z první metody otevřít Dialogové okno Makro .
• Pak stačí vybrat Název makra a stiskněte Spustit .

Podívejte se, že makro má adresu přidán nový řádek udržování mezera mezi řádky.

Přečtěte si více: Jak v aplikaci Excel vytvořit zalomení řádku (4 způsoby)

6. Vložení VBA pro přidání nových řádků v MsgBoxu pomocí tlačítka

V naší úplně poslední metodě provedeme úkol trochu jiným způsobem. Nastavíme hodnotu tlačítko přidat řádky v MsgBox .

6.1 Tlačítko pro jeden řádek

Nejprve vytvoříme tlačítko pro přidání jednoho řádku. Za tímto účelem jsem vytvořil datovou sadu, která představuje tři buňky pro zadání vstupu. Příjmení , Adresa a Telefonní číslo Když klikneme na tlačítko , zkontroluje buňky a pokud získá prázdnou buňku pak bude zobrazit zprávu pro tuto buňku.

• Klikněte na takto: Vývojář ➤ Vložení a pak vybrat na obdélníkový box z Sekce Ovládací prvky formuláře .

• Brzy poté obdržíte znaménko plus v kurzoru, kliknutí levým tlačítkem myši na myší a přetahování na list nastavit velikost tlačítka .

• Pak klikněte pravým tlačítkem myši na vaše myš na tlačítko a vyberte Upravit text z kontextová nabídka nastavit název tlačítka .

• Typ na Název a klikněte kamkoli na list.

• Opět klikněte pravým tlačítkem myši na vaše myš na tlačítko a vyberte Přiřazení makra z kontextová nabídka nastavit Makro .

• V tuto chvíli dejte Název makra a stiskněte Nový .

• Pak typ následující 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 

Rozdělení kódu

• Nejprve jsem vytvořil Dílčí postup SingleLine_Button .
• Pak deklarujte proměnnou WS jako Pracovní list .
• Pak použil tři Příkazy IF zkontrolovat buňky, pokud je buňka vyplněna hodnotou pak bude ignorovat ji a pokud získá prázdnou buňku pak se zobrazí odpovídající zpráva prostřednictvím MsgBox .

• Později, jen vrátit se zpět k vašemu list a klikněte na na tlačítko .

Jako Příjmení je prázdné, proto se zobrazuje zpráva s oznámením.

• Tisk OK a poté zkontroluje druhé pole.

Druhý pole je prázdné také tak, aby to přidán nový řádek, který ji upozorňuje .

Zde jsem vyplnil první pole a kliknul na tlačítko a zjistil, že toto pole přeskočilo a přešlo na pole druhé pole zobrazit zprávu.

6.2 Tlačítko pro více řádků

Přiřazením tohoto tlačítka budeme moci do pole zprávy přidávat více řádků najednou.

• Za prvé, postupujte podle prvních 6 kroků z předchozí části přidat tlačítko a přiřadit makro .

• Pak typ následující kódy v makru

 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 = 0Pak Error_msg = Error_msg & vbNewLine & "Vložte prosím telefonní číslo!" End If If Error_msg "" Pak MsgBox Error_msg, vbOKOnly, Title:="Důležité upozornění!" Exit Sub End If End Sub 

Rozdělení kódu

• Zde jsem vytvořil Dílčí postup Multiple_Line_Button .
• Pak deklaroval některé proměnné WS Jako Pracovní list a Příjmení_jméno , Adresa , Telefon , Error_msg Jako
• Později použil Len a Rozsah nastavit pole.
• Nakonec použil Příkazy If zkontrolovat, zda pole jsou prázdná nebo ne . Pokud je vyplněna, přeskočí ji, a pokud ne, zobrazí zprávy prostřednictvím MsgBox .

• Nakonec jen vrátit na list a klikněte na . tlačítko .

A vidíte, že se zobrazuje tři řádky pro tři pole stejně jako všechny ostatní prázdný .

Naplnil jsem první pole a nyní vidíte, že se zobrazují pouze zprávy pro další 2 pole .

Přečtěte si více: Jak vložit více řádků do buňky aplikace Excel (2 snadné způsoby)

Závěr

Doufám, že výše popsané postupy budou dostatečně dobré pro vytvoření nového řádku v MsgBoxu pomocí Excel VBA. Neváhejte se zeptat na jakýkoli dotaz v sekci komentářů a prosím o zpětnou vazbu.