Rumus Menggambungkan Kata Dari Beberapa Kolom Macro

Menambahkan Sebuah Macro

Sebagian besar Macro dirancang dan dikembangkan pada Jendela Kode.Untuk latihan kali ini kita akan membuat suatu prosedur Macro sederhana untuk lebih memperdalam dasar-dasar pengenalan Macro anda

- Buka sheet Excel
- Tekan [Alt-F11] untuk masuk ke Visual Basic Editor
- Klik ganda Sheeet1(Sheet) pada Jendela Project
- Pada jendela kode ketik Sub Test() kemudian Enter
- Maka otomatis kita akan mendapatkan 2 line kode sbb

Sub Test()

End Sub

Note:

- Huruf "S" pada Sub Test otomatis akan muncul huruf besar "S" walaupun anda mengetikkan dengan huruf "s" kecil.Demikian juga untuk kode-kode yang dikenal VBE yang lainnya.Huruf kecil secara otomatis akan berubah menjadi huruf besar.Jadi anda tidak usah repot-repot untuk mengganti huruf awal dengan huruf besar

Sekarang mari kita lanjutkan lagi:
- Tambahkan kode diantara 2 line kode tadi sehingga menjadi seperti ini

Sub Test()
Sheets("Sheet1").Select
Range("C1").Select

Do Until Selection.Offset(0, -2).Value = ""
Selection.Value = Selection.Offset(0, -2).Value & " " & Selection.Offset(0, -1)
Selection.Offset(1, 0).Select
Loop

Range("A1").Select
End Sub

- Untuk lebih mudahnya, Copy paste saja kode diatas ke Jendela kode anda

Keterangan kode:
Kode diatas artinya adalah menggabungkan kata yang terdapat pada kolom A dan kata yang terdapat pada kolom B dan hasil penggabungannya berada di kolom C.Prosedur akan berjalan terus selama ada kata di sel kolom A. Prosedur akan berhenti sampai data terakhir di kolom A

- Tekan [Alt -F11] untuk kembali ke Excel
- Sekarang ketik 5 buah nama di kolom A (Sel A1:A5) dan 5 buah nama di kolom B (Sel B1:B5)
Lihat gambar

- Tekan [Alt-F11] untuk kembali ke Visual Basic Editor
- Jalankan Macro ini dengan cara klik [Run] - [Run/Sub UserForm F5]
- Tekan [Alt -F11] untuk kembali ke Excel dan lihat apa yang terjadi (Lihat Gambar)

- Hasilnya nama di kolom A dan B bergabung di kolom C dengan spasi tentunya.Spasi ini ada sebagai akibat dari kode
Selection.Value = Selection.Offset(0, -2).Value & " " & Selection.Offset(0, -1)
- Sekarang coba ganti kode nya dengan ini:
Selection.Value = Selection.Offset(0, -2).Value & Selection.Offset(0, -1)
Maka hasilnya akan menjadi seperti ini: Penggabungan tanpa spasi

- Kembalikan lagi ke kode awal
- Hapus semua hasil penggabungan (Kolom C) kemudian nama Duma di kolom A (Lihat gambar)


- Kembali ke VBE [Alt - F11] lalu jalankan Macro nya
- Maka hasilnya menjadi seperti ini


Sesuai dengan yang saya tulis diatas tadi, Prosedur akan berhenti sampai data terakhir di kolom A , artinya data tidak boleh LONGKAP

Cukup jelas?