Me kasutame sageli MsgBox aadressil VBA et näidata pärast koodide käivitamist teateid. Mõnikord ei saa ühe rea väljundit korralikult näidata. Siis tuleb meil kasutada lisada uusi ridu . Nii et sellest artiklist saate teada 6 kasulikud makros uue rea lisamiseks MsgBox kasutades Exceli VBA-d.

Lae alla praktiline töövihik

Võite tasuta Exceli malli siit alla laadida ja ise harjutada.

6 näidet uue rea loomiseks MsgBoxis Exceli VBA abil

1. Kasutage vbNewLine, et lisada uus rida MsgBoxis Exceli VBA abil

Siinkohal kasutame vbNewLine aadressil VBA makro lisada rida MsgBox. Ma näitan " Tere! " esimeses reas ja " Tere tulemast ExcelWIKI-sse" teises reas.

Sammud:

• Press Alt + F11 avada VBA aken .
• Siis kliki mooduli sisestamiseks järgmiselt: Sisesta ➤ Moodul .

• Hiljem sisestage sinna järgmised koodid-

 Sub NewLine_vbNewLine() MsgBox "Tere!" & vbNewLine & "Tere tulemast ExcelWIKI" End Sub 

• Siis tagasi minna teie leht ja kliki järgmiselt, et avada Makros dialoogiaknas: Arendaja ➤ Makros .

• Valige . Makro nimi nagu on täpsustatud koodid .
• Lõpuks vajutage lihtsalt Käivita .

Nüüd vaadake, vbNewLine näitab väljundit kaks rida .

Loe edasi: VBA mitme rea genereerimiseks Exceli e-posti kehas (2 meetodit)

2. Kasutage vbCrLf uue rea loomiseks MsgBoxis VBA abil Excelis

Nüüd kasutame veel ühte konstanti VBA - vbCrLf et luua uus rida dokumendis MsgBox See lisab ka uue rea kahe järjestikuse rea vahele.

Sammud:

• Kõigepealt järgige esimese meetodi kaks esimest sammu mooduli sisestamiseks moodulisse VBA
• Siis kirjutada järgmine koodid selles -

 Sub NewLine_vbCrLf() MsgBox "Tere!" & vbCrLf & vbCrLf & "Tere tulemast ExcelWIKI-sse" End Sub 

• Järgnevalt järgige neljas samm alates esimesest meetodist avada Makro dialoogiboks .
• Valige Makro nimi ja vajutage Käivita .

Pidev vbCrLf on lisanud uus rida koos vahejoon ka.

Loe edasi: Kuidas lisada Exceli lahtrisse rida (5 lihtsat meetodit)

3. Sisestage vbLf uue rea lisamiseks MsgBoxis Exceli VBA abil

Kasutame veel üht konstanti... vbLf lisada uus rida MsgBoxis Excel VBAs.

Sammud:

• Järgige esimese meetodi kaks esimest sammu mooduli sisestamiseks moodulisse VBA
• Hiljem, kirjutada järgmine koodid selles-

 Sub NewLine_vbLf() MsgBox "Tere!" & vbLf & "Tere tulemast ExcelWIKI" End Sub 

• Seejärel järgige neljas samm alates esimesest meetodist avada Makro dialoogiboks .
• Hiljem valige Makro nimi nagu on märgitud koodides ja ajakirjanduses Käivita .

Ja varsti pärast seda saate soovitud tulemuse.

Loe edasi: Kuidas lisada uus rida CONCATENATE valemiga Excelis (5 võimalust)

4. Rakendage Chr uue rea loomiseks MsgBoxis VBA abil Excelis

Siinkohal kasutame kahte VBA konstanti- Chr(13) & Chr(10) ridade lisamiseks.

Sammud:

• Alustage järgides esimese meetodi kaks esimest sammu mooduli lisamiseks moodulisse VBA
• Siis kirjutada järgmine koodid selles -

 Sub NewLine_Chr() MsgBox "Tere!" & Chr(13) & Chr(10) & "Tere tulemast ExcelWIKI" End Sub 

• Pärast seda järgige neljas samm alates esimesest meetodist avada Makro dialoogiboks .
• Seejärel valige määratud Makro nimi ja vajutage Käivita .

Vaadake, et meil on sama väljund.

5. Uue rea lisamine makro sees Excel VBAs

Eelmiste meetodite puhul me ei katkestanud koodis olevaid ridu. Siin katkestame ja lisame koodide sees olevaid ridu.

Sammud:

