Mohon tidak cc ke akun selain milis. Pak Harry,
Bagaimana kalau cboNama yang menggunakan combobox diganti saja dengan textbox. Hapus seluruh proses inisialisasi untuk mengisi item dalam cbonama yang ada userform_init kalau ada. Ganti seluruh proses yang mengambil properti listindex dengan proses mencari dalam tabel (Find) milik range (range.find) atau menggunakan fungsi Match. Wassalam, Kid. 2013/1/7 Harry <[email protected]> > Dear BeExceller, > Mr.Kid > > Mencoba apa yg telah Mr.Kid sampaikan dan sudah saya aplikasikan dengan > Workbook yang saya buat, sudah sesuai dengan yang saya inginkan. > Tapi setelah kolom "NAMA" saya isi dengan "ERNAWATI",maka muncul kolom > dibawahnya sesuai dengan database yang tersedia. Tapi jika kursor tetap > pada kolom "NAMA" dan jika kita menakan tombol Page Up atau Page Down > (tombol panah atas dan bawah), maka otomatis kita bisa mengakses data > sebagaimana database yang telah kita siapkan. > > Pertanyaan saya adalah: Bagaimana caranya supaya jika tombol Page Up & > Down (tombol panah atas dan bawah) kita lock tidak berfungsi sehingga user > hanya dapat mengakses data yang mereka tau atau dengan kata lain, user > tidak dapat mencari data yang mereka inginkan dengan menggunakan tombol > Page Up & Down (panah atas dan bawah). > > Mohon berkenan solusinya. > > Terima kasih & Wassalam, > > Harry > > > Sent from Yahoo! Mail on Android > > ------------------------------ > * From: * Mr. Kid <[email protected]>; > * To: * <[email protected]>; > * Subject: * Re: [belajar-excel] ComboBox harus di isi lengkap > * Sent: * Sun, Dec 30, 2012 11:18:58 PM > > > > 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 >>> >>> >>> >>> >>> >>> >>> >> > >
