Filter pada sheet excelnya kemudian load hasil filter sheet excel Kid.
2010/6/22 Barry <[email protected]> > > > Dear master-master Excel, > > Salam kenal sebelumnya.... > > mau tanya saya, membuat cara filter tampilan pada Listbox apakah bisa? > saya mencoba : > '--- Kode ini di Module... > Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd > As _ > Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As > Long > Public Const LB_FINDSTRING = &H18F > '--- Batas kode di Module... > > '--- Kode ini di Form... > Private Sub Form_Load() 'Tambahkan beberapa item ke dalam List1 > List1.AddItem "Adi" > List1.AddItem "Aman" > List1.AddItem "Akhmad" > List1.AddItem "Armanto" > List1.AddItem "Badu" > List1.AddItem "Bobo" > List1.AddItem "Joko" > List1.AddItem "Jaka" > List1.AddItem "Parto" > List1.AddItem "Paino" > End Sub > > Private Sub Text1_Change() > List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal > CStr(Text1.Text)) > End Sub > '--- Batas kode di Form... > > Tapi List add item disini saya mengambil dari sheet data excel. > > THx before. > > >
