Kang Mas moderator saya dah coba saran nya tapi tetap, tidak bisa. Untuk info saya menggunkan excel 2003. Apakah mngkin program ini berbeda dengan excel lainnya dalam bhasa VBA nya?
saya juga sudah menggunakan excel 2003 tapi dari kompi lain. hasilnya ketika saya baru memindahkan kursor untuk memilih salah satu item dengan menekan panah bawah koq langsung berpindah ke textbox selanjutnya. jadi fungsi tombol panah atas ataupun bawah menjadi seperti fungsi enter.
saya juga sudah menggunakan excel 2003 tapi dari kompi lain. hasilnya ketika saya baru memindahkan kursor untuk memilih salah satu item dengan menekan panah bawah koq langsung berpindah ke textbox selanjutnya. jadi fungsi tombol panah atas ataupun bawah menjadi seperti fungsi enter.
Dari: Mr. Kid <[email protected]>
Kepada: [email protected]
Terkirim: Sel, 2 Maret, 2010 22:22:37
Judul: Re: Bls: [belajar-excel] Combo box
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 <syahd...@rocketmail .com>
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 bantuannyaTerkirim: 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 pencariantetapi juga sekaligus sebagai tempat untuk menyajikan HASIL pencarianWalaupun hal itu tentu dapat direkayasa, tetapi menurut pendapatku akanmemerlukan algoritma yg lebih rumit dan coding yg panjang.Kalau harus seperti itu, apa anda sudah siap: (logika berfikir yg super jernihdan 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 kriteriaOKButton bukan hanya sekedar menghapus Inputan data di Userform, tetapisebelumnya juga diberi kemampuan mengENTRY data-inputan ke tabel DataPenjualandi sheet1 pada baris yg tepat.------------Dim SelR() As Long, Ri As Integer
Dim datRng As Range, TblDB As RangePrivate 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 SubPrivate Sub TextBox4_Change( )
Kode = "": Harga = ""
If TextBox4 = "" Then
ListBox1..Clear: LbCode.Caption = ""Else
Call Cari(TextBox4.Value)End If
End SubPrivate 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 SubPrivate 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 SubPrivate 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 mencariitem 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; danpengisian tanggal ke tabel tentunya dengan caraDt = DateSerial(Clng( TextBox3) , Cint(TextBox2) , Cint(TextBox1) )TblDB(NewRow, 2) = Format(Dt, "dd-mmm-yyyy")-ctv-
Sent: Saturday, February 27, 2010 5:13 PMSubject: Bls: [belajar-excel] Combo box
Maaf sudah merepotkan. Berikut saya lampirkan file contohnya dalam format xlsdan file pertanyaannya dalam format doc. mohon Bantuannya
Dari: siti Vi <setiyowati.devi@ gmail.com>
Kepada: belajar-excel@ yahoogroups. com
Terkirim: Sab, 27 Februari, 2010 16:32:09
Judul: Re: [belajar-excel] Combo box
dlm subject ini kan ada dua kasus / dua pertanyaantruzz.. 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 inikita kita kan "agak males" kalo sambil menjawab juga harus sambilkerja bakti dulu membuat workbook dan mengarang-karang segala isinya
Wajib militer di Indonesia?
Temukan jawabannya di Yahoo! Answers!
Mulai chatting dengan teman di Yahoo! Pingbox baru sekarang!!
Membuat tempat chat pribadi di blog Anda sekarang sangatlah mudah
