[已解决]VBA窗体筛选不精确的问题，请老师帮忙修正~谢谢！

qqq123123

VBA窗台筛选不精确的问题，请老师帮忙修正~谢谢！

附近在此： 2013现金账 - 副本.rar (43.71 KB, 下载次数: 12)

2014-1-26 12:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-26 15:07

1. If DateValue(.Cells(i, 3)) >= DateValue(DTPicker1.Value) And DateValue(.Cells(i, 3)) <= DateValue(DTPicker2.Value) And InStr(.Cells(i, 4) & " ", ComboBox7.Text)>0 And InStr(.Cells(i, 5) & " ", ComboBox8.Text)>0 And InStr(.Cells(i, 6) & " ", ComboBox9.Text)>0 And InStr(.Cells(i, 7) & " ", ComboBox10.Text)>0 And InStr(.Cells(i, 11) & " ", ComboBox11.Text) > 0 And InStr(.Cells(i, 13) & " ", ComboBox12.Text)>0 And InStr(.Cells(i, 12) & " ", ComboBox13.Text)>0 And InStr(.Cells(i, 8) & .Cells(i, 9) & " ", ComboBox14.Text) > 0 Then

复制代码

跳转到最佳答案楼层

hwc2ycy

条件判断真是很吓人，如果用SQL就简单明了多了。

hwc2ycy

1. If DateValue(.Cells(i, 3)) >= DateValue(DTPicker1.Value) And DateValue(.Cells(i, 3)) <= DateValue(DTPicker2.Value) And InStr(.Cells(i, 4) & " ", ComboBox7.Text) And InStr(.Cells(i, 5) & " ", ComboBox8.Text) And InStr(.Cells(i, 6) & " ", ComboBox9.Text) And InStr(.Cells(i, 7) & " ", ComboBox10.Text) And .Cells(i, 11) Like "*" & ComboBox11.Text & "*" And InStr(.Cells(i, 13) & " ", ComboBox12.Text) And InStr(.Cells(i, 12) & " ", ComboBox13.Text) And InStr(.Cells(i, 8) & .Cells(i, 9) & " ", ComboBox14.Text) > 0 Then

复制代码

hwc2ycy

Cells(i, 11)直接用LIKE匹配吧，这样省事。
或者你在combobox的后面再加上>0也是可以的。

hwc2ycy

这里建议你所有的instr()后面加上>0
两个数字and时，结果会让你意外的。

hwc2ycy

1. If DateValue(.Cells(i, 3)) >= DateValue(DTPicker1.Value) And DateValue(.Cells(i, 3)) <= DateValue(DTPicker2.Value) And InStr(.Cells(i, 4) & " ", ComboBox7.Text)>0 And InStr(.Cells(i, 5) & " ", ComboBox8.Text)>0 And InStr(.Cells(i, 6) & " ", ComboBox9.Text)>0 And InStr(.Cells(i, 7) & " ", ComboBox10.Text)>0 And InStr(.Cells(i, 11) & " ", ComboBox11.Text) > 0 And InStr(.Cells(i, 13) & " ", ComboBox12.Text)>0 And InStr(.Cells(i, 12) & " ", ComboBox13.Text)>0 And InStr(.Cells(i, 8) & .Cells(i, 9) & " ", ComboBox14.Text) > 0 Then

复制代码

qqq123123

hwc2ycy 发表于 2014-1-26 15:07

谢谢老师指导
~！！！！