代码之家 › 专栏 › 技术社区 › Mike Mann

循环if条件并搜索。如果找不到值,该怎么办

vba find loops excel

Mike Mann · 技术社区 · 7 年前

我试图在一个范围内循环,如果值满足,则搜索另一个范围 if 声明标准。如果搜索失败,我希望出现msgbox。不过,我一直在思考如何设置搜索失败的标准。

Dim r2 As Range
    For Each r2 In WorkRng2
        If r2.Offset(0, 1).Value <> 0 Then
            WorkRng1.Find what:=r2.Value, LookIn:=xlValues

WorkRng2 是公共范围变量。

如何完成此代码以警告用户搜索失败?

1 回复 | 直到 6 年前

Variatus 7 年前

Find 是否查找范围。因此

Dim Fnd As Range
Set Fnd = WorkRng1.Find(what:=r2.Value, LookIn:=xlValues)
If Fnd Is Nothing Then
    ' Nothing found
Else
    ' Fnd holds the cell that was found
End If

推荐文章

Keren · 如何使变量大1

1 年前

smg_08 · 使用for循环在pandas数据帧中进行筛选[重复]

1 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前

nickolakis · 基于R中的列名复制列

2 年前

khalid Morrshid · 循环语法C语言

2 年前

Onur · R中矩阵的循环

2 年前

Alex · 如何向嵌套字典json添加值?

2 年前

George carrick · 如何在R中检测时间序列数据中的缺失年份?

2 年前

CS Geek · 如何实现一个循环,其中:数字不能在输入的中间使用;他们最后一定要来?

2 年前

Klang · 我怎么做我自己的绳子。Split()和数组。Reverse()一个用户定义函数中的内置函数,用于反转给定字符串?

2 年前