phfb.net
当前位置:首页 >> vBA FinD找不到结果 >>

vBA FinD找不到结果

1、打开Excel制作如图所示的表格.2、 现在要在日期中调出月份和号数.把光标移动到“B2”单元格,单击菜单栏“公式”文本find.3、在弹出的对话框中输入如图所示的内容.4、 现在单击确定就可以找到月份所对应的数据的位置了.5、用下拉手柄下下拖动公式可以把公式填充到其他单元格.6、用同样的方式可以把号数的位置也找出来.就完成了.

ifind=irange.find(trim(filename),lookin:=xlvalues,lookat:=xlpart)

问题会不会出现在两个值其中某一个是含有空格等看不见的字符,这样对比一定不会相同的!要是这样,可以试试下面 if trim(Cells(98, 3).Value) = trim(Sheets2.Range("A8").Value) then cells(20,2)="44" end if 像你这个问题,你自己应该能够自己解决的 在上面语句设立断点,跟踪一下等号左右两边的值,应该就会发现问题所在的!

【1】xls.[a1] 改为 xls.range("a1")【2】activesheet,这时是你 新建的 sheet,不是你有数据的sheet,可以先激活你有数据的sheet,如:workbooks("你有数据的工作表名").worksheets(1).active 然后再copy或者在新建一个workbook之前

因为你设置的公式或参数不对,或者根本就是没能都找到的东西,当然也就找不到结果啦

for each里加一个if语句如果找到了就弹出msgbox并exit for

call copData(Selection) 这样才是正确调用或者copyData Selection 也可以

如果是MDD为nothing,那就是你的Sheet1表中第6列没有值;如果是Find为nothing,那就是你的Sheet1表中A列不存在DH所指定的字符串; 否则就是不存在名为Sheet1的表

哦.检查了我以前的代码.估计可能是你的iserror和与vlookup后面结果的错误造成的!!!因为vlookup生成的后面有公式存在,而提供给iserror的参数错误,导致的.我当初就是再把它转成数值格式的,然后再应用iserror,后面就ok了.我的代

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).ValueEnd WithEnd Sub ------LookAt:=xlWhole 表示查找时整个单元格匹配,而不匹配1005、51008之类的数字Offset(0, 1)表示在c的位置上,行移动0,列右移1 ,的单元格

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