Enable Disable Textbox Berdasarkan Pilihan Di ComboBox VBA Excel

 Hallo Sobat Excel, selamat datang kembali di blog Aplikasi Excelku. Pada kesempatan ini kembali Saya akan berbagi tutorial sederhana mengenai VBA Excel, dan sesuai dengan judul artikel kali ini yaitu "Enable Disable Textbox Berdasarkan Pilihan Di ComboBox VBA Excel". Dimana nantinya kita akan membuat sebuah TextBox enable (aktif) atau pun disable (tidak aktif) sesuai dengan isi (value) dari sebuah ComboBox.

Contoh sederhananya adalah Saya membuat sebuah ComboBox yang berisi mengenai status perkawinan, dimana ComboBox tersebut memuat beberapa data, diantaranya : Kawin, Belum Kawin, Janda, dan Duda. Dan nantinya akan ada sebuah TextBox yang akan digunakan jika data yang dipilih didalam ComboBox tersebut adalah Kawin, pastinya TextBox tersebut akan digunakan untuk mengisi (Input) data atau nama dari suami maupun istri.

Untuk lebih jelasnya lagi Saya praktekkan saja, dan berikut merupakan langkah-langkahnya :

Enable Disable Textbox Berdasarkan Pilihan Di ComboBox

Disini Saya sudah membuat sebuah Userform yang didalamnya sudah Saya sisipkan sebuah ComboBox dan sabuah TextBox dan berikut tampilannya :

Kemudian Saya menyisipkan kode/script Macro di bawah ini kedalam UserForm tersebut :

Kode/Script Macro 1 (untuk UserForm)

Private Sub UserForm_Initialize()
'https://aplikasiexcelku.blogspot.com/
Me.TextBox1.Enabled = "False"
Me.TextBox1.BackColor = RGB(166, 166, 166)
With Me.ComboBox1
    .AddItem "KAWIN"
    .AddItem "BELUM KAWIN"
    .AddItem "JANDA"
    .AddItem "DUDA"
End With
End Sub

Efek dari kode/srcipt Macro di atas adalah, pada saat UserForm dipanggil, maka secara otomatis TextBox akan Disable dan TextBox tersebut berwarna abu-abu (Grey), seperti pada gambar di bawah ini :

Selanjutnya Saya memasukkan kode/script Macro di bawah ini kedalam ComboBox :

Kode/Script Macro 2 (untuk ComboBox)

Private Sub ComboBox1_Change()

'https://aplikasiexcelku.blogspot.com/

If Me.ComboBox1.Value = "KAWIN" Then

Me.TextBox1.Enabled = "True"

Me.TextBox1.BackColor = RGB(255, 255, 196)

ElseIf Me.ComboBox1.Value = "BELUM KAWIN" <> "JANDA" <> "DUDA" Then

Me.TextBox1.Value = ""

Me.TextBox1.Enabled = "False"

Me.TextBox1.BackColor = RGB(166, 166, 166)

End If

End Sub

Dan efek dari kode/script Macro di atas adalah jika data yang ada didalam ComboBox yang dipilih adalah KAWIN maka secara otomatis TextBox akan Enable (aktif) dan warna dari TextBox tersebut akan berubah menjadi warna kuning, dan nantinya kita bisa mengisi (Input) data atau nama dari Suami maupun Istri didalam TextBox tersebut, dan berikut tampilannya :

Kemudian jika data yang ada pada ComboBox yang dipilih adalah BELUM KAWIN, JANDA, atau DUDA maka secara otomatis TextBox tersbut akan Disable (tidak aktif) sekaligus isi yang ada di dalam TextBox tersebut akan hilang atau terhapus (jika kita sudah memasukkan data atau nama suami/istri didalamnya), dan juga warna dari Textbox tersebut akan kembali berubah menjadi abu-abu (Grey), berikut tampilannya :

Dengan kata lain si ComboBox tersebut berfungsi sebagai Switch yang bisa mengaktifkan/menonaktifkan TextBox tersebut. Bagaimana? mudah bukan?. Mungkin hanya itu saja yang bisa Saya sampaikan pada kesempatan ini, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat bagi kita semuanya.

Saya ucapkan terimakasih sebanyak-banyaknya kepada Sobat Excel yang sudah setia mengunjungi blog sederhana Saya ini. Demikian, dan Salam Belajar!.

Share :