Excel VBA: Crearea unei linii noi în MsgBox (6 exemple)

Hugh West

20-06-2023 Macros & Excel VBA
  • Imparte Asta
Hugh West

Folosim adesea MsgBox în VBA pentru a afișa notificarea după rularea codurilor. Uneori, o singură linie nu poate afișa ieșirea în mod corespunzător. Atunci trebuie să adăugați noi linii Deci, din acest articol, veți învăța 6 macrocomenzi utile pentru a adăuga o nouă linie în MsgBox utilizând Excel VBA.

Descărcați caietul de practică

Puteți descărca șablonul Excel gratuit de aici și puteți exersa pe cont propriu.

Crearea unei linii noi în MsgBox.xlsm

6 Exemple de creare a unei linii noi în MsgBox utilizând Excel VBA

1. Utilizați vbNewLine pentru a adăuga o nouă linie în MsgBox folosind Excel VBA

Aici, vom folosi vbNewLine în Macro VBA pentru a adăuga o linie în MsgBox. Voi arăta " Bună! " în prima linie și " Bine ați venit la ExcelWIKI" în a doua linie.

Pași:

  • Presa Alt + F11 pentru a deschide fereastra Fereastra VBA .
  • Apoi click după cum urmează pentru a introduce un modul: Introduceți modulul ➤ .

  • Mai târziu, introduceți în el următoarele coduri 
 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Bine ați venit la ExcelWIKI" End Sub

  • Apoi întoarce-te la dvs. foaie și click după cum urmează pentru a deschide fereastra Macros caseta de dialog: Dezvoltator ➤ Macros .

  • Selectați la Numele macroului așa cum se specifică în coduri .
  • În cele din urmă, trebuie doar să apăsați Rulați .

Acum aruncați o privire, vbNewLine afișează rezultatul în două linii .

Citește mai mult: VBA pentru a genera linii multiple în corpul e-mailului în Excel (2 metode)

2. Utilizați vbCrLf pentru a crea o nouă linie în MsgBox folosind VBA în Excel

Acum vom folosi o altă constantă de VBA - vbCrLf pentru a crea o nouă linie în MsgBox De asemenea, se va adăuga o nouă linie între cele două linii consecutive.

Pași:

  • În primul rând, urmați instrucțiunile primele două etape din prima metodă pentru a insera un modul în VBA
  • Apoi scrie următoarele coduri în ea... 
 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "Bine ați venit la ExcelWIKI" End Sub

  • În continuare, urmați instrucțiunile a patra etapă din prima metodă pentru a deschide fereastra Caseta de dialog Macro .
  • Selectați Numele macroului și apăsați Rulați .

Constanta vbCrLf a adăugat o nouă linie cu o linie de decalaj prea.

Citește mai mult: Cum să adăugați o linie în celula Excel (5 metode ușoare)

3. Introduceți vbLf pentru a adăuga o nouă linie în MsgBox folosind Excel VBA

Să folosim o altă constantă... vbLf pentru a adăuga un o nouă linie în MsgBox în Excel VBA.

Pași:

  • Urmați primele două etape din prima metodă pentru a insera un modul în VBA
  • Mai târziu, scrie următoarele coduri în ea... 
 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Bine ați venit la ExcelWIKI" End Sub

  • Apoi urmați instrucțiunile a patra etapă din prima metodă pentru a deschide fereastra Caseta de dialog Macro .
  • Ulterior, selectați Numele macroului așa cum se menționează în coduri și apăsați Rulați .

Și, la scurt timp după aceea, veți obține rezultatul dorit.

Citește mai mult: Cum să adăugați o nouă linie cu formula CONCATENATE în Excel (5 moduri)

4. Aplicați Chr pentru a crea o nouă linie în MsgBox folosind VBA în Excel

Aici, vom folosi două constante VBA- Chr(13) & Chr(10) pentru a adăuga linii.

Pași:

  • Începeți prin a urmări primele două etape din prima metodă pentru a introduce un modul în VBA
  • Apoi scrie următoarele coduri în ea... 
 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Bine ați venit la ExcelWIKI" End Sub

  • După aceea, urmați instrucțiunile a patra etapă din prima metodă pentru a deschide fereastra Caseta de dialog Macro .
  • Selectați apoi opțiunea atribuită Numele macroului și apăsați Rulați .

Observați că am obținut același rezultat.

5. Adăugați o nouă linie în cadrul macroului în Excel VBA

În metodele anterioare, nu am întrerupt linia în cod. Aici, vom întrerupe și vom adăuga linii în coduri.

Pași:

  • În primul rând, urmați instrucțiunile primele două etape din prima metodă pentru a insera un modul în VBA
  • Următorul, scrie următoarele coduri în ea... 
 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Bine ați venit la ExcelWIKI" End Sub

  • Ulterior, urmați a patra etapă din prima metodă pentru a deschide fereastra Caseta de dialog Macro .
  • Apoi, trebuie doar să selectați Numele macroului și apăsați Rulați .

Acum vedeți, că macro are a adăugat o nouă linie păstrarea o linie de decalaj între rânduri.

Citește mai mult: Cum se face o pauză de linie în Excel (4 moduri)

