EXCEL VBA如何实现多条件查询功能

小弟对VBA还不是很了解，请教各位如何在EXCEL表中建立多条件查询功能，可以根据文本框、多选按钮、单选按钮进行组合查询，同时也可以根据单一条件建立查询，将客户数据表中的数据通过查询表中的条件显示在查询表下方，请各位大侠们帮助。附件是EXCEL表格。谢谢各位了。

另外：在数据表中，产品列有"O与X"两种值，O代表已使用产品，X代表未使用产品，当选中CHECKBOX上的产品时，其实Where 中的CheckBox1.value=X,未选中默认为O.但是我不知道如何去给CheckBox赋上单元格中的值，谢谢各位了。
例如有ABCDEFGHIJK种产品，想查找A,B产品为X的，也就是说想查询出未使用AB产品的客户列表。只要单选一个未使用产品就能搜索出没有使用该产品的所有客户。

如果谁能解答私信我，小弟感激不尽QQ8726644

举报该问题

推荐答案 2013-08-01

Private Function GetQryCDT() As String      'è·åçé¢æ¡ä»¶

    If Not IsNull(dtpEndDate.value) Then GetQryCDT = GetQryCDT & " and [FEndDate] <='" & dtpEndDate.value & "'"   'æ¥æåç©ºé´

    If Trim(txtBarCode.Text) <> "" Then GetQryCDT = GetQryCDT & " and [FBarCode] like '%" & txtBarCode.Text & "%'" 'ææ¬æ§ä»¶

    If chkState.Item(0).value = Unchecked Then GetQryCDT = GetQryCDT & " And FBillState<2"  'å¤éé¡¹æ§ä»¶
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/sxUpxsxD2.html

其他回答

第1个回答 2013-07-18

vba筛选帮助实现

第2个回答 2013-07-18

你直接筛选不能实现吗？追问

想通过VBA来实现这个功能，能否帮助！

追答

我也不太会，条件太多，用IF +FOR的话代码执行会很慢

相似回答

EXCEL 中多条件查询VBA代码解释答：'定义查询语句 Dim strsql As String '打开数据库连接，并设置数据源为本工作簿。注意，这是2003版本滴。cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ActiveWorkbook.FullName ‘设置数据源为数据表，并选择字段1~字段4。必须满足条件：字...

请问如何使用excel vba 查找2次,或多条件查找答：在E1起输出结果 Sub test()Set d = CreateObject("Scripting.Dictionary")R = Range("A65536").End(xlUp).Rowarr = Range("A1:C" & R)For i = 1 To R If arr(i, 1) = "s56" And arr(i, 2) = "s57" Then n = n + 1 d(arr(i, 1) & "," & arr(i, 2) & ...

EXCEL VBA 数据表多条件查询 如条件为空白,继续判读其它条件而不是去...答：If Sheet1.Cells(h, "A") >= C1 And Sheet1.Cells(h, "A") <= C2 and ( Sheet1.Cells(h, "B") = C3 or Sheet1.Cells(h, "C") = C4 or Sheet1.Cells(h, "D") = C5 )

Excel求助大神写一个VBA实现多个表中按条件抓取数据到一个表中vba多个...答：先将单元格区域写入数组，再导出到每个新建的表格。Sub d() arr = ActiveSheet.Range(\"b1:u\" & ActiveSheet.[b65536].End(3).Row) For a = 2 To UBound(arr, 2)Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = a - 1Worksheets(Worksheets.Count).Range(\"d1\").Resize(...

excel多条件筛选答：vba多条件筛选第二，使用函数公式实现excel多个条件筛选 “表二”工作表的A2单元格输入公式：=INDEX(表一!B:B,SMALL(IF(((表一!$C$2:$C$16="女")+(表一!$G$2:$G$16>6000)),ROW($2:$16),4^8),ROW(A1)))&""，按ctrl+shfit+enter三键结束，然后下来，直到出现空白为止。第三，...

EXCEL中如何用VBA如何实现条件查找答：这个功能如果用VBA做也挺麻烦的，反倒不如建议你用“数据－筛选－高级筛选”功能来实现，去研究一下这个吧，挺方便的。如果你一定要用VBA做，那在做上面的高级筛选时进行录制宏吧。它录制的语句就是你需要的VBA语句（当然需要小小地改造一下）

大家正在搜

如何使用条件格式化功能如果程序的功能说明中含有输入条件 EXCEL用VBA增加行 EXCEL表格VBA代码解释器条件功能格式怎么利用条件格式功能利用条件化格式功能条件格式化功能在哪 EXCEL 宏