Często używamy MsgBox w VBA aby wyświetlić powiadomienie po uruchomieniu kodu. Czasami pojedyncza linia nie jest w stanie pokazać poprawnie danych wyjściowych. Wtedy musimy dodać nowe linie ...więc z tego artykułu, dowiesz się 6 przydatne Makra do dodawania nowej linii w MsgBox za pomocą programu Excel VBA.

Pobierz Zeszyt ćwiczeń

Darmowy szablon Excela możesz pobrać stąd i poćwiczyć samodzielnie.

6 Przykłady tworzenia nowej linii w MsgBox przy użyciu Excel VBA

1. użycie vbNewLine do dodania nowej linii w MsgBox przy użyciu Excel VBA

Tutaj użyjemy vbNewLine w Makro VBA aby dodać linię w MsgBox. Pokażę" Witam! " w pierwszej linii i " Witamy w ExcelWIKI" w drugiej linii.

Kroki:

• Naciśnij Alt + F11 aby otworzyć Okno VBA .
• Następnie kliknij w następujący sposób, aby wstawić moduł: Wkładka ➤ Moduł .

• Później wpisz w nim następujące kody-.

 Sub NewLine_vbNewLine() MsgBox "Witaj!" & vbNewLine & "Witaj w ExcelWIKI" End Sub 

• Następnie wracać do twojego arkusz oraz kliknij w następujący sposób, aby otworzyć Makra okno dialogowe: Programista ➤ Makra .

• Wybierz the Nazwa makra jak określono w kody .
• Na koniec wystarczy nacisnąć Uruchom .

A teraz spójrz, vbNewLine pokazuje dane wyjściowe w dwie linie .

Read More: VBA do generowania wielu wierszy w treści wiadomości e-mail w programie Excel (2 metody)

2. użycie vbCrLf do utworzenia nowej linii w MsgBox przy użyciu VBA w Excelu

Teraz użyjemy kolejnej stałej VBA - vbCrLf aby utworzyć nową linię w MsgBox Doda również nową linię pomiędzy dwoma kolejnymi liniami.

Kroki:

• Po pierwsze, postępuj zgodnie z dwa pierwsze kroki z pierwszej metody aby wstawić moduł do VBA
• Następnie pisać następujący kody w nim -

 Sub NewLine_vbCrLf() MsgBox "Witaj!" & vbCrLf & vbCrLf & "Witaj w ExcelWIKI" End Sub 

• Następnie należy postępować zgodnie z czwarty krok od pierwszej metody aby otworzyć Okno dialogowe Makro .
• Wybierz Nazwa makra i nacisnąć Uruchom .

Stała vbCrLf dodał nowa linia z linia przerwy też.

Read More: Jak dodać linię w komórce programu Excel (5 prostych metod)

3. wstawić vbLf, aby dodać nową linię w MsgBox przy użyciu Excel VBA

Użyjmy innej stałej-. vbLf dodać nowy wiersz w MsgBox w Excelu VBA.

Kroki:

• Podążaj za dwa pierwsze kroki z pierwszej metody aby wstawić moduł do VBA
• Później, pisać następujący kody w nim -

 Sub NewLine_vbLf() MsgBox "Witaj!" & vbLf & "Witaj w ExcelWIKI" End Sub 

• Następnie postępuj zgodnie z czwarty krok od pierwszej metody aby otworzyć Okno dialogowe Makro .
• Później należy wybrać Nazwa makra jak podano w kodach i naciśnij Uruchom .

I wkrótce po tym otrzymasz pożądane wyjście.

Read More: Jak dodać nową linię za pomocą formuły CONCATENATE w Excelu (5 sposobów)

4. zastosować Chr do tworzenia nowej linii w MsgBox przy użyciu VBA w Excelu

Tutaj użyjemy dwóch stałych z VBA-. Chr(13) & Chr(10) aby dodać linie.

Kroki:

• Zacznij od przestrzegania dwa pierwsze kroki z pierwszej metody aby wstawić moduł do VBA
• Następnie pisać następujący kody w nim -

 Sub NewLine_Chr() MsgBox "Witaj!" & Chr(13) & Chr(10) & "Witaj w ExcelWIKI" End Sub 

• Następnie należy postępować zgodnie z czwarty krok od pierwszej metody aby otworzyć Okno dialogowe Makro .
• Następnie wybierz przypisany Nazwa makra i nacisnąć Uruchom .

Zobacz, że otrzymaliśmy to samo wyjście.

5) Dodaj nowy wiersz w ramach makra w Excelu VBA

W poprzednich metodach nie łamaliśmy linii w kodzie, tutaj będziemy łamać i dodawać linie w obrębie kodów.

Kroki:

• Po pierwsze, postępuj zgodnie z dwa pierwsze kroki z pierwszej metody aby wstawić moduł do VBA
• Następny, pisać następujący kody w nim -

 Sub NewLine_within_Macro() MsgBox "Witaj!" & vbCrLf & vbCrLf & _ "Witaj w ExcelWIKI" End Sub. 

• Później postępuj zgodnie z czwarty krok od pierwszej metody aby otworzyć Okno dialogowe Makro .
• Następnie wystarczy wybrać Nazwa makra i nacisnąć Uruchom .

Teraz zobacz, że makro ma dodano nowy wiersz utrzymanie linia przerwy między wierszami.

Read More: Jak zrobić przerwę w linii w Excelu (4 sposoby)

6. wbudowane VBA do dodawania nowych wierszy w MsgBox za pomocą przycisku

W naszej ostatniej metodzie wykonamy to zadanie w nieco inny sposób, ustawiając na niej wskaźnik przycisk aby dodać linie w MsgBox .

6.1 Przycisk dla linii pojedynczej

Najpierw zrobimy przycisk do dodawania pojedynczego wiersza. W tym celu stworzyłem zbiór danych, który reprezentuje trzy komórki do podania danych wejściowych Nazwisko , Adres oraz Numer telefonu . When we'll click the przycisk to sprawdzi komórki i jeśli dostanie pustą komórkę wówczas będzie wyświetlić komunikat dla tej komórki.

• Kliknij w następujący sposób: Developer ➤ Insert a następnie wybierz the pudełko prostokątne od Sekcja Kontrole formularza .

• Wkrótce po tym, dostaniesz znak plusa w swoim kursorze, kliknij lewym przyciskiem myszy mysz i drag na arkusz aby ustawić wielkość przycisku .

• Następnie kliknij prawym przyciskiem myszy na stronie twój mysz na przycisk i wybrać Edycja tekstu od menu kontekstowe aby ustawić nazwa przycisku .

• Typ the Nazwa i kliknij w dowolnym miejscu na arkuszu.

• Ponownie kliknij prawym przyciskiem myszy na stronie twój mysz na przycisk i wybrać Przypisz Makro od menu kontekstowe ustawić Makro .

• W tym momencie, daj Nazwa makra i nacisnąć Nowy .

• Następnie typ następujący kody -

 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 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. 

Podział kodu

• Najpierw utworzyłem Procedura cząstkowa SingleLine_Button .
• Następnie zadeklarowano zmienną WS jako Arkusz roboczy .
• Następnie użył trzech stwierdzenia "IF aby sprawdzić komórki, czy komórka jest wypełniona wartością to będzie ignorować go oraz jeśli dostanie pustą komórkę to pokaże odpowiadający komunikat poprzez MsgBox .

• Później, po prostu wracać do twojego arkusz oraz kliknij the przycisk .

Jako że Nazwisko pole jest puste, dlatego wyświetla komunikat o powiadomieniu.

• Naciśnij OK a następnie sprawdzi drugie pole.

Drugi pole jest puste też, więc dodał nową linię, aby powiadomić go .

Tutaj, wypełniłem pierwsze pole i kliknął przycisk, i zobacz, że pominął to pole i przeskoczył do drugie pole aby wyświetlić komunikat.

6.2 Przycisk dla wielu linii

Przypisując ten przycisk, będziemy mogli dodawać wiele linii jednocześnie w polu wiadomości.

• Po pierwsze, wykonaj pierwsze 6 kroków z poprzedniej sekcji dodać przycisk i przypisać makro .

• Następnie typ następujący kody w 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 Phone = 0Then Error_msg = Error_msg & vbNewLine & "Please Insert Phone Number!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Important Caution!" Exit Sub End If End Sub. 

Podział kodu

• Tutaj utworzyłem Procedura cząstkowa Multiple_Line_Button .
• Następnie zadeklarowano kilka zmiennych WS Jak Arkusz roboczy oraz Last_Name , Adres , Telefon , Error_msg Jak
• Później użyto Len oraz Zakres aby ustawić pola.
• Wreszcie, wykorzystany Jeżeli oświadczenia aby sprawdzić, czy pola są puste lub nie Jeśli jest wypełnione, to pominie je, a jeśli nie, to pokaże wiadomości przez MsgBox .

• Wreszcie, po prostu powrót do arkusza i kliknij the przycisk .

I zobacz, że pokazuje trzy linie dla trzy pola jak oni wszyscy pusty .

Wypełniłem pierwsze pole i teraz zobacz, że pokazuje tylko wiadomości dla następne 2 pola .

Read More: Jak umieścić wiele linii w komórce programu Excel (2 proste sposoby)

Wniosek

Mam nadzieję, że opisane powyżej procedury będą wystarczająco dobre, aby utworzyć nowy wiersz w MsgBox za pomocą Excel VBA. Zapraszam do zadawania wszelkich pytań w sekcji komentarzy i proszę o informację zwrotną.