Excel VBA: Skapa en ny rad i MsgBox (6 exempel)

Hugh West

20-06-2023 Makroer & Excel VBA
  • Dela Detta
Hugh West

Vi använder ofta MsgBox på VBA för att visa meddelandet efter att koderna har körts. Ibland kan en enda rad inte visa utgången korrekt. Då måste vi lägga till nya rader I den här artikeln kommer du att lära dig följande 6 användbara makron för att lägga till en ny rad i MsgBox med hjälp av Excel VBA.

Ladda ner övningsboken

Du kan ladda ner den kostnadsfria Excel-mallen här och öva på egen hand.

Skapa en ny rad i MsgBox.xlsm

6 exempel för att skapa en ny rad i MsgBox med Excel VBA

1. Använd vbNewLine för att lägga till en ny rad i MsgBox med Excel VBA

Här använder vi vbNewLine på VBA-makro för att lägga till en rad i MsgBox. Jag ska visa " Hej! " i den första raden och " Välkommen till ExcelWIKI" i den andra raden.

Steg:

  • Tryck på Alt + F11 för att öppna VBA-fönster .
  • Därefter Klicka på på följande sätt för att infoga en modul: Infoga ➤ Modul .

  • Senare skriver du följande koder i it- 
 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Välkommen till ExcelWIKI" End Sub

  • Därefter gå tillbaka till din ark och Klicka på på följande sätt för att öppna Makroer dialogrutan: Utvecklare ➤ Makroer .

  • Välj Makronamn enligt vad som anges i koder .
  • Slutligen trycker du bara på Kör .

Ta en titt nu, vbNewLine visar utdata i två rader .

Läs mer: VBA för att generera flera rader i e-postkroppen i Excel (2 metoder)

2. Använd vbCrLf för att skapa en ny rad i MsgBox med hjälp av VBA i Excel

Nu använder vi en annan konstant av VBA - vbCrLf för att skapa en ny rad i MsgBox Den lägger också till en ny rad mellan de två på varandra följande raderna.

Steg:

  • Följ först och främst de två första stegen i den första metoden för att infoga en modul i VBA
  • Därefter skriv till följande koder i- 
 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & vbCrLf & "Välkommen till ExcelWIKI" End Sub

  • Följ sedan fjärde steget från den första metoden för att öppna Dialogruta för makron .
  • Välj den Makronamn och tryck på Kör .

Den konstanta vbCrLf har lagt till en ny rad med en mellangränser. också.

Läs mer: Hur man lägger till en rad i en Excel-cell (5 enkla metoder)

3. Infoga vbLf för att lägga till en ny rad i MsgBox med Excel VBA

Låt oss använda en annan konstant- vbLf för att lägga till en ny rad i MsgBox i Excel VBA.

Steg:

  • Följ den de två första stegen i den första metoden för att infoga en modul i VBA
  • Senare, skriv till följande koder i- 
 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Välkommen till ExcelWIKI" End Sub

  • Följ sedan fjärde steget från den första metoden för att öppna Dialogruta för makron .
  • Senare väljer du den Makronamn som anges i koderna och tryck på Kör .

Kort därefter kommer du att få det önskade resultatet.

Läs mer: Hur man lägger till en ny rad med CONCATENATE-formeln i Excel (5 sätt)

4. Tillämpa Chr för att skapa en ny rad i MsgBox med hjälp av VBA i Excel

Här använder vi två konstanter i VBA- Chr(13) & Chr(10) för att lägga till rader.

Steg:

  • Börja med att följa de två första stegen i den första metoden för att infoga en modul i VBA
  • Därefter skriv till följande koder i- 
 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Välkommen till ExcelWIKI" End Sub

  • Följ därefter följande fjärde steget från den första metoden för att öppna Dialogruta för makron .
  • Välj sedan den tilldelade Makronamn och tryck på Kör .

Se att vi har fått samma resultat.

5. Lägg till en ny rad i makron i Excel VBA

I de tidigare metoderna bröt vi inte linjen i koden, men här bryter vi och lägger till linjer i koderna.

Steg:

  • Följ först och främst de två första stegen i den första metoden för att infoga en modul i VBA
  • Nästa, skriv till följande koder i- 
 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Välkommen till ExcelWIKI" End Sub

  • Senare följer du fjärde steget från den första metoden för att öppna Dialogruta för makron .
  • Välj sedan bara den Makronamn och tryck på Kör .

Se nu, att makro har en ny rad har lagts till hålla en mellangränser. mellan raderna.

Läs mer: Hur man gör ett radbrytning i Excel (4 sätt)

