Activex Control

ActiveX Control

Adalah objek yang digunakan dalam pembuatan aplikasi untuk memudahkan interaksi antara aplikasi dan user. Objek ini diletakan di dalam worksheet

1. Command Button

Adalah objek yang digunakan untuk mengeksekusi kode yang ada di dalamnya. Jika anda mengikuti tutorial dari awal, saya yakin anda sudah bisa membuatnya

2. Text Box

Digunakan untuk meng input data baik berupa teks maupun angka.Misalkan kita akan membuat skenario agar teks yang diinputkan di teks box tersebut akan terkirim di sel A1 ketika tombol Command Button di tekan. Buatlah sebuah Text Box dan sebuah Command Button. 

Klik kanan pada Command Button, klik view code dan masukan kode berikut:

Private Sub CommandButton1_Click()

Range("A1").Value = TextBox1.Value

End Sub

Jalankan aplikasi, ketikan teks "Halo apa kabar" di text box, lalu tekan tombol Command Button, hasilnya:

3. Option Button

    adalah objek yang digunakan untuk menampilkan data secara opsional yang harus dipilih salah satu saja, misalnya jenis kelamin. Pada sesi ini sekaligus dikenalkan tentang objek properties.

Buat radio button sebanyak 2 buah dan satu buah Command Button. Klik kanan pada optionbutton1, klik propertis, cari caption, hapus teks option button, ganti dengan teks : Laki-laki. Lakukan hal yang sama pada option button2, ganti dengan teks : perempuan. Begitu juga dengan tombol Comman button, ganti captionnya menjadi : simpan. 

Setelah itu, klik kanan pada tombol simpan, view kode dan masukan kode berikut:

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

Range("A1").Value = "laki-laki"

ElseIf OptionButton2.Value = True Then

Range("A1").Value = "perempuan"

Else

Range("A1").Value = ""

End If

End Sub

Jalankan aplikasi, pilih opsi perempuan, tekan tombol simpan, hasilnya:

4. SPINBUTON

Spin Buttond digunakan untuk menaikan dan menurunkan niai dengan menekan tombol.
Contoh: Buatlah sebuah tekt box dan sebuah spin button. Klilk kanan pada spinbutton , klik view kode dan masukan kode berikut:



Private Sub SpinButton1_Change()


TextBox1.Text = SpinButton1.Value

End Sub


Jalankan aplikasi,