请老师帮忙实现一下查找的功能

ryoryo66 · 发表于 2018-9-10 10:42

我想查找1:9表中,所有S7:S8范围,大于100的数值有没有.

能不能用VBA写出来啊,非常感谢!

astupig · 发表于 2018-9-10 11:18

公式就可以实现：

=IF(MAX('1:9'!S7:S8)>100,"有","没有")

astupig · 发表于 2018-9-10 11:31

'以下为VBA：
Sub check100()

Dim sht As Worksheet
Dim i, s As Integer

s = 0

For i = 19 To 36

For Each sht In Sheets
      If Len(sht.Name) = 1 Then
         If sht.Cells(7, i) > 100 Or sht.Cells(8, i) > 100 Then
            s = s + 1
         End If
      End If
Next
Sheet1.Cells(11, i) = IIf(s = 0, "没有", "有")
s = 0

Next

End Sub

lsc900707 · 发表于 2018-9-10 11:38

找到的话放到哪里？怎么放？

ryoryo66 · 发表于 2018-9-10 11:43

lsc900707 发表于 2018-9-10 11:38
找到的话放到哪里？怎么放？

谢谢老师,就是放到A1就可以了,输入的范围和所要查找的数值是不是要多需要一个单元格?

lsc900707 · 发表于 2018-9-10 12:07

ryoryo66 发表于 2018-9-10 11:43
谢谢老师,就是放到A1就可以了,输入的范围和所要查找的数值是不是要多需要一个单元格?

对呀，什么地方输入，结果放哪里,你要界定好呀。

alstar · 发表于 2018-9-10 12:14

求助.rar (43.67 KB, 下载次数: 3)

请测试。

ryoryo66 · 发表于 2018-9-10 12:27

lsc900707 发表于 2018-9-10 12:07
对呀，什么地方输入，结果放哪里,你要界定好呀。

好的,就把所要查找的数字放到A1,所要查找的范围放在B1,结果就放到C1

alstar · 发表于 2018-9-10 12:34

求助1.rar (45.96 KB, 下载次数: 3)

支持手动选择查找区域。

lsc900707 · 发表于 2018-9-10 12:36

ryoryo66 发表于 2018-9-10 12:27
好的,就把所要查找的数字放到A1,所要查找的范围放在B1,结果就放到C1

放在哪个工作表？

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

[求助] 请老师帮忙实现一下查找的功能

评分

评分

评分

评分