knrt.net
当前位置:首页 >> ExCEl vBA 要是用FinD函数查找内容,找不到怎么办? >>

ExCEl vBA 要是用FinD函数查找内容,找不到怎么办?

看了的代码,先说个无关紧要的建议,最好不要使用GOTO 解决你的问题,需要使用错误捕获语句,下面的例子代码: dim r as rangeon error resume next '不报错set r=columns(i).find("★",,,xlwhole)on error goto 0'恢复报错if r is nothing then ...

vba没有find函数,有instr函数

答: Sub ColorSettings() Dim C As Range Dim ComRng As Range Dim FirstAddress As String Dim FindStr As String FindStr = InputBox("请输入查找的名称", "提示") Set C = ActiveSheet.UsedRange With C Set C = .Find(what:=FindStr, looka...

用match这类函数试试,FIND和SEARCH应该达不到你的要求,因为只要包含都可以查找出来。建议你截个图来看看

你要做什么呢? 如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing

给出网页地址,我来试一下

程序运行正常,一切OK VBA每次只能查找一个RNG啊 ,你不循环咋办,第一循环后内存中RNG已经得到了一个ADDDRESS 不重设RANGE那就是死循环 没有Set rng = Range("h2:h36").FindNext(rng),你的LOOP后面的条件就是没用的

VBA中调研excel函数,方法: 在excel前加:Application.WorksheetFunction. 比如: Application.WorksheetFunction.FIND("查找内容",A:A)

Sub 宏1()For i = 2 To 10 If Not Cells(i, 11).Find("职称") Is Nothing And Not Cells(i, 12).Find("工程师") Is Nothing Then Cells(i, 13) = "中级" End IfNextEnd Sub

明显的逻辑问题埃 如果找到了,则对该单元格做条件判断,如果不满足条件则查找下一个含有abc的单元格。 如果找到了,则对该单元格做条件判断,做完条件判断也需要再查找下一个,跟你的这个条件是没有关系的。。 所以应该是: Do If criterior_Ch...

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com