Gabungan bermaksud menggabungkan dua nilai atau dua rentetan bersama-sama, serupa dengan excel yang kita gunakan & atau juga dikenali sebagai operator ampersand untuk bergabung, dua gabungan dua rentetan yang kita gunakan & operator seperti String 1 & String 2, sekarang ada perkara penting yang perlu diingat dan itu semasa menggunakan & operator kita perlu menyediakan ruang atau VBA akan mempertimbangkannya selama.
Rentetan Bersama VBA
VBA Concatenate adalah salah satu perkara yang biasa kami gunakan untuk menggabungkan dua atau lebih nilai sel nilai jika saya katakan dalam bahasa mudah ia menggabungkan, ia menggabungkan dua atau lebih nilai bersama-sama untuk mempunyai nilai penuh.
Kami mempunyai fungsi yang disebut CONCATENATE in excel yang akan menggabungkan dua nilai atau lebih atau dua atau lebih nilai sel bersama.
Tetapi di VBA kami tidak mempunyai fungsi terbina dalam untuk menggabungkan dua atau lebih nilai bersama-sama. Sebenarnya, kita bahkan tidak dapat mengakses kelas fungsi lembaran kerja untuk mengakses fungsi VBA CONCATENATE sebagai fungsi lembaran kerja.
Bagaimana Menggabungkan Rentetan dalam VBA?
Sekiranya kita tidak mempunyai jenis fungsi bawaan untuk menggabungkan nilai dan bahkan fungsi lembaran kerja tidak disatukan dengan VBA. Sekarang cabarannya adalah bagaimana kita menggabungkan nilai?
Walaupun tidak ada fungsi bawaan tetap kita dapat menggabungkan dalam VBA menggunakan simbol "ampersand" (&).
Sekiranya anda mengikuti catatan kami dengan kerap, kami sering menggunakan simbol ampersand (&) dalam pengekodan kami.
Sebagai contoh, jika anda mempunyai nama depan dan nama belakang secara berasingan, kami boleh menggabungkan kedua-duanya dan menjadikannya sebagai nama penuh. Ikuti langkah di bawah untuk menulis kod makro VBA sendiri.
Langkah 1: Pergi ke Visual Basic Editor dan buat sub prosedur VBA.
Langkah 2: Tentukan tiga pemboleh ubah sebagai String .
Kod:
Sub Concatenate_Contoh () Dim First_Name Sebagai String Dim Last_Name As String Dim Full_Name Sebagai String End Sub
Langkah 3: Sekarang tetapkan nama depan dan nama belakang kepada pemboleh ubah.
Kod:
Sub Concatenate_Contoh () Dim First_Name As String Dim Last_Name As String Dim Full_Name As String First_Name = "Sachin" Last_Name = "Tendulkar" Akhir Sub
Langkah 4: Sekarang gabungkan kedua-dua nama ini ke pembolehubah Nama Lengkap menggunakan pemboleh ubah ampersand.
Kod:
Sub Concatenate_Contoh () Dim First_Name Sebagai String Dim Last_Name As String Dim Full_Name As String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & Last_Name Akhir Sub
Langkah 5: Sekarang tunjukkan nilai pembolehubah Full_Name di kotak mesej.
Kod:
Sub Concatenate_Contoh () Dim First_ame Sebagai String Dim Last_Name As String Dim Full_Name As String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & Last_Name MsgBox Full_Name End Sub
Sekarang jalankan kod kita akan mendapat nama penuh di kotak mesej.
Masalah dengan nama penuh ini ialah kita tidak menambah ruang watak pemisah nama depan dan nama belakang, sementara menggabungkan nama depan dan nama belakang, menggabungkan watak ruang juga.
Kod:
Sub Concatenate_Contoh () Dim First_Name As String Dim Last_Name As String Dim Full_Name As String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & "" & Last_Name MsgBox Full_Name End Sub
Ini akan memberikan nama penuh yang tepat sekarang.
Seperti ini menggunakan simbol ampersand, kita dapat menggabungkan nilai. Sekarang kita akan menyelesaikan masalah lembaran kerja untuk menyelesaikan Nama Pertama & Nama Akhir untuk menjadikannya nama penuh.
Oleh kerana kita perlu menggabungkan banyak nama, kita perlu menggunakan gelung untuk menggabungkan nama depan & nama belakang. Kod di bawah akan berfungsi untuk anda.
Kod:
Sub Concatenate_Contoh1 () Dim i Sebagai Integer Untuk i = 2 hingga 9 Sel (i, 3). Nilai = Sel (i, 1) & "" & Sel (i, 2) Seterusnya i Akhir Sub
Ini akan menggabungkan nama depan dan nama belakang sama seperti fungsi gabungan VBA kami.
Kesalahan Biasa dalam Gabungan Ampersand VBA
Sekiranya anda memperhatikan kod saya, saya telah menambahkan watak ruang antara nilai simbol ampersand. Ini penting kerana sifat pengaturcaraan VBA.
Kita tidak dapat menggabungkan nilai dan simbol ampersand jika tidak, kita akan mendapat Kesalahan Kompilasi seperti di bawah.
VBA Bersambung Menggunakan Fungsi JOIN
Di VBA kita dapat menggunakan fungsi JOIN untuk menggabungkan nilai. Pertama, lihat sintaks fungsi VBA JOIN.
- Array tidak lain hanyalah array yang menyimpan nilai kita. Contohnya nama depan & nama belakang.
- Pembatas tidak lain adalah apa yang menjadi pemisah antara setiap nilai array, dalam kes ini, watak ruang.
Kod di bawah akan menunjukkan contoh yang sama.
Kod:
Sub Concatenate_Example2 () Dim MyValues ​​As Varianant Dim Full_Name As String MyValues ​​= Array ("Sachin", "Tendulkar") Full_Name = Join (MyValues, "") MsgBox Full_Name End Sub
