VBA EXCEL COMBOBOX BERTINGKAT
Memberikan hasil yang maksimal dan kepuasan terhadap pengunjung termasuk prioritas kami sehingga ini akan sangat detail dan singkat. Kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami dibawah ini secara cermat.
Langkah-Langkah Membuat Combobox Bertingkat di Excel :
1. Buka Excel Anda
2. Simpan dengan extensi .xlsm atau .xlsb atau extensi yang bisa menjalankan macro
3. Buatlah data seperti dibawah ini
5. Buatlah 1 buah Userform seperti dibawah ini
6. Jika sudah, sekarang klik 2x userform dan masukan kode macro dibawah ini
ComboBox1.List = Sheet1.Range("A1:A2").Value
End Sub
Private Sub ComboBox1_Change()
ComboBox2 = ""
ComboBox3 = ""
If ComboBox1 = Sheet1.Range("A1") Then
ComboBox2.List = Sheet1.Range("B1:B3").Value
ElseIf ComboBox1 = Sheet1.Range("A2") Then
ComboBox2.List = Sheet1.Range("B4:B5").Value
Exit Sub: End If
End Sub
Private Sub ComboBox2_Change()
ComboBox3 = ""
If ComboBox2 = Sheet1.Range("B1") Then
ComboBox3.List = Application.Transpose(Sheet1.Range("C1:D1").Value)
ElseIf ComboBox2 = Sheet1.Range("B2") Then
ComboBox3.List = Application.Transpose(Sheet1.Range("C2:D2").Value)
ElseIf ComboBox2 = Sheet1.Range("B3") Then
ComboBox3.List = Application.Transpose(Sheet1.Range("C3:E3").Value)
ElseIf ComboBox2 = Sheet1.Range("B4") Then
ComboBox3.List = Application.Transpose(Sheet1.Range("C4:D4").Value)
ElseIf ComboBox2 = Sheet1.Range("B5") Then
ComboBox3.List = Application.Transpose(Sheet1.Range("C5:D5").Value)
Exit Sub: End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan Kode Macro benar, maka sistem akan berjalan secara normal sesuai intruksi yang Anda berikan.
8. Selesai
Mas..Gimana sih supaya kita bisa membaca dan menterjemahkan maksud kode macro ke bahasa kita. ya pokoknya supaya kita tahu lah mas intruksi tersebut
Untuk dapat mengerti bahasa Kode Macro Excel, perlu latihan dan belajar lebih lanjut. Contoh sederhananya seperti berikut.
Bahasa Macro Excel :
Userform1.Show
Terjemah/Intruiksi :
Kode macro....Tolong dong saya panggilkan Userform1
Bahasa Macro Excel :
Private Sub UserForm_Initialize()
ComboBox1.List = Sheet1.Range("A1:A2").Value
End Sub
Terjemah/Intruiksi :
Kode macro....Tolong dong ketika Userform aktif tampilkan daftar data Sheet1 di range A1:A2 pada Combobox1
Dan masih banyak lagi
Maksud dari Menterjemahkan Bahasa Macro Excel ke Bahasa Kita seperti diataskan yang Anda maksud??
Jika benar IYA, saran pertama dari kami adalah memperbanyak belajar, bisa belajar dari internet, Group atau Private belajar ke Programer Excel.
PENJELASAN
Membuat Combobox Bertingkat Di Excel Menggunakan Kode Macro sebenarnya mudah, seperti artikel ini. Nah..jika Anda berangan-angan bahwa "Wah..Excel itu susah..Wah excel itu rumit" coba hilangkan angan-angan itu sedikit demi-sedikit, karena sebenarnya excel itu mudah dan sekarang internet kan ada..
Ayo teman-teman..kalian pasti bisa membuat Aplikasi Buatan Sendiri sesuai kebutuhan Anda. Apa lagi kalau pekerjaan Anda di perkantoran seperti saya..pasti banyak-banyak belajar excel..
PRIORITAS KAMI
Kami sangat memperhatikan hasil maksimal dan kepuasan bagi pengunjung sehingga selain artikel diatas, kami juga menyediakan sampel file gratis untuk pemahaman yang mendalam.
Apabila Anda merasa bahwa artikel ini bagus dan layak untuk dibagikan maka silahkan share ke sosial media yang Anda punya, bisa lewat Facebook, Google Plus, Whatsapp, Telegram dll.
Belajar Excel itu mahal lhoo..
Jika berkenan Anda bisa Share artikel ini ke sosial media apapun
Belajar Excel itu mahal lhoo..
Jika berkenan Anda bisa Share artikel ini ke sosial media apapun
Link Artikel Ini :
https://www.mtsbmtumbrasanom.id/2019/01/kode-macro-excel-combobox-bertingkat.html
Kami Selalu Berusaha Memberikan Yang Terbaik dan Original Untuk Anda
Jabat Erat@Hak Cipta 2015
Post a Comment for "KODE MACRO EXCEL COMBOBOX BERTINGKAT "