Bagian ini lebih cocok untuk pengguna pemula yang baru mempelajari Macro VBA excel, di mana anda akan mempelajari teknik dasar penggunaan statement IF yang sangat powerfull. Salah satunya adalah dapat digunakan untuk mengganti nama dari sebuah tombol (baca:CommandButton) dengan nama properti serta kemampuannya untuk menerima perintah yang berbeda. Dengan demikian maka anda tidak perlu buang-buang waktu untuk membuat tombol lain, karena trik ini bisa menjawabnya.

Kode yang digunakan pun sangatlah sederhana namun cukup efektif untuk menghasilkan beberapa perintah yang berbeda. Silahkan lihat hasil tutorial yang akan kita kerjakan berikut ini

Dari tampilan tersebut, saya hanya cukup membuat satu buah CommandButton untuk dapat menuliskan sebuah nilai di sel yang berbeda.

Sebelum melanjutkan tutorial ini, saya sarankan anda untuk membaca tutorial terkait berikut

Cara Mudah Mencari Lokasi Baris atau Kolom Dari Beberapa kumpulan Nilai
Melihat Dan Menemukan Posisi Sel Terakhir Berdasarkan Kolom Atau Baris
Jika anda sudah membaca tutorial terkait di atas, silahkan ikuti langkah berikut ini untuk memulai membuat tutorial seperti tampilan yang sudah saya buat sebelumnya.

1. Sebagai langkah awal, silahkan buat sebuah tombol ActiveX yang bisa anda buat dari menu Developer (jika menu ini belum tersedia silahkan anda aktifkan dulu ya!)
2. Kemudian silahkan anda pilih sub menu Control dan pilih icon Insert. Selanjutnya klik tombol CommandButton pada bagian ActiveX dan mulailah menggambarnya di lembar kerja
   
3. Klik ganda tombol yang sudah anda buat ini untuk langsung menuju jendela kode Microsoft Visual Basic Editor
4. Lanjutkan dengan menuliskan baris perintah berikut
   

   If CommandButton1.Caption = "CommandButton1" Then
       CommandButton1.Caption = "Dua"
       a = Cells(Rows.Count, 1).End(xlUp).Row
       Cells(a + 1, 1) = a
       
       ElseIf CommandButton1.Caption = "Dua" Then
       CommandButton1.Caption = "Tiga"
       b = Cells(Rows.Count, 2).End(xlUp).Row
       Cells(b + 1, 2) = "B" & b
       
       Else
       CommandButton1.Caption = "CommandButton1"
       c = Cells(Rows.Count, 3).End(xlUp).Row
       Cells(c + 1, 3) = "C" & c
   End If

   Beberapa parameter penting dari kode di atas antara lain :

   • CommandButton1 adalah nama default dari tombol yang digunakan sebagai sumber awal pembacaan kode.
   • Parameter a, b, dan c berfungsi untuk melihat posisi baris terakhir
5. Akhiri dengan menutup jendela Microsoft Visual Basic Editor dengan cara mentekan tombol X yang terdapat di pojok kanan atas layar, atau bisa juga menggunakan tombol pintas Alt+Q untuk kembali ke jendela Microsoft Excel.
   Pastikan juga icon Design Mode pada menu Developer sudah dalam posisi OFF

Jika anda mengikuti tutorial ini secara seksama, maka hasil akan anda dapatkan seperti tampilan ini.

Semoga tutorial yang cukup singkat tentang membuat tombol agar memiliki beberapa nama dan perintah yang berbeda-beda bermanfaat untuk anda. Dan jangan lupa bookmark situs ini untuk memudahkan anda mengunjungi kami lain waktu.
Terimakasih sudah meluangkan waktu anda untuk membaca tutorial excel ini. Danke

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :