好用的Filter VB函数，用于过滤数据
（创建时间：2012年02月12日 20:35:00）
Jangogo ： 

支持 VB , VBS  及 SC
  

VB
  1. Dim aa As Variant, bb() As String, prt As Variant  
  2.      
  3.   
  4.   aa = Array("刘畅", "李辉", "张丰", "王强", "张家佳", "牛宏伟", "赵志国", "宋伟明", "刘方", "姚辰程", "陈晨", "孙伟", "侯言书", "张逸凡", "韩强", "金泽佑", "谭梅", "吕南", "王刚", "李欢欢", "马晟辉")   
  5.   bb = Filter(aa, Text1.Text, True, vbTextCompare)  '搜索符合条件的字符   
  6.   
  7.   For Each prt In bb   
  8.   
  9.       MsgBox (prt)   
  10.   
  11.   Next  
2012年02月12日 20:35
回复(0)分类(1)转发(0)全文打开
文档中心