Concatenation artinya menggabungkan dua nilai atau dua string bersama-sama, mirip dengan excel yang kita gunakan & atau disebut juga operator ampersand untuk menggabungkan, dua string menggabungkan dua yang kita gunakan & operator seperti String 1 & String 2, sekarang ada hal yang penting untuk diingat dan itu adalah saat menggunakan operator & kami perlu menyediakan spasi atau VBA akan mempertimbangkannya selama ini.
String Gabungan VBA
VBA Concatenate adalah salah satu hal yang kami gunakan untuk menggabungkan dua atau lebih nilai sel nilai bersama-sama jika saya katakan dalam bahasa sederhana itu menggabungkan, itu menggabungkan dua atau lebih nilai bersama-sama untuk memiliki nilai penuh.
Kami memiliki fungsi yang disebut CONCATENATE di excel yang akan menggabungkan dua atau lebih nilai atau dua atau lebih nilai sel bersama-sama.
Namun di VBA kami tidak memiliki fungsi bawaan untuk menggabungkan dua atau lebih nilai secara bersamaan. Faktanya, kita bahkan tidak bisa mengakses kelas fungsi lembar kerja untuk mengakses fungsi VBA CONCATENATE sebagai fungsi lembar kerja.
Bagaimana cara menggabungkan string di VBA?
Jika kami tidak memiliki fungsi bawaan untuk menggabungkan nilai dan bahkan fungsi lembar kerja tidak terintegrasi dengan VBA. Sekarang tantangannya adalah bagaimana kita menggabungkan nilai?
Meskipun tidak ada fungsi bawaan, kita tetap dapat menggabungkannya di VBA menggunakan simbol "ampersand" (&).
Jika Anda mengikuti posting kami secara teratur, kami sering menggunakan simbol ampersand (&) dalam pengkodean kami.
Misalnya, jika Anda memiliki nama depan dan nama belakang secara terpisah, kami dapat menggabungkan keduanya dan menjadikannya sebagai nama lengkap. Ikuti langkah-langkah di bawah ini untuk menulis kode makro VBA kita sendiri.
Langkah 1: Buka Editor Visual Basic dan buat sub prosedur VBA.
Langkah 2: Tentukan tiga variabel sebagai String .
Kode:
Sub Concatenate_Example () Dim First_Name As String Dim Last_Name As String Dim Full_Name As String End Sub
Langkah 3: Sekarang tetapkan nama depan dan nama belakang ke variabel.
Kode:
Sub Concatenate_Example () Redupkan First_Name Sebagai String Redup Last_Name Sebagai String Dim Full_Name Sebagai String First_Name = "Sachin" Last_Name = "Tendulkar" End Sub
Langkah 4: Sekarang gabungkan kedua nama ini ke variabel Full_Name menggunakan variabel ampersand.
Kode:
Sub Concatenate_Example () Redupkan First_Name Sebagai String Redup Last_Name Sebagai String Dim Full_Name Sebagai String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & Last_Name End Sub
Langkah 5: Sekarang tunjukkan nilai variabel Full_Name di kotak pesan.
Kode:
Sub Concatenate_Example () Redupkan First_Name Sebagai String Redup Last_Name Sebagai String Dim Full_Name Sebagai String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & Last_Name MsgBox Full_Name End Sub
Sekarang jalankan kode kita akan mendapatkan nama lengkap di kotak pesan.
Masalah dengan nama lengkap ini adalah kami belum menambahkan spasi karakter pemisah nama depan dan nama belakang, saat menggabungkan nama depan dan nama belakang, menggabungkan karakter spasi juga.
Kode:
Sub Concatenate_Example () Redupkan First_Name Sebagai String Redup Last_Name Sebagai String Dim Full_Name Sebagai String First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & "" & Last_Name MsgBox Full_Name End Sub
Ini akan memberikan nama lengkap yang sesuai sekarang.
Seperti ini dengan menggunakan simbol ampersand, kita dapat menggabungkan nilai. Sekarang kita akan menyelesaikan masalah lembar kerja untuk menyelesaikan Nama Depan & Nama Belakang bersama-sama untuk menjadikannya nama lengkap.
Karena kita perlu menggabungkan banyak nama, kita perlu menggunakan loop untuk menggabungkan nama depan & nama belakang. Kode di bawah ini akan melakukan pekerjaan untuk Anda.
Kode:
Sub Concatenate_Example1 () Dim i As Integer For i = 2 To 9 Cells (i, 3) .Value = Cells (i, 1) & "" & Cells (i, 2) Next i End Sub
Ini akan menggabungkan nama depan dan nama belakang seperti fungsi penggabungan VBA kami.
Kesalahan Umum dalam Rangkaian Ampersand VBA
Jika Anda memperhatikan kode saya, saya telah menambahkan karakter spasi di antara nilai simbol ampersand. Ini penting karena sifat pemrograman VBA.
Kita tidak bisa menggabungkan nilai dan simbol ampersand jika tidak kita akan mendapatkan Compile Error seperti di bawah ini.
VBA Concatenate Menggunakan Fungsi JOIN
Di VBA kita bisa menggunakan fungsi JOIN untuk menggabungkan nilai. Pertama, lihat sintaks fungsi VBA JOIN.
- Array tidak lain adalah larik yang menyimpan nilai-nilai kita. Misalnya nama depan & nama belakang.
- Pembatas tidak lain adalah pemisah antara setiap nilai larik, dalam hal ini karakter spasi.
Kode di bawah ini akan menunjukkan contoh yang sama.
Kode:
Sub Concatenate_Example2 () Redupkan Nilai Saya Sebagai Varian Redupkan Full_Name Sebagai String MyValues = Larik ("Sachin", "Tendulkar") Full_Name = Gabung (Nilai Saya, "") MsgBox Full_Name End Sub