6. Bädda in VBA för att lägga till nya rader i MsgBox med hjälp av en knapp

I vår allra sista metod gör vi uppgiften på ett lite annorlunda sätt. Vi ställer in en knapp för att lägga till rader i MsgBox .

6.1 Knapp för en enda linje

Först ska vi göra en knapp för att lägga till en enda rad. För detta har jag skapat ett dataset som representerar tre celler för att ge inmatning. Efternamn , Adress , och Telefonnummer När vi klickar på knapp , kommer den att kontrollera cellerna och om en tom cell hittas kommer då att visa meddelandet för den cellen.

  • Klicka på på följande sätt: Utvecklare ➤ Infoga och sedan Välj rektangulär låda från Avsnittet Form Controls (Kontroller för formulär) .

  • Strax därefter får du en plustecken i din markör, vänsterklicka på musen och dra på den ark för att ställa in knappstorlek .

  • Därefter högerklicka på din mus på den knapp och välj Redigera text från kontextmeny för att ställa in knappens namn .

  • Typ Namn och klicka någonstans på arket.

  • Återigen högerklicka på din mus på den knapp och välj Tilldela makro från kontextmeny för att ställa in en Makro .

  • Ge i detta ögonblick en Makronamn och tryck på Ny .

  • Därefter typ följande koder - 
 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

Uppdelning av koden

  • Först skapade jag en Underförfarande SingleLine_Button .
  • Därefter deklarerades en variabel WS som Arbetsblad .
  • Därefter användes tre IF-meddelanden för att kontrollera cellerna, om cellen är fylld med värde då kommer den att ignorera det och om en tom cell hittas visar sedan den motsvarande meddelande via MsgBox .
  • Senare, bara gå tillbaka till din ark och Klicka på knapp .

Eftersom Efternamn fältet är tomt och det är därför meddelandet visas.

  • Tryck på OK och kontrollerar sedan det andra fältet.

Den andra fältet är tomt också så att det lagt till en ny rad för att anmäla det .

Här fyllde jag på första fältet och klickade på knappen, och ser att den hoppar över det fältet och hoppar till fältet det andra fältet för att visa meddelandet.

6.2 Knapp för flera linjer

Genom att tilldela den här knappen kan vi lägga till flera rader åt gången i meddelanderutan.

  • Först, Följ de 6 första stegen från föregående avsnitt. för att lägga till en knapp och tilldela en makro .

  • Därefter typ följande koder i 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 = 0Då Error_msg = Error_msg & vbNewLine & "Ange telefonnummer!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Viktig försiktighet!" Exit Sub End If End Sub

Uppdelning av koden

  • Här har jag skapat en Underförfarande Multiple_Line-knapp .
  • Därefter deklarerade vi några variabler WS Som Arbetsblad och Efternamn , Adress , Telefon , Error_msg Som
  • Senare användes Len och Utbud för att ställa in fälten.
  • Slutligen används Om uttalanden för att kontrollera om fälten är tomma eller inte . Om den är fylld kommer den att hoppa över och om den inte är fylld kommer meddelanden att visas genom MsgBox .
  • Slutligen, bara Återge . till arket och Klicka på knapp .

Och se att den visar tre rader för tre områden som de alla är tomt .

Jag fyllde den första fältet och nu ser jag att den bara visar meddelanden för de 2 följande fälten .

Läs mer: Hur man sätter flera rader i en Excel-cell (2 enkla sätt)

Slutsats

Jag hoppas att de förfaranden som beskrivs ovan är tillräckligt bra för att skapa en ny rad i MsgBox med Excel VBA. Ställ gärna frågor i kommentarsfältet och ge mig feedback.

Tidigare inlägg Hur man tar bort vitrymder i Excel (6 enkla sätt)
Nästa inlägg Hur du räknar antalet tecken i en cell i Excel (6 enklaste sätt)

Hugh West är en mycket erfaren Excel-tränare och analytiker med över 10 års erfarenhet i branschen. Han har en kandidatexamen i redovisning och ekonomi och en magisterexamen i företagsekonomi. Hugh har en passion för undervisning och har utvecklat ett unikt undervisningssätt som är lätt att följa och förstå. Hans expertkunskap om Excel har hjälpt tusentals studenter och yrkesverksamma över hela världen att förbättra sina färdigheter och utmärka sig i sina karriärer. Genom sin blogg delar Hugh med sig av sin kunskap med världen, och erbjuder gratis Excel-handledning och onlineutbildning för att hjälpa individer och företag att nå sin fulla potential.