Excel VBA: Creare una nuova riga in MsgBox (6 esempi)

Hugh West

20-06-2023 Macro e VBA di Excel
  • Condividi Questo
Hugh West

Spesso utilizziamo MsgBox in VBA per mostrare la notifica dopo l'esecuzione dei codici. A volte una singola riga non può mostrare l'output in modo corretto. Allora abbiamo bisogno di aggiungere nuove linee Quindi, da questo articolo, imparerete 6 utili macro per aggiungere una nuova riga in MsgBox utilizzando Excel VBA.

Scarica il quaderno di esercizi

Potete scaricare il modello Excel gratuito da qui ed esercitarvi da soli.

Creare una nuova riga in MsgBox.xlsm

6 esempi per creare una nuova riga in MsgBox usando Excel VBA

1. Usare vbNewLine per aggiungere una nuova riga in MsgBox usando Excel VBA

Qui si utilizzerà vbNewLine in Macro VBA per aggiungere una riga in MsgBox. Mostrerò " Ciao! " nella prima riga e " Benvenuti in ExcelWIKI" nella seconda riga.

Passi:

  • Stampa Alt + F11 per aprire il Finestra VBA .
  • Allora clicca come segue per inserire un modulo: Inserimento del modulo ➤ .

  • Successivamente, digitate i seguenti codici in esso. 
 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Welcome to ExcelWIKI" End Sub

  • Allora tornare indietro al vostro foglio e clicca come segue per aprire la finestra Macro finestra di dialogo: Sviluppatore ➤ Macro .

  • Selezionare il Nome della macro come specificato nel documento codici .
  • Infine, basta premere Correre .

Ora date un'occhiata, vbNewLine mostra l'output in due linee .

Per saperne di più: VBA per generare più righe nel corpo dell'e-mail in Excel (2 metodi)

2. Utilizzare vbCrLf per creare una nuova riga in MsgBox utilizzando VBA in Excel

Ora utilizzeremo un'altra costante di VBA - vbCrLf per creare una nuova riga in MsgBox Aggiungerà anche una nuova riga tra le due righe consecutive.

Passi:

  • Per prima cosa, seguire il le prime due fasi del primo metodo per inserire un modulo nella cartella VBA
  • Allora scrivere il seguente codici in esso... 
 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "Welcome to ExcelWIKI" End Sub

  • Successivamente, seguire la procedura quarta fase del primo metodo per aprire il Finestra di dialogo Macro .
  • Selezionare la voce Nome della macro e premere Correre .

La costante vbCrLf ha aggiunto una nuova linea con una linea di separazione anche.

Per saperne di più: Come aggiungere una riga in una cella di Excel (5 metodi semplici)

3. Inserire vbLf per aggiungere una nuova riga in MsgBox utilizzando Excel VBA

Utilizziamo un'altra costante. vbLf per aggiungere un nuova riga in MsgBox in Excel VBA.

Passi:

  • Seguire il le prime due fasi del primo metodo per inserire un modulo nella cartella VBA
  • Più tardi, scrivere il seguente codici in esso... 
 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Welcome to ExcelWIKI" End Sub

  • Seguire quindi il quarta fase del primo metodo per aprire il Finestra di dialogo Macro .
  • Successivamente, selezionare la voce Nome della macro come indicato nei codici e premere Correre .

Subito dopo si otterrà il risultato desiderato.

Per saperne di più: Come aggiungere una nuova riga con la formula CONCATENATE in Excel (5 modi)

4. Applicare Chr per creare una nuova riga in MsgBox utilizzando VBA in Excel

In questo caso, utilizzeremo due costanti di VBA- Chr(13) & Chr(10) per aggiungere linee.

Passi:

  • Iniziare a seguire il le prime due fasi del primo metodo per inserire un modulo nella cartella VBA
  • Allora scrivere il seguente codici in esso... 
 Sub NewLine_Chr() MsgBox "Ciao!" & Chr(13) & Chr(10) & "Benvenuto in ExcelWIKI" Fine Sub

  • Seguire quindi la procedura quarta fase del primo metodo per aprire il Finestra di dialogo Macro .
  • Selezionare quindi la voce assegnata Nome della macro e premere Correre .

Si noti che abbiamo ottenuto lo stesso risultato.

5. Aggiungere una nuova riga alla macro in Excel VBA

Nei metodi precedenti, non abbiamo interrotto la linea nel codice, mentre qui interromperemo e aggiungeremo linee all'interno del codice.

Passi:

  • Per prima cosa, seguire il le prime due fasi del primo metodo per inserire un modulo nella cartella VBA
  • Il prossimo, scrivere il seguente codici in esso... 
 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Welcome to ExcelWIKI" End Sub

  • In seguito, seguire il quarta fase del primo metodo per aprire il Finestra di dialogo Macro .
  • Quindi è sufficiente selezionare la voce Nome della macro e premere Correre .

