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.