6. Încorporați VBA pentru a adăuga linii noi în MsgBox folosind butonul

În ultima noastră metodă, vom realiza sarcina într-un mod puțin diferit. Vom seta un parametru buton pentru a adăuga linii în MsgBox .

6.1 Buton pentru o singură linie

În primul rând, vom crea un buton pentru adăugarea unei singure linii. Pentru aceasta, am creat un set de date care reprezintă trei celule pentru a introduce date de intrare Numele de familie , Adresa , și Număr de telefon . când vom da click pe butonul buton , se vor verifica celulele și dacă primește o celulă goală atunci va afișați mesajul pentru celula respectivă.

  • Faceți clic pe după cum urmează: Dezvoltator ➤ Insert și apoi selectați la cutie dreptunghiulară de la Secțiunea Controale formular .

  • La scurt timp după aceea, veți primi un semnul plus în cursorul dumneavoastră, faceți clic stânga pe mouse-ul și trageți pe foaie pentru a seta dimensiunea butonului .

  • Apoi faceți clic dreapta pe dumneavoastră șoarece pe buton și selectați Editare text de la meniul contextual pentru a seta numele butonului .

  • Tip la Nume și faceți clic oriunde pe foaie.

  • Din nou faceți clic dreapta pe dumneavoastră șoarece pe buton și selectați Atribuire macro de la meniul contextual pentru a stabili un Macro .

  • În acest moment, dați un Numele macroului și apăsați Nou .

  • Apoi tip următoarele coduri - 
 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 WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End If End Sub

Defalcarea codului

  • În primul rând, am creat un fișier Subprocedură SingleLine_Button .
  • Apoi a declarat o variabilă WS ca Fișa de lucru .
  • Apoi a folosit trei Instrucțiuni IF pentru a verifica celulele, dacă celula este umplută cu valoare atunci se va Ignor-o. și dacă primește o celulă goală apoi va arăta mesajul corespunzător prin MsgBox .
  • Mai târziu, doar întoarce-te la dvs. foaie și click la buton .

Pe măsură ce Numele de familie este gol, de aceea se afișează mesajul de notificare.

  • Apăsați OK și apoi va verifica al doilea câmp.

Al doilea câmpul este gol de asemenea, astfel încât acesta a adăugat o nouă linie pentru a o notifica .

Aici, am umplut primul câmp și am făcut clic pe buton, și am văzut că a sărit peste acel câmp și a trecut la câmpul al doilea câmp pentru a afișa mesajul.

6.2 Butonul pentru linii multiple

Prin atribuirea acestui buton, vom putea adăuga mai multe rânduri la un moment dat în caseta de mesaje.

  • În primul rând, urmați primii 6 pași din secțiunea anterioară pentru a adăuga un buton și atribuiți un macro .

  • Apoi tip următoarele coduri în macro- 
 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 = "Vă rugăm să introduceți numele de familie!" End If If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Vă rugăm să introduceți adresa!" End If If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Vă rugăm să introduceți numărul de telefon!" End If If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Atenție importantă!" Exit Sub End If End Sub

Defalcarea codului

  • Aici, am creat un Subprocedură Multiple_Line_Button .
  • Apoi a declarat câteva variabile WS Ca Fișa de lucru și Nume_de_familie , Adresa , Telefon , Error_msg Ca
  • Mai târziu, a folosit Len și Gama pentru a seta câmpurile.
  • În cele din urmă, folosit Dacă declarațiile If pentru a verifica dacă câmpurile sunt goale sau nu Dacă este completat, atunci va sări peste el, iar dacă nu, atunci va afișa mesaje prin MsgBox .
  • În cele din urmă, doar return la foaie și click la buton .

Și vezi că se vede trei linii pentru trei domenii așa cum sunt toate gol .

Am umplut primul câmp și acum vedeți, se afișează doar mesaje pentru următoarele 2 câmpuri .

Citește mai mult: Cum să puneți mai multe linii în celula Excel (2 moduri simple)

Concluzie

Sper că procedurile descrise mai sus vor fi suficient de bune pentru a crea o nouă linie în MsgBox folosind Excel VBA. Nu ezitați să puneți orice întrebare în secțiunea de comentarii și vă rog să-mi oferiți feedback.

Postarea anterioară Cum să eliminați spațiul alb în Excel (6 moduri simple)
Postarea următoare Cum să numărați numărul de caractere dintr-o celulă în Excel (cele mai simple 6 moduri)

Hugh West este un trainer și analist Excel cu o experiență de peste 10 ani în industrie. Deține o diplomă de licență în contabilitate și finanțe și un master în administrarea afacerilor. Hugh are o pasiune pentru predare și a dezvoltat o abordare unică de predare care este ușor de urmărit și de înțeles. Cunoștințele sale experte despre Excel au ajutat mii de studenți și profesioniști din întreaga lume să-și îmbunătățească abilitățile și să exceleze în cariera lor. Prin blogul său, Hugh își împărtășește cunoștințele lumii, oferind tutoriale gratuite Excel și instruire online pentru a ajuta persoanele și companiile să-și atingă întregul potențial.