Excel VBA: Cipta Baris Baharu dalam MsgBox (6 Contoh)

Hugh West

20-06-2023 Makro & Excel VBA
  • Berkongsi Ini
Hugh West

Kami sering menggunakan MsgBox dalam VBA untuk menunjukkan pemberitahuan selepas menjalankan kod. Kadangkala satu baris tidak dapat menunjukkan output dengan betul. Kemudian kita perlu menambah baris baharu . Jadi daripada artikel ini, anda akan mempelajari 6 Makro berguna untuk menambah baris baharu dalam MsgBox menggunakan Excel VBA.

Muat Turun Buku Kerja Amalan

Anda boleh memuat turun templat Excel percuma dari sini dan berlatih sendiri.

Buat Baris Baharu dalam MsgBox.xlsm

6 Contoh Membuat Baris Baharu dalam MsgBox Menggunakan Excel VBA

1. Gunakan vbNewLine untuk Menambah Baris Baharu dalam MsgBox Menggunakan Excel VBA

Di sini, kami akan menggunakan vbNewLine dalam VBA Macro untuk menambah baris dalam MsgBox. Saya akan tunjukkan “ Hello! ” dalam baris pertama dan “ Selamat Datang ke ExcelWIKI” dalam baris kedua.

Langkah:

  • Tekan Alt + F11 untuk membuka tetingkap VBA .
  • Kemudian klik seperti berikut untuk masukkan modul: Sisipkan ➤ Modul .

  • Kemudian, taip kod berikut di dalamnya- 
7299

  • Kemudian kembali ke helaian dan klik seperti berikut untuk membuka Makro kotak dialog: Pembangun ➤ Makro .

  • Pilih makro nama seperti yang dinyatakan dalam kod .
  • Akhir sekali, hanya tekan Jalankan .

Sekarang lihat, vbNewLine menunjukkan output dalam duabaris .

Baca Lagi: VBA untuk Menjana Berbilang Baris dalam Badan E-mel dalam Excel (2 Kaedah)

2. Gunakan vbCrLf untuk Mencipta Baris Baharu dalam MsgBox Menggunakan VBA dalam Excel

Sekarang kita akan menggunakan pemalar lain VBA – vbCrLf untuk mencipta baris baharu dalam Kotak Msg . Ia juga akan menambah baris baharu antara dua baris berturut-turut.

Langkah:

  • Mula-mula, ikut dua langkah pertama daripada kaedah pertama untuk memasukkan modul dalam VBA
  • Kemudian tulis kod berikut di dalamnya- 
3303

  • Seterusnya, ikuti langkah keempat daripada kaedah pertama untuk membuka kotak dialog Makro .
  • Pilih Nama Makro dan tekan Jalankan .

Pemalar vbCrLf telah menambah baris baharu dengan garis jurang juga.

Baca Lagi: Cara Menambah Baris dalam Sel Excel (5 Kaedah Mudah)

3. Sisipkan vbLf ke Tambah Baris Baharu dalam MsgBox Menggunakan Excel VBA

Mari gunakan pemalar lain- vbLf untuk menambah baris baharu dalam MsgBox dalam Excel VBA.

Langkah:

  • Ikuti dua langkah pertama daripada kaedah pertama untuk memasukkan modul dalam VBA
  • Kemudian, tulis kod berikut di dalamnya- 
8526

  • Kemudian ikut langkah keempat daripada kaedah pertama untuk membuka kotak dialog Makro .
  • Kemudian, pilih Nama Makro seperti yang dinyatakan dalam kod dan tekan Jalankan .

Dan tidak lama selepas itu anda akan mendapat output yang diingini.

Baca Lagi: Cara Menambah Baris Baharu dengan Formula CONCATENATE dalam Excel (5 Cara)

4. Gunakan Chr untuk Mencipta Baris Baharu dalam MsgBox Menggunakan VBA dalam Excel

Di sini, kami akan menggunakan dua pemalar VBA- Chr(13) & Chr(10) untuk menambah baris.

Langkah:

  • Mulakan dengan mengikuti dua langkah pertama daripada kaedah pertama untuk memasukkan modul dalam VBA
  • Kemudian tulis kod berikut di dalamnya- 
7056

  • Selepas itu ikuti langkah keempat daripada kaedah pertama untuk membuka kotak dialog Makro .
  • Kemudian pilih diberikan Nama makro dan tekan Jalankan .

Pastikan bahawa kita telah mendapat output yang sama.

5. Tambah Baris Baharu dalam Makro dalam Excel VBA

Dalam kaedah sebelumnya, kami tidak memecahkan baris dalam kod. Di sini, kami akan memecahkan dan menambah baris dalam kod.

Langkah:

  • Mula-mula, ikut dua langkah pertama daripada kaedah pertama untuk memasukkan modul dalam VBA
  • Seterusnya, tulis kod berikut di dalamnya- 
9941

  • Kemudian, ikut langkah keempat daripada kaedah pertama untuk membuka kotak dialog Makro .
  • Kemudian hanya pilih Nama Makro dan tekan Jalankan .

Sekaranglihat, bahawa makro telah menambah baris baharu mengekalkan garis jurang antara baris.

Baca Lagi: Cara Melakukan Pecah Garis dalam Excel (4 Cara)