• Kõigepealt järgige kaks esimest sammu esimesest meetodist mooduli sisestamiseks moodulisse VBA
• Järgmine, kirjutada järgmine koodid selles-

 Sub NewLine_within_Macro() MsgBox "Tere!" & vbCrLf & vbCrLf & _ "Tere tulemast ExcelWIKI-sse" End Sub 

• Hiljem järgige neljas samm alates esimesest meetodist avada Makro dialoogiboks .
• Seejärel valige lihtsalt Makro nimi ja vajutage Käivita .

Nüüd vaata, et makro on lisatud uus rida hoidmine vahejoon ridade vahel.

Loe edasi: Kuidas teha reavahet Excelis (4 võimalust)

6. Embed VBA, et lisada uusi ridu MsgBoxi kasutades nuppu

Meie kõige viimases meetodis teeme ülesande natuke teistmoodi. Seame ülesannet nupp ridade lisamiseks MsgBox .

6.1 Ühe rea nupp

Kõigepealt teeme nupu ühe rea lisamiseks. Selleks olen teinud andmekogumi, mis kujutab endast kolme lahtrit, et anda sisendit Perekonnanimi , Aadress ja Telefoninumber Kui me klõpsame nupp , see kontrollib rakke ja kui saab tühja lahtri siis näidata sõnumit selle raku jaoks.

• Klõpsake järgmiselt: Arendaja ➤ Insert ja siis valige . ristkülikukujuline kast alates Vormi Controls sektsioon .

• Varsti pärast seda saate te plussmärk teie kursoril, vasakpoolne klõps teie hiir ja drag kohta leht määrata nupu suurus .

• Siis paremklikk teie hiir kohta nupp ja valige Teksti redigeerimine alates kontekstmenüü määrata nupu nimi .

• Tüüp . Nimi ja klõpsake kuskil lehel.

• Jällegi paremklikk teie hiir kohta nupp ja valige Makro määramine alates kontekstmenüü määrata Makro .

• Sel hetkel anna Makro nimi ja vajutage Uus .

• Siis tüüp järgmine koodid -

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

Koodide lahtimõtestamine

• Kõigepealt lõin ma Alammenetlus SingleLine_Button .
• Seejärel deklareeritakse muutuja WS nagu Tööleht .
• Siis kasutas kolm IF avaldused rakkude kontrollimiseks, kui lahter on täidetud väärtusega siis on see ignoreeri seda ja kui saab tühja lahtri siis näitab vastav sõnum läbi MsgBox .

• Hiljem, lihtsalt tagasi minna teie leht ja kliki . nupp .

Kuna Perekonnanimi väli on tühi, mistõttu kuvatakse teavitussõnumit.

• Press OK ja seejärel kontrollitakse teist välja.

Teine väli on tühi liiga nii, et see lisatud uus rida, et teavitada seda .

Siin ma täitsin esimene väli ja vajutasin nupule, ja näen, et see jättis selle välja vahele ja hüppas edasi teine väli sõnumi näitamiseks.

6.2 Mitme rea nupp

Selle nupu määramisega saame lisada mitu rida korraga sõnumikasti.

• Esiteks, järgige esimesi 6 sammu eelmisest lõigust lisada nupp ja määrata makro .

• Siis tüüp järgmine koodid 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 & "Palun sisestage telefoninumber!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Oluline ettevaatus!" Exit Sub End If End Sub 

Koodide lahtimõtestamine

• Siinkohal lõin ma Alammenetlus Multiple_Line_Button .
• Seejärel deklareeritakse mõned muutujad WS Nagu Tööleht ja Perekonnanimi , Aadress , Telefon , Error_msg Nagu
• Hiljem kasutatud Len ja Range väljade määramiseks.
• Lõpuks, kasutatud Kui avaldused kontrollida, kas väljad on tühjad või mitte Kui see on täidetud, siis jätab selle vahele ja kui mitte, siis näitab sõnumeid läbi MsgBox .

• Lõpuks, lihtsalt return lehele ja kliki . nupp .

Ja vaata, et see näitab kolm rida jaoks kolm valdkonda nagu nad kõik on tühi .

Ma täitsin esimene väli ja nüüd näed, see näitab ainult sõnumeid, mis on mõeldud järgmised 2 välja .

Loe edasi: Kuidas panna mitu rida Exceli lahtrisse (2 lihtsat viisi)

Kokkuvõte

Ma loodan, et eespool kirjeldatud protseduurid on piisavalt head, et luua uus rida MsgBoxis Exceli VBA abil. Võite vabalt küsida mis tahes küsimust kommentaaride sektsioonis ja palun andke mulle tagasisidet.