coba kode pada prosedur event Private Sub ListBox1_Click() dipindah ke event Private Sub ListBox1_after_update()
kode pada event click dikerjakan jika ada kegiatan klik. kode pada event after_update dikerjakan jika ada kegiatan pengubahan suatu nilai pada object. Regards. Kid. 2010/3/2 Arista Syahdana <[email protected]> > Maaf numpang tanya lagi. File dari mbak siti telah saya modifikasi. Tapi > saya memiliki kendala lain. > 1. pada saat saya sudah memasukkan kriteia di text box muncul beberapa nama > barang di list box. tetapi ketika saya ingin memilih item teratas dengan > langsung menekan enter ternyata tidak ada hasil pada label barang dan kode. > 2. ketika saya telah memilih item di listbox tombol enter koq jadi tidak > berfungsi. Padahal biasanya kalo kursor berada di textbox dan kita tekan > enter maka akan langsung keluar dan kursor berpindah ke control yang lain. > Apakah memang pada list box tombol enter tidak mempunyai fungsi. > > Mohon bantuannya > > > ------------------------------ > *Dari:* siti Vi <[email protected]> > *Kepada:* [email protected] > *Terkirim:* Ming, 28 Februari, 2010 15:42:45 > > *Judul:* Re: [belajar-excel] Combo box > > > dlm penjelasannya, antara lain penanya menginginkan agar: > *TextBox4 * dijadikan tempat untuk *menuliskan KRITERIA pencarian* > tetapi juga *sekaligus* sebagai tempat untuk *menyajikan HASIL pencarian* > > Walaupun hal itu tentu dapat direkayasa, tetapi menurut pendapatku akan > memerlukan algoritma yg lebih rumit dan coding yg panjang. > Kalau *harus *seperti itu, apa anda sudah siap: (logika berfikir yg super > jernih > dan super"cerdik" dalam mencari algoritmanya.) ?? > Nantinya pasti bisa, tetapi sekarang belajar pakai yg mudah dulu.. > > Untuk saat ini sebaiknya TekxtBox4 = sbg tempat menuliskan kriteria saja. > Lalu dibuat lagi Textbox lain / Label lain: untuk menyajikan *hasil > pencarian 1* > (Daftar "Kode" yg sesuai kriteria) > dan ListBox1 tetap sesuai keinginan : menampilkan *hasil pencarian 2 * > (daftar NamaProduct) yg sesuai kriteria > > *OKButton* bukan hanya sekedar menghapus Inputan data di Userform, tetapi > sebelumnya juga diberi kemampuan mengENTRY data-inputan ke tabel > DataPenjualan > di sheet1 pada baris yg tepat. > ------------ > Dim SelR() As Long, Ri As Integer > Dim datRng As Range, TblDB As Range > > Private Sub UserForm_Initialize() > Set datRng = Sheets("Sheet2").Range("B5").CurrentRegion.Offset(1, 0) > Set datRng = datRng.Resize(datRng.Rows.Count - 1, datRng.Columns.Count) > Set TblDB = Sheets("Sheet1").Range("B5") > End Sub > > Private Sub TextBox4_Change() > Kode = "": Harga = "" > If TextBox4 = "" Then > ListBox1.Clear: LbCode.Caption = "" > Else > Call *Cari*(TextBox4.Value) > End If > End Sub > > Private Sub Cari(Kriteria) > Dim n As Long, r > ListBox1.Clear: LbCode.Caption = "" > For n = 1 To datRng.Rows.Count > If Left(datRng(n, 1), Len(Kriteria)) = Kriteria Then > ListBox1.AddItem datRng(n, 2) > LbCode.Caption = LbCode.Caption & " " & datRng(n, 1) & vbCrLf > r = r + 1: ReDim Preserve SelR(1 To r) > SelR(r) = n > End If > Next > End Sub > > Private Sub ListBox1_Click() > Dim Krite, i As Integer > Kode = "": Harga = "" > For i = 0 To ListBox1.ListCount > If ListBox1.Selected(i) = True Then > Krite = ListBox1.List(i) > *Ri = i* > Exit For > End If > Next i > Kode = datRng(SelR(Ri + 1), 1) > Harga = datRng(SelR(Ri + 1), 3) > End Sub > > Private Sub CommandButton1_Click() > Dim NewRow As Long > > If Len(Kode.Caption) > 0 Then > NewRow = TblDB(0, 1).CurrentRegion.Rows.Count > ' mengisi tabel > TblDB(NewRow, 1) = NewRow > TblDB(NewRow, 2) = Format(DTPicker1, "dd-mmm-yyyy") > TblDB(NewRow, 3) = datRng(SelR(Ri + 1), 2) > TblDB(NewRow, 4) = datRng(SelR(Ri + 1), 3) > TblDB(NewRow, 5) = "mo diisi apa neh" > 'menghapus form Input > TextBox4 = "": LbCode.Caption = "" > ListBox1.Clear: Kode = "": Harga = "" > End If > End Sub > ------------ > > btw, > sebetulnya hal tsb dapat diringkas bila kita gunakan combobox untuk > mencari > item yg diinginkan; karena di dalam Combobox banyak hal yg sudah tersedia > (tanpa dicari) untuk menampilkan hasil seperti pekerjaan TextBox & ListBox > > & Label-label pada cara di atas. > > oiya, > Jika *DTPicker control *malah menyulitkan anda (sering ocx -nya tidak > tersedia) > maka pemakaian 3 Textbox untuk membentuk DATE dapat diteruskan; dan > pengisian tanggal ke tabel tentunya dengan cara > > Dt = DateSerial(Clng(TextBox3), Cint(TextBox2), Cint(TextBox1)) > TblDB(NewRow, 2) = Format(Dt, "dd-mmm-yyyy") > -ctv- > > ------------------------------ > > ----- Original Message ----- > *From:* Arista Syahdana <[email protected]> > *To:* [email protected] > *Sent:* Saturday, February 27, 2010 5:13 PM > *Subject:* Bls: [belajar-excel] Combo box > > Maaf sudah merepotkan. Berikut saya lampirkan file contohnya dalam format > xls > dan file pertanyaannya dalam format doc. mohon Bantuannya > > ------------------------------ > *Dari:* siti Vi <[email protected]> > *Kepada:* [email protected] <[email protected]> > *Terkirim:* Sab, 27 Februari, 2010 16:32:09 > *Judul:* Re: [belajar-excel] Combo box > > dlm subject ini kan ada *dua kasus / dua pertanyaan* > truzz.. *kasus yg mana* yang anda katakan "tidak terjadi apa-apa" itu ? > berdiskusi via milis andalan kita adalah bahasa yg jelas.. > > atau.. gini saja..... > *workbook percobaan yg suah dibuat *itu dilampirkan/ kirim kemareee.. > kita-kita (kalo bisa) tinggal "biking betoel" > bukan membayangkan- bayangkan spt sekarang ini > > kita kita kan "agak males" kalo sambil menjawab juga harus sambil > kerja bakti dulu membuat workbook dan mengarang-karang segala isinya > > > > > ------------------------------ > Wajib militer di Indonesia? > Temukan jawabannya di Yahoo! Answers! >
<<UserFormArista.GIF>>
