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 > > > > > > > >
