xqzz.net
当前位置:首页 >> ExCEl vBA FinD函数 >>

ExCEl vBA FinD函数

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

Sub Myfind() Dim iRange As Range, iFined As Range Dim iStr, iAddress As String, N As Integer '以上是定义使用到的变量 Set iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域 iStr = Range("A1").Value '给要查找的字符串变量赋...

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

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

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

提示的是 find 函数没有定义! 因为find 函数 是 cells 类下的成员函数 ActiveWorkbook.Worksheets(1).Cells(10,11)= ActiveWorkbook.Worksheets(1).Cells.Find("足球", ActiveWorkbook.Worksheets(1).Cells(3, 6).Value) 这样就可以了

用application.worksheetsfunction.方式看看,与EXCEL表格中的find用法一样。

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

你可以先定义b= TextBox1.Text 假设你要在sheet1中查找b,然后定义: with sheets("sheet1") set a=.find(b,lookin:=xlvalues) if not a is nothing then .Rows(a.row).Copy Sheets("sheet2").Rows(11) end if end with 即可.

Private Sub CommandButton1_Click() With Sheet2.Columns("A:A") Set c = .Find(100, LookIn:=xlValues, LookAt:=xlWhole) Sheet1.Range("c1").Value = c.Offset(0, 1).Value End With End Sub ------ LookAt:=xlWhole 表示查找时整个单元格匹...

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