[已解决]求助多条件查找老师们帮帮我谢谢了

huaichuan1 · 发表于 2017-9-18 09:24

希望帮我做一个多条件查找代码希望结果不数数值而是直接引用判断结果单元格

新建 Microsoft Excel 工作表 (3).zip (3.73 KB, 下载次数: 5)

grf1973 · 发表于 2017-11-7 10:41

在“执行列”代码里少写了两个end(3)

grf1973 · 发表于 2017-9-18 10:04

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

Sub tt()
Set d = CreateObject("scripting.dictionary")
With Sheet2
For i = 1 To .[a65536].End(3).Row
x = .Cells(i, 1) & .Cells(i, 2)
If Len(x) Then d(x) = "=sheet2!" & .Cells(i, 3).Address(0, 0)
Next
End With
For i = 1 To [a65536].End(3).Row
x = Cells(i, 1) & Cells(i, 2)
If d.exists(x) Then Cells(i, 4).Formula = d(x)
Next
End Sub

复制代码

huaichuan1 · 发表于 2017-9-18 10:21

grf1973 发表于 2017-9-18 10:04

能不能做一个窗体，定义查找第一列，第二列，结果列，目标工作表，这个可以吗

huaichuan1 · 发表于 2017-11-6 08:41

grf1973 发表于 2017-9-18 10:04

新建 Microsoft Excel 工作表 (3).zip (34.88 KB, 下载次数: 3)

grf1973 · 发表于 2017-11-6 10:18

如果只是一个条件的话，用什么公式？sumif吗？

huaichuan1 · 发表于 2017-11-6 10:21

grf1973 发表于 2017-11-6 10:18
如果只是一个条件的话，用什么公式？sumif吗？

新建 Microsoft Excel 工作表 (3).zip (56.8 KB, 下载次数: 2)

grf1973 · 发表于 2017-11-6 10:32

重新修改了一下窗体。梳理了一下思路。
执行单元格代码没写，因为不知道公式是什么，请自已填充完成吧。

grf1973 · 发表于 2017-11-6 10:38

没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val全部去掉即可。

huaichuan1 · 发表于 2017-11-6 10:53

grf1973 发表于 2017-11-6 10:38
没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val ...

42.5 就是一个随意输入的数值，对应目标咧2就可以了，只是不需要判断，判断列2而是判断这个单元格的内容了

huaichuan1 · 发表于 2017-11-6 10:56

本帖最后由 huaichuan1 于 2017-11-6 10:57 编辑

grf1973 发表于 2017-11-6 10:38
没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val ...

我不会用if做判断，所以做了2个按钮来执行代码，

想要一个判断判断列2 为空白，就去查找指定单元格，那个文本框，(由于不会做，所以分开了，理想的是一个文本框内输入比如42.5那个单元格的位置，如c3)

第二个问题，想要结果去除以g列的数值，g列是个变量所以做了文本框，判断对应的g列数值如果不为空白，就除以他

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

[已解决]求助多条件查找老师们帮帮我谢谢了

评分

评分

评分

[已解决]求助 多条件查找 老师们帮帮我谢谢了

评分

评分

评分

[已解决]求助多条件查找老师们帮帮我谢谢了