Sıklıkla kullandığımız MsgBox içinde VBA Kodları çalıştırdıktan sonra bildirimi göstermek için Bazen tek bir satır çıktıyı düzgün gösteremez. yeni satırlar ekleyin Yani bu makaleden şunları öğreneceksiniz 6 içine yeni bir satır eklemek için kullanışlı Makrolar MsgBox Excel VBA kullanarak.

Alıştırma Çalışma Kitabını İndirin

Ücretsiz Excel şablonunu buradan indirebilir ve kendi başınıza pratik yapabilirsiniz.

6 Excel VBA Kullanarak MsgBox'ta Yeni Satır Oluşturma Örnekleri

1. Excel VBA Kullanarak MsgBox'a Yeni Satır Eklemek için vbNewLine Kullanın

Burada şunu kullanacağız vbNewLine içinde VBA Makro içine bir satır eklemek için MsgBox. Göstereceğim." Merhaba! " ilk satırda ve " ExcelWIKI'ye Hoş Geldiniz" ikinci satırda.

Adımlar:

• Basın Alt + F11 açmak için VBA penceresi .
• O zaman tıklayın Bir modül eklemek için aşağıdaki gibi: Insert ➤ Modül .

• Daha sonra, aşağıdaki kodları içine yazın-

 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Welcome to ExcelWIKI" End Sub 

• O zaman geri dön senin levha ve tıklayın açmak için aşağıdaki gibi Makrolar iletişim kutusu: Geliştirici ➤ Makrolar .

• Seçiniz ve Makro adı belirtildiği gibi kodlar .
• Son olarak, sadece Koşmak .

Şimdi bir bak, vbNewLine 'deki çıktıyı gösteriyor. iki satır .

Daha fazlasını okuyun: Excel'de E-posta Gövdesinde Birden Fazla Satır Oluşturmak için VBA (2 Yöntem)

2. Excel'de VBA Kullanarak MsgBox'ta Yeni Satır Oluşturmak için vbCrLf Kullanın

Şimdi başka bir sabit kullanacağız VBA - vbCrLf 'de yeni bir satır oluşturmak için MsgBox Ayrıca ardışık iki satır arasına yeni bir satır ekleyecektir.

Adımlar:

• İlk olarak, aşağıdaki ilk yöntemin ilk iki adımı içine bir modül eklemek için VBA
• O zaman yaz aşağıdaki kodlar içinde-

 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "Welcome to ExcelWIKI" End Sub 

• Ardından, aşağıdaki ilk yöntemden dördüncü adım açmak için Makro iletişim kutusu .
• Seçiniz Makro adı ve basın Koşmak .

Sabit vbCrLf ekledi yeni bir hat ile bir boşluk çizgisi çok.

Daha fazlasını okuyun: Excel Hücresine Satır Ekleme (5 Kolay Yöntem)

3. Excel VBA Kullanarak MsgBox'a Yeni Satır Eklemek için vbLf Ekleme

Başka bir sabit kullanalım- vbLf eklemek için MsgBox'ta yeni satır Excel VBA'da.

Adımlar:

• Takip edin ilk yöntemin ilk iki adımı içine bir modül eklemek için VBA
• Sonra görüşürüz, yaz aşağıdaki kodlar içinde-

 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Welcome to ExcelWIKI" End Sub 

• Sonra da ilk yöntemden dördüncü adım açmak için Makro iletişim kutusu .
• Daha sonra Makro adı kodlarda belirtildiği gibi ve basın Koşmak .

Ve kısa bir süre sonra istediğiniz çıktıyı alacaksınız.

Daha fazlasını okuyun: Excel'de CONCATENATE Formülü ile Yeni Satır Ekleme (5 Yol)

4. Excel'de VBA Kullanarak MsgBox'ta Yeni Satır Oluşturmak için Chr Uygulayın

Burada, VBA'nın iki sabitini kullanacağız- Chr(13) & Chr(10) satır eklemek için.

Adımlar:

• Şunları takip ederek başlayın ilk yöntemin ilk iki adımı içine bir modül eklemek için VBA
• O zaman yaz aşağıdaki kodlar içinde-

 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Welcome to ExcelWIKI" End Sub 

• Bundan sonra ilk yöntemden dördüncü adım açmak için Makro iletişim kutusu .
• Ardından atanmış Makro adı ve basın Koşmak .

Aynı çıktıyı elde ettiğimizi görün.

5. Excel VBA'da Makro İçine Yeni Satır Ekleme

Önceki yöntemlerde kod içindeki satırı kırmıyorduk. Burada, kodların içindeki satırları kıracağız ve ekleyeceğiz.

Adımlar:

• İlk olarak, aşağıdaki ilk yöntemin ilk iki adımı içine bir modül eklemek için VBA
• Sıradaki, yaz aşağıdaki kodlar içinde-

 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Welcome to ExcelWIKI" End Sub 

• Daha sonra ilk yöntemden dördüncü adım açmak için Makro iletişim kutusu .
• Sonra sadece Makro adı ve basın Koşmak .

Şimdi bakın, bu makro var yeni bir satır eklendi tutmak bir boşluk çizgisi Satır aralarında.

Daha fazlasını okuyun: Excel'de Satır Sonu Nasıl Yapılır (4 Yol)

6. Düğme Kullanarak MsgBox'a Yeni Satırlar Eklemek için VBA'yı Gömün

Son yöntemimizde, görevi biraz farklı bir şekilde yapacağız. düğme içine satır eklemek için MsgBox .

6.1 Tek Hat için Düğme

İlk olarak, tek bir satır eklemek için bir düğme yapacağız. Bunun için, girdi vermek üzere üç hücreyi temsil eden bir veri kümesi oluşturdum Soyadı , Adres ve Telefon numarası . tıkladığımızda düğme hücreleri kontrol edecek ve boş bir hücre alırsa o zaman mesajı göster o hücre için.

• Tıklayın aşağıdaki gibi: Geliştirici ➤ Ekleme ve sonra seçin ve dikdörtgen kutu bir şey yok. Form Kontrolleri bölümü .

• Kısa bir süre sonra, bir artı işareti imlecinizde, sol tıklama fareniz ve sürükleyin üzerinde levha ayarlamak için düğme boyutu .

• O zaman sağ tıklayın senin Fare üzerinde düğme ve seçin Metni Düzenle bir şey yok. bağlam menüsü ayarlamak için düğme adı .

• Tip ve İsim ve sayfa üzerinde herhangi bir yere tıklayın.

• Tekrar sağ tıklayın senin Fare üzerinde düğme ve seçin Makro Atama bir şey yok. bağlam menüsü ayarlamak için Makro .

• Şu anda, bir Makro adı ve basın Yeni .

• O zaman tip aşağıdaki kodlar -

 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 

Kod Dökümü

• İlk olarak, bir Alt prosedür SingleLine_Button .
• Ardından bir değişken bildirilir WS olarak Çalışma Sayfası .
• Sonra üç tane EĞER ifadeleri hücreleri kontrol etmek için, hücre değerle doldurulmuşsa o zaman görmezden gel ve boş bir hücre alırsa sonra gösterecektir ilgili mesaj aracılığıyla MsgBox .

• Sonra, sadece geri dön senin levha ve tıklayın ve düğme .

Olarak Soyadı alanı boş olduğu için bildirim mesajını gösteriyor.

• Basın TAMAM. ve ardından ikinci alanı kontrol edecektir.

İkincisi alan boş bu yüzden de bildirmek için yeni bir satır eklendi .

İşte, doldurdum ilk alan butonuna tıkladım ve bu alanı atladığını ve ikinci alan mesajı göstermek için.

6.2 Çoklu Hatlar için Düğme

Bu düğmeyi atayarak, mesaj kutusuna bir seferde birden fazla satır ekleyebileceğiz.

• Birincisi, önceki bölümdeki ilk 6 adımı takip edin eklemek için düğme ve bir makro .

• O zaman tip aşağıdaki kodlar 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 = 0Then Error_msg = Error_msg & vbNewLine & "Please Insert Phone Number!" End If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Important Caution!" Exit Sub End If End Sub 

Kod Dökümü

• Burada, bir Alt prosedür Multiple_Line_Button .
• Ardından bazı değişkenler bildirilir WS As Çalışma Sayfası ve Soy_Adı , Adres , Telefon , Error_msg As
• Daha sonra, kullanılan Len ve Menzil alanları ayarlamak için.
• Son olarak, kullanılan Eğer ifadeler olup olmadığını kontrol etmek için alanların boş olup olmadığı Doldurulmuşsa atlanacak, doldurulmamışsa mesajlar gösterilecektir. MsgBox .

• Son olarak, sadece dönüş sayfaya ve tıklayın ve düğme .

Ve görüyorum ki üç satır için üç alan hepsi olduğu gibi boş .

Doldurdum ilk alan ve şimdi bakın, yalnızca sonraki 2 alan .

Daha fazlasını okuyun: Excel Hücresine Birden Fazla Satır Nasıl Yerleştirilir (2 Kolay Yol)

Sonuç

Yukarıda açıklanan prosedürlerin Excel VBA kullanarak MsgBox'ta yeni bir satır oluşturmak için yeterince iyi olacağını umuyorum. Yorum bölümünde herhangi bir soru sormaktan çekinmeyin ve lütfen bana geri bildirimde bulunun.