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