]] XL-mania [[ Tanya cara filter tampilan Listbox

 

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.

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 110

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momod akan terdampar seminggu lagi, moderasi akan lemodmod...     |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh...       |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___