Jika properti combobox bernama ShowDropDown blabla menjadi blabla never, maka sebenarnya combobox akan tampak seperti textbox. Kok gak pakai textbox saja ya. Textbox kan juga punya event bernama change juga seperti event combobox change.
Wassalam, Kid. 2012/12/31 Mr. Kid <[email protected]> > Ubah properti bernama ShowDropDown blabla menjadi blabla never. > > Wassalam, > Kid. > > > 2012/12/31 Harry <[email protected]> > >> ** >> >> >> Dear BeExceller, >> Mr. Kid. >> >> Hasilnya sudah sesuai dengan yang saya inginkan. >> Seandainya tanda panah kebawah (dropdown pilihan) dibuang, bisa gak...??? >> >> Terima kasih - Wassalam, >> >> >> Harry >> >> ------------------------------ >> *Dari:* Mr. Kid <[email protected]> >> *Kepada:* [email protected] >> *Dikirim:* Minggu, 30 Desember 2012 2:10 >> >> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap >> >> >> Ada yang lupa. >> Berikut ini lengkapnya : >> 1. Ubah isi properti cbonama bernama MatchEntry menjadi 2 - >> fmMatchentrynone atau sebangsanya >> 2. Ganti isi event change cbonama dengan : >> Dim r As Long >> >> If Cbonama.Text <> UCase$(Cbonama.Text) Then >> Cbonama.Text = UCase$(Cbonama.Text) >> Exit Sub >> End If >> >> Err.Clear >> On Error Resume Next >> r = Application.WorksheetFunction.Match(Cbonama.Text, >> MemMaster.Resize(, 1).Offset(0, 1), 0) >> If Err.Number <> 0 Then >> Err.Clear >> On Error GoTo 0 >> Exit Sub >> End If >> On Error GoTo 0 >> >> lNoRec = r >> txtALAMAT.Value = MemMaster(r, 3) >> txtJURUSAN.Value = MemMaster(r, 4) >> txtTGLDAFTAR.Value = MemMaster(r, 5) >> txtTGLTES.Value = MemMaster(r, 6) >> txtPETUGASINPUT.Value = MemMaster(r, 7) >> txtTANGGALINPUT.Value = MemMaster(r, 8) >> >> Wassalam, >> Kid. >> >> 2012/12/30 Mr. Kid <[email protected]> >> >> Coba ubah isi event change cbonama dengan : >> Dim r As Long >> >> If Cbonama.Text <> UCase$(Cbonama.Text) Then >> Cbonama.Text = UCase$(Cbonama.Text) >> Exit Sub >> End If >> >> Err.Clear >> On Error Resume Next >> r = Application.WorksheetFunction.Match(Cbonama.Text, >> MemMaster.Resize(, 1).Offset(0, 1), 0) >> If Err.Number <> 0 Then >> Err.Clear >> On Error GoTo 0 >> Exit Sub >> End If >> On Error GoTo 0 >> >> lNoRec = r >> txtALAMAT.Value = MemMaster(r, 3) >> txtJURUSAN.Value = MemMaster(r, 4) >> txtTGLDAFTAR.Value = MemMaster(r, 5) >> txtTGLTES.Value = MemMaster(r, 6) >> txtPETUGASINPUT.Value = MemMaster(r, 7) >> txtTANGGALINPUT.Value = MemMaster(r, 8) >> >> Wassalam, >> Kid. >> >> >> >> 2012/12/29 Harry <[email protected]> >> >> ** >> >> Dear BeExceller, >> Pak Slamat, >> >> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan. >> Mohon dapat ditanggapi. >> >> Terima kasih & Wassalam, >> >> >> Harry >> >> ------------------------------ >> *Dari:* Slamet <[email protected]> >> *Kepada:* [email protected] >> *Dikirim:* Jumat, 28 Desember 2012 21:34 >> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap >> >> >> Dear Pak Harry >> >> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan contoh >> tersebut be-exceller lain bisa membantu menjawab dgn melihat struktur >> datanya. >> >> >> Wassalam >> >> >> On 12/28/2012 3:01 PM, Harry wrote: >> >> >> Dear BeExceller, >> >> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian >> ComboBox dengan format isian lengkap baru kolom di bawahnya bisa muncul. >> Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya >> tidak muncul. >> >> Rumus yang saya gunakan selama ini adalah sbb: >> >> Private Sub UserForm_Initialize() >> Dim I As Long, TbHeigh As Long, TbWidth >> Application.EnableEvents = False >> With Cbonama >> .ColumnCount = 2 >> .BoundColumn = 1 >> For I = 1 To TbHeigh >> .AddItem >> .List(I - 1, 0) = MemMaster(I, 2) >> Next I >> End With >> Application.EnableEvents = True >> End Sub >> >> Private Sub Cbonama_Change() >> Dim r As Integer >> If Cbonama.ListIndex > -1 Then >> r = Cbonama.ListIndex + 1 >> If r > 0 Then >> txtalamat.Value = MemMaster(r, 2) >> txtkota.Value = MemMaster(r, 3) >> End If >> End If >> End Sub >> >> >> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H" >> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya >> otomatis muncul isian "ALAMAT" & "KOTA". >> >> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis. >> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian >> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi. >> >> Mohon bantuan rekan-rekan BeExceller akan hal tersebut. >> >> Terima kasih & Wassalam, >> >> >> Harry >> >> >> >> >> >> >> >> > >
