Control : Toggle Button

Prasyarat:

Toggle Button dalam VBA (Visual Basic for Applications) adalah salah satu jenis kontrol atau objek yang digunakan sebagai tombol yang memiliki dua keadaan atau status yang berbeda.

Misalnya keadaan aktif (ON) dan nonaktif (OFF). Ketika tombol ditekan, ia akan berubah dari satu status ke status lainnya, mengizinkan pengguna untuk mengaktifkan atau menonaktifkan suatu fungsi atau fitur.

Memberikan Aksi

Yang membedakan Toggle button dengan Command Button tentu ada di aksi klik tombolnya. Pada Command Button, setiap klik akan menjalankan aksi yang sama, sedangkan pada Toggle Button memiliki 2 aksi yang berbeda.

Bagaimana contoh penerapannya? bisa dilihat pada scipt dibawah ini.

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        MsgBox "Toggle Button dalam status AKTIF"
    Else
        MsgBox "Toggle Button dalam status NONAKTIF"
    End If
End Sub

Pada script diatas yang membedakan setiap aksinya adalah dengan menggunakan IF dimana Nilai Toggle Button dicek apakah nilainya TRUE atau FALSE.

Setiap aksi akan dijalankan sesuai dengan Nilai dari Toggle Button.

Contoh Kasus Toggle Button

• Buat sebuah tombol ketika di klik akan menyembunyikan Kolom E:G dan jika di klik lagi akan menampilkan Kolom E:G

Jawaban :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value Then
    Sheet1.Columns("E:G").Hidden = True
Else
    Sheet1.Columns("E:G").Hidden = False
End If
End Sub