Macro Excel | Cara Membuat Options Button ActiveX Control untuk Pilihan Jenis Kelamin dengan Script VBA

Tutorial Macro kali ini membahas cara membuat Options Button pada Ms. Excel dengan menggunakan script VBA. Options Button ini akan memilih jenis kelamin apakah laki-laki atau perempuan.

Langkah-langkah membuat Option Button untuk Jenis Kelamin

STEP 1
Silakan klik menu Developer, untuk yang belum tahu cara menampilkan menu Developer silakan lihat Bagaimana cara mengaktifkan menu Developer kemudian silakan klik Insert dan klik OptionsButton pada ActiveX Control

STEP 2

Silakan buat pada Worksheet yang kosong bisa juga Anda menggunakan cara Drag and Drop untuk membuat OptionButton jika sudah selesai maka akan terbuat sebuat OptionButton1 silakan copy kan objek option tersebut sehingga terbuat 2 buat OptionsButton

Contoh dari materi ini bisa Anda lihat contoh sebuah Aplikasi Ujian Mandiri Berbasis Excel silakan Anda lihat dan coba sendiri

STEP 3

Jika sudah terbuat 2 buah OptionsButton Anda bisa menggantinya untuk OptionsButton1 silakan ganti dengan "Laki-Laki" sedangkan untuk OptionsButton2 silakan ganti dengan "Perempuan" caranya silakan klik salah satu OptionButton maka akan tampil Properties untuk OptionsButton1 ganti Captions menjadi "Laki-Laki"

STEP 4

Untuk membuat kode pilihan jenis kelamin Anda harus menambahkan kode VBA dengan cara mengaktifkan VBA editor caranya klik kanan pada salah satu object OptionsButton kemudian pilih ViewCode atau Anda bisa juga menekan tombol F11 untuk menampilkannya.

STEP 5

Jika sudah masuk ke VBA editor silakan masukan script berikut

Option Explicit

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("F4").Value = 1
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("F4").Value = 2
End Sub

Dari script VBA diatas dapat dijelaskan bahwa jika OptionButton1 di klik maka range F4 akan memiliki nilai value 1 tetapi apabila OptionsButton2 diklik maka nilai dari range F4 adalah 2. mari kita coba hasilnya silakan masuk kembali ke lembar kerja dan klik salah satu optionsbutton misalnya "Laki-Laki" maka cell F4 akan berubah menjadi 1

Selesai.
Saya kira cukup mudah untuk membuat sebuah OptionsButton pilihan jenis kelamin dengan menggunakan ActiveX Control semoga bermanfaat dan selamat mencoba semoga berhasil.

Tweet