6. Benamkan VBA untuk Menambah Baris Baharu dalam MsgBox Menggunakan Butang

Dalam kaedah terakhir kami, kami akan melakukan tugas dengan cara yang sedikit berbeza. Kami akan menetapkan butang untuk menambah baris dalam MsgBox .

Butang 6.1 untuk Baris Tunggal

Pertama, kami akan membuat butang untuk menambah satu baris. Untuk itu, saya telah membuat set data yang mewakili tiga sel untuk memberikan input Nama Akhir , Alamat dan Nombor telefon . Apabila kita akan mengklik butang , ia akan menyemak sel dan jika mendapat sel kosong maka akan menunjukkan mesej untuk sel tersebut.

  • Klik seperti berikut: Pembangun ➤ Masukkan dan kemudian pilih kotak segi empat tepat daripada bahagian Kawalan Borang .

  • Tidak lama kemudian, anda akan mendapat tanda tambah masuk kursor anda, klik kiri tetikus anda dan seret pada helaian untuk menetapkan saiz butang .

  • Kemudian klik kanan tetikus anda pada butang dan pilih Edit Teks daripada menu konteks untuk menetapkan nama butang .

  • Taip Nama dan klik mana-mana sahaja pada helaian.

  • Sekali lagi klik kanan <1 anda>tetikus pada butang dan pilih Tetapkan Makro daripada menu konteks untuk menetapkan Makro .

  • Pada masa ini, berikan nama Makro dan tekan Baharu .

  • Kemudian taip kod berikut – 
5182

Pecahan Kod

  • Mula-mula, saya mencipta Sub prosedur SingleLine_Button .
  • Kemudian mengisytiharkan pembolehubah WS sebagai Lembaran Kerja .
  • Kemudian menggunakan tiga penyataan IF untuk menyemak sel, jika sel diisi dengan nilai maka ia akan mengabaikannya dan jika mendapat sel kosong maka akan menunjukkan mesej yang sepadan melalui MsgBox .
  • Kemudian, cuma kembali ke helaian dan klik butang .

Memandangkan medan Nama Akhir kosong, itulah sebabnya ia menunjukkan mesej pemberitahuan.

  • Tekan OK dan kemudian ia akan menyemak medan kedua .

Medan kedua kosong juga jadi ia menambahkan n baris ew untuk memberitahunya .

Di sini, saya mengisi medan pertama dan mengklik butang dan melihat bahawa ia melangkau medan itu dan melompat ke medan kedua untuk menunjukkan mesej.

6.2 Butang untuk Berbilang Baris

Dengan memberikan butang ini, kami akan dapat menambah berbilang baris pada satu masa dalam kotak mesej.

  • Pertama, ikut 6 langkah pertama daripadabahagian sebelumnya untuk menambah butang dan menetapkan makro .

  • Kemudian taip kod berikut dalam makro- 
6743

Pecahan Kod

  • Di sini, saya mencipta Sub prosedur Multiple_Line_Button .
  • Kemudian mengisytiharkan beberapa pembolehubah WS Sebagai Lembaran Kerja dan Nama_Kelas , Alamat , Telefon , Error_msg Sebagai
  • Kemudian, digunakan Len dan Julat untuk menetapkan medan.
  • Akhir sekali, gunakan Jika pernyataan untuk menyemak sama ada medan kosong atau tidak . Jika ia diisi maka akan melangkaunya dan jika tidak maka akan menunjukkan mesej melalui MsgBox .
  • Akhir sekali, hanya kembali ke helaian dan klik butang .

Dan lihat ia menunjukkan tiga baris untuk tiga medan kerana mereka semuanya kosong .

Saya telah mengisi medan pertama dan sekarang lihat, ia hanya menunjukkan mesej untuk 2 medan seterusnya .

Baca Lagi: Cara Meletakkan Berbilang Baris dalam Sel Excel (2 Cara Mudah)

Kesimpulan

Saya harap prosedur yang diterangkan di atas cukup baik untuk mencipta baris baharu dalam MsgBox menggunakan Excel VBA. Jangan ragu untuk bertanya apa-apa soalan di bahagian komen dan sila berikan maklum balas kepada saya.

Catatan sebelum ini Cara Mengalih Keluar Ruang Putih dalam Excel (6 Cara Mudah)
Post seterusnya Cara Mengira Bilangan Aksara dalam Sel dalam Excel (6 Cara Paling Mudah)

Hugh West ialah jurulatih dan penganalisis Excel yang sangat berpengalaman dengan lebih 10 tahun pengalaman dalam industri. Beliau memiliki Ijazah Sarjana Muda Perakaunan dan Kewangan serta Ijazah Sarjana dalam Pentadbiran Perniagaan. Hugh mempunyai minat untuk mengajar dan telah membangunkan pendekatan pengajaran yang unik yang mudah diikuti dan difahami. Pengetahuan pakar Excel beliau telah membantu beribu-ribu pelajar dan profesional di seluruh dunia meningkatkan kemahiran mereka dan cemerlang dalam kerjaya mereka. Melalui blognya, Hugh berkongsi pengetahuannya dengan dunia, menawarkan tutorial Excel percuma dan latihan dalam talian untuk membantu individu dan perniagaan mencapai potensi penuh mereka.