Ora vedete, che macro ha ha aggiunto una nuova riga mantenimento una linea di separazione tra le righe.

Per saperne di più: Come fare un'interruzione di riga in Excel (4 modi)

6. Incorporare VBA per aggiungere nuove righe in MsgBox utilizzando il pulsante

Nel nostro ultimo metodo, svolgeremo il compito in modo un po' diverso: imposteremo un parametro pulsante per aggiungere linee in MsgBox .

6.1 Pulsante per linea singola

Per prima cosa, creeremo un pulsante per l'aggiunta di una singola riga. A tale scopo, ho creato un set di dati che rappresenta tre celle per dare l'input Cognome , Indirizzo , e Numero di telefono Quando facciamo clic sul pulsante pulsante , controllerà le celle e se ottiene una cella vuota allora mostra il messaggio per quella cella.

  • Cliccare come segue: Sviluppatore ➤ Inserire e poi selezionare il scatola rettangolare dal Sezione Controlli modulo .

  • Subito dopo, riceverete un segno più nel cursore, clic sinistro il mouse e trascinare sul foglio per impostare il dimensione del pulsante .

  • Allora fare clic con il tasto destro del mouse il tuo topo sul pulsante e selezionare Modifica del testo dal menu contestuale per impostare il nome del pulsante .

  • Tipo il Nome e fare clic su un punto qualsiasi del foglio.

  • Ancora una volta fare clic con il tasto destro del mouse il tuo topo sul pulsante e selezionare Assegnazione di macro dal menu contestuale per impostare un Macro .

  • In questo momento, dare un Nome della macro e premere Nuovo .

  • Allora tipo il seguente codici - 
 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

Ripartizione del codice

  • Per prima cosa, ho creato un file Procedura secondaria Pulsante_linea_singola .
  • Quindi ha dichiarato una variabile WS come Foglio di lavoro .
  • Poi ha usato tre Dichiarazioni IF per controllare le celle, se la cella è riempita di valore allora sarà ignorarlo e se ottiene una cella vuota mostrerà quindi il messaggio corrispondente attraverso MsgBox .
  • Più tardi, solo tornare indietro al vostro foglio e clicca il pulsante .

Come il Cognome è vuoto, ecco perché viene visualizzato il messaggio di notifica.

  • Stampa OK e poi controllerà il secondo campo.

Il secondo il campo è vuoto anche per questo ha aggiunto una nuova riga per notificarlo .

Qui ho riempito il primo campo e ho cliccato sul pulsante e ho visto che il campo è stato saltato e si è passati al campo secondo campo per mostrare il messaggio.

6.2 Pulsante per linee multiple

Assegnando questo pulsante, saremo in grado di aggiungere più righe alla volta nella casella dei messaggi.

  • Primo, seguire i primi 6 passi della sezione precedente per aggiungere un pulsante e assegnare un macro .

  • Allora tipo il seguente codici nella 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 = "Please Insert Last Name!" End If 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

Ripartizione del codice

  • Qui, ho creato un Procedura secondaria Pulsante_linea_multipla .
  • Poi ha dichiarato alcune variabili WS Come Foglio di lavoro e Cognome , Indirizzo , Telefono , Messaggio_di_errore Come
  • In seguito, usato Len e Gamma per impostare i campi.
  • Infine, usato Se le dichiarazioni per verificare se i campi sono vuoti o meno Se è pieno, viene saltato e se non lo è, vengono mostrati i messaggi tramite MsgBox .
  • Infine, solo ritorno al foglio e clicca il pulsante .

E vedere che sta mostrando tre linee per il tre campi come lo sono tutti vuoto .

Ho riempito il primo campo e ora vediamo che mostra solo i messaggi per la cartella 2 campi successivi .

Per saperne di più: Come inserire più righe in una cella di Excel (2 modi semplici)

Conclusione

Spero che le procedure descritte sopra siano sufficienti per creare una nuova riga in MsgBox utilizzando Excel VBA. Sentitevi liberi di porre qualsiasi domanda nella sezione dei commenti e di darmi un feedback.

Messaggio precedente Come rimuovere gli spazi bianchi in Excel (6 modi semplici)
Prossimo post Come contare il numero di caratteri in una cella in Excel (i 6 modi più semplici)

Hugh West è un istruttore e analista di Excel di grande esperienza con oltre 10 anni di esperienza nel settore. Ha conseguito una laurea in Contabilità e Finanza e un Master in Economia Aziendale. Hugh ha una passione per l'insegnamento e ha sviluppato un approccio didattico unico che è facile da seguire e capire. La sua conoscenza approfondita di Excel ha aiutato migliaia di studenti e professionisti in tutto il mondo a migliorare le proprie competenze ed eccellere nella propria carriera. Attraverso il suo blog, Hugh condivide le sue conoscenze con il mondo, offrendo esercitazioni gratuite su Excel e formazione online per aiutare le persone e le aziende a raggiungere il loro pieno potenziale.