knrt.net
当前位置:首页 >> ExCEl vBA 里有FinD这个函数吗? >>

ExCEl vBA 里有FinD这个函数吗?

vba没有find函数,有instr函数

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

建议你查EXCEL帮助。 ----------------------------- FIND 用于查找其他文本字符串 (within_text) 内的文本字符串 (find_text),并从 within_text 的首字符开始返回 find_text 的起始位置编号。也可使用 SEARCH 查...

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

可以查到啊? 可能你的用法错了! Public Function MDD(DH As String) MDD = Sheet1.Cells(Sheet1.Range("a:a").Find(what:=DH).Row, 6) End Function Sub A() MsgBox MDD("PP") End Sub

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

在Excel VBA中Find函数的基本用法。Find函数就是Excel表格中的查找功能,可以通过录制宏的方法来获得Find的代码。 Sub Macro1() Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, Sear...

发个原表吧,cnbubble@163.com Office2010 ,代码未修改,未发现 你说的问题。 未发现闪烁问题,如果有,就像Simon回答的,通常可以设置Application.ScreenUpdating解决 数值问题,可以用Format函数解决

参数错了。 这个函数的参数只能是搜索范围内的单个单元格,而你的c(1)在前面得到的是查找到第一个单元格的地址,是一个字符串变量。参数应该改为: After:=Range(c(1))

给你多个查询替换的例子看看,有用的话,给加分啊 '多字符替换vba程序 Public Sub Multi_replacement() '多个字符替换为一个 Dim IP As Variant Dim OP As String Dim TP As String IP = Split(Application.InputBox("替换的字符,多个用|隔开"),...

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