Gyakran használjuk MsgBox a oldalon. VBA hogy a kódok futtatása után megjelenjen az értesítés. Néha egyetlen sor nem tudja megfelelően megjeleníteni a kimenetet. Ilyenkor szükségünk van a új sorok hozzáadása . Tehát ebből a cikkből megtudhatja, hogy 6 hasznos makrók új sor hozzáadásához a MsgBox az Excel VBA segítségével.

Gyakorlati munkafüzet letöltése

Az ingyenes Excel-sablont letöltheti innen, és saját maga is gyakorolhatja.

6 példa új sor létrehozására az MsgBox-ban az Excel VBA használatával

1. A vbNewLine használata új sor hozzáadásához az MsgBox-ban az Excel VBA használatával

Itt a vbNewLine a oldalon. VBA makró egy sor hozzáadásához a MsgBox. Megmutatom " Helló! " az első sorban és " Üdvözöljük az ExcelWIKI-ben" a második sorban.

Lépések:

• Sajtó Alt + F11 a VBA ablak .
• Akkor kattints a címre. a következők szerint egy modul beillesztéséhez: Beillesztés ➤ Modul .

• Később írja be a következő kódokat.

 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Üdvözöljük az ExcelWIKI-ben" End Sub 

• Akkor visszamenni az Ön lap és kattints a címre. a következőképpen nyissa meg a Makrók párbeszédpanel: Fejlesztő ➤ Makrók .

• Válassza ki a címet. a Makró neve ahogyan azt a kódok .
• Végül csak nyomja meg a Fuss .

Most nézze meg, vbNewLine mutatja a kimenetet a két vonal .

Bővebben: VBA több sor generálása az Excel e-mail testében (2 módszer)

2. A vbCrLf használata új sor létrehozásához az MsgBox-ban a VBA használatával az Excelben

Most egy másik konstansot fogunk használni a VBA - vbCrLf egy új sor létrehozásához a MsgBox A két egymást követő sor közé egy új sort is beilleszt.

Lépések:

• Először is, kövesse a az első módszer első két lépése modul beillesztése a VBA
• Akkor írja a következőket kódok benne...

 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & vbCrLf & "Üdvözöljük az ExcelWIKI-ben" End Sub 

• Ezután kövesse a az első módszer negyedik lépése a Makró párbeszédpanel .
• Válassza ki a Makró neve és nyomja meg a Fuss .

Az állandó vbCrLf hozzáadta egy új sor a címen egy hézagvonal is.

Bővebben: Hogyan adjunk hozzá egy sort az Excel-cellában (5 egyszerű módszer)

3. A vbLf beillesztése új sor hozzáadásához az MsgBox-ban az Excel VBA használatával

Használjunk egy másik állandót. vbLf hozzáadni egy új sor az MsgBox-ban Excel VBA-ban.

Lépések:

• Kövesse a az első módszer első két lépése modul beillesztése a VBA
• Később, írja a következőket kódok benne...

 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Üdvözöljük az ExcelWIKI-ben" End Sub 

• Ezután kövesse a az első módszer negyedik lépése a Makró párbeszédpanel .
• Később válassza ki a Makró neve a kódokban és a sajtóban említettek szerint Fuss .

És nem sokkal később megkapja a kívánt kimenetet.

Bővebben: Új sor hozzáadása az Excel CONCATENATE képletével (5 módja)

4. Alkalmazza a Chr-t új sor létrehozására az MsgBox-ban a VBA használatával az Excelben

Itt a VBA két konstansát fogjuk használni. Chr(13) & Chr(10) sorok hozzáadásához.

Lépések:

• Kezdje a következővel az első módszer első két lépése modul beillesztése a VBA
• Akkor írja a következőket kódok benne...

 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Üdvözöljük az ExcelWIKI-ben" End Sub 

• Ezután kövesse a az első módszer negyedik lépése a Makró párbeszédpanel .
• Ezután válassza ki a hozzárendelt Makró neve és nyomja meg a Fuss .

Nézze meg, hogy ugyanazt a kimenetet kaptuk.

5. Új sor hozzáadása az Excel VBA makrón belül

Az előző módszerekben nem törtük meg a sorokat a kódban. Itt megszakítjuk és hozzáadjuk a sorokat a kódokon belül.

Lépések:

• Először is, kövesse a az első módszer első két lépése modul beillesztése a VBA
• Következő, írja a következőket kódok benne...

 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Üdvözöljük az ExcelWIKI-ben" End Sub 

• Később kövesse a az első módszer negyedik lépése a Makró párbeszédpanel .
• Ezután csak válassza ki a Makró neve és nyomja meg a Fuss .

Nézze, ez a makró van új sorral bővült a tartása egy hézagvonal a sorok között.

Bővebben: Hogyan készítsünk sortörést az Excelben (4 módja)

6. Beágyazott VBA új sorok hozzáadásához az MsgBox-ban gomb használatával

A legeslegutolsó módszerünkben kicsit másképp fogjuk elvégezni a feladatot. Beállítunk egy gomb sorok hozzáadásához a MsgBox .

6.1 Egyvonalas gomb

Először is, készítünk egy gombot egyetlen sor hozzáadásához. Ehhez készítettem egy adathalmazt, amely három cellát reprezentál a bemenet megadásához. Vezetéknév , Cím: , és Telefonszám Amikor rákattintunk a gomb , ellenőrzi a cellákat és ha üres cellát kap akkor az üzenet megjelenítése az adott cellához.

• Kattintson a címre. a következőképpen: Fejlesztő ➤ Insert majd válassza ki a címet. a téglalap alakú doboz a Form Controls szakasz .

• Nem sokkal később kap egy plusz jel a kurzorban, bal klikk a az egérrel és drag a lap a gomb mérete .

• Akkor jobb gombbal kattintva a egér a gomb és válassza a Szöveg szerkesztése a kontextus menü a gomb neve .

• Típus a Név és kattintson a lapon bárhová.

• Ismét jobb gombbal kattintva a egér a gomb és válassza a Makró hozzárendelése a kontextus menü hogy beállítson egy Makró .

• Ebben a pillanatban adjon egy Makró neve és nyomja meg a Új .

• Akkor típus a következőket kódok -

 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 If End Sub End Sub 

Kód lebontása

• Először is, létrehoztam egy Aleljárás SingleLine_Button .
• Ezután deklarált egy változót WS mint Munkalap .
• Ezután három IF utasítások a cellák ellenőrzéséhez, ha a cella tele van értékkel akkor ne törődj vele és ha üres cellát kap akkor megjelenik a megfelelő üzenet a oldalon keresztül MsgBox .

• Később, csak visszamenni az Ön lap és kattints a címre. a gomb .

Mivel a Vezetéknév mező üres, ezért jelenik meg az értesítési üzenet.

• Sajtó OK majd ellenőrzi a második mezőt.

A második a mező üres is, így ez új sorral bővítettem, hogy értesítsem .

Itt töltöttem meg a első mező és rákattintottam a gombra, és látom, hogy kihagyta ezt a mezőt, és a második mező az üzenet megjelenítéséhez.

6.2 Gomb több vonalhoz

Ennek a gombnak a hozzárendelésével egyszerre több sort is hozzáadhatunk az üzenetmezőhöz.

• Először is, kövesse az előző szakasz első 6 lépését hozzáadni egy gomb és rendeljen hozzá egy makró .

• Akkor típus a következőket kódok a 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 If Address = 0 Then Error_msg = Error_msgamp &; vbNewLine & "Please Insert Address!" End If If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Please Insert Phone Number!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Fontos figyelmeztetés!" Exit Sub End If End Sub 

Kód lebontása

• Itt létrehoztam egy Aleljárás Multiple_Line_Button .
• Ezután deklarált néhány változót WS Mint Munkalap és Vezetéknév , Cím: , Telefon , Hiba_msg Mint
• Később használt Len és Tartomány a mezők beállításához.
• Végül, használt Ha kijelentések ellenőrizni, hogy a mezők üresek vagy sem Ha kitöltve van, akkor kihagyja, ha nem, akkor üzeneteket fog mutatni a következő módon MsgBox .

• Végül, csak return a lapra és kattints a címre. a gomb .

És lásd, hogy ez mutatja három vonal a három terület mint ahogy mindannyian azok üres .

Megtöltöttem a első mező és most látom, hogy csak a következő üzeneteket mutatja meg következő 2 mező .

Bővebben: Hogyan helyezzen több sort az Excel-cellába (2 egyszerű módja)

Következtetés

Remélem, hogy a fent leírt eljárások elég jók lesznek ahhoz, hogy új sort hozzanak létre az MsgBox-ban az Excel VBA segítségével. Nyugodtan tegyen fel bármilyen kérdést a megjegyzés rovatban, és kérjük, adjon visszajelzést.