[已解决]查询功能

爱很简单 · 发表于 2017-6-17 15:43

麻烦各位看看，哪里出错了!!!!!!

最佳答案

chart888

2017-6-17 16:59

本帖最后由 chart888 于 2017-6-17 17:09 编辑

Private Sub CommandButton1_Click()
Dim arr, brr, i&, k&
arr = Worksheets("数据库").Range("D2:H" & Worksheets("数据库").Cells(Rows.Count, 4).End(3).Row) '
brr = Worksheets("数据查询").Range("AL6:AP6")
For i = 1 To UBound(arr)
For k = 1 To 5
If brr(1, k) <> "" Then
If brr(1, k) = arr(i, k) Then
Worksheets("数据库").Cells(i + 1, 19) = "真的"
Else
Worksheets("数据库").Cells(i + 1, 19) = ""
GoTo AA
End If
End If
Next
AA:
Next
End Sub

复制代码

chart888 · 发表于 2017-6-17 15:45

乱七八糟
完全看不懂你的问题

爱很简单 · 发表于 2017-6-17 15:56

AL6---AP6 去掉5后· 就没有结果了，这是为什么·· 意思是AL---AP 为条件，在另外一张表中查询，如果都相等则S列为“真的”

爱很简单 · 发表于 2017-6-17 15:57

chart888 发表于 2017-6-17 15:45
乱七八糟
完全看不懂你的问题

这样说明白不？

chart888 · 发表于 2017-6-17 16:09

爱很简单发表于 2017-6-17 15:56
AL6---AP6 去掉5后· 就没有结果了，这是为什么·· 意思是AL---AP 为条件，在另外一张表中查询，如果都 ...

去掉 5之后那个单元格就是空了，所以就不进行了
And (t5 <> "" And arr1(i, 8) = t5)

你这句

爱很简单 · 发表于 2017-6-17 16:16

chart888 发表于 2017-6-17 16:09
去掉 5之后那个单元格就是空了，所以就不进行了
And (t5 "" And arr1(i, 8) = t5)

恩恩，但是如果我还想它继续执行呢？就是当条件为1,2,3,4时也要继续执行，因为另外一张表有1,2,3,4,这是能查到的

爱很简单 · 发表于 2017-6-17 16:21

chart888 发表于 2017-6-17 16:09
去掉 5之后那个单元格就是空了，所以就不进行了
And (t5 "" And arr1(i, 8) = t5)

在不加elseif的情况下·· 能不能改？因为有100多种可能，不可能写100多个elseif`````

chart888 · 发表于 2017-6-17 16:24

爱很简单发表于 2017-6-17 16:21
在不加elseif的情况下·· 能不能改？因为有100多种可能，不可能写100多个elseif`````

我建议你把你的要求说出来了
听你的意思好像是很多条件的情况下进行匹配
好像用你现在的方式不太好

chart888 · 发表于 2017-6-17 16:27

爱很简单发表于 2017-6-17 16:16
恩恩，但是如果我还想它继续执行呢？就是当条件为1,2,3,4时也要继续执行，因为另外一张表有1,2,3,4,这是 ...

条件为1,2,3,4时也要继续执行的话那你的查询还有什么意义呢不管1234还是12345是不是都能匹配上后面全部填"真的"?

爱很简单 · 发表于 2017-6-17 16:34

chart888 发表于 2017-6-17 16:27
条件为1,2,3,4时也要继续执行的话那你的查询还有什么意义呢不管1234还是12345是不是都能匹配上后面全 ...

恩恩

		自动登录	找回密码
密码			注册