作者debbiejames ( . ignore)
看板Visual_Basic
标题[VBA ] 寻找时间问题
时间Sat Dec 2 09:37:35 2017
想请问以下搜寻方式是否有误呢?...
目的是想要在excel资料里 搜寻区段时间的data然後复制
但我怎麽写都会有问题..而且每次连续跑2次一定当掉..
可否帮忙看哪边有问题呢?tks
其中cells(1,2)和cells(1,3)就是我所设定要搜寻的时间起始值和结束值
想要搜寻完後,将这区段的entire row选取复制...但目前写不出来...
Sheet(1)是设定分页
sheet(2)是所有data分页
SHEET(3)是搜寻後,把区间的DATA复制贴上,但这步目前都没做,光是复制
DATA就出问题了
Workbooks(main_book).Sheets(2).Select
Set searchdataSTART = Range("A:XX").Find(What:=Workbooks(main_book)._
Sheets(1).Cells(1, 2), LookIn:=xlValues)
Set searchdataEND = Range("A:XX").Find(What:=Workbooks(main_book)._
Sheets(1).Cells(1, 3), LookIn:=xlValues)
Rows(searchdataSTART.Row & ":" & searchdataEND.Row).Select
Selection.Copy
'Workbooks(main_book).Sheets(3).Select
'Cells(1, 1).Select
'ActiveSheet.Paste
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.35.119.189
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1512178658.A.2B3.html
※ 编辑: debbiejames (114.35.119.189), 12/02/2017 09:40:35
※ 编辑: debbiejames (114.35.119.189), 12/02/2017 09:42:12
※ 编辑: debbiejames (114.35.119.189), 12/02/2017 10:05:24
1F：推 Iories: 先确认 Sheets(1).Cells(1, 2).Value 12/05 06:37
2F：→ Iories: Sheets(1).Cells(1, 3).Value 的值都是正确的 12/05 06:37
3F：→ Iories: 资料页里有要找的值吗？没有的话就没有回传值 12/05 06:38
4F：→ Iories: 当然就不能copy (没有row) 12/05 06:38
5F：→ vincent0926: 将储存格都改为日期格式後,用进阶筛选设定起讫日期区 12/26 16:08
6F：→ vincent0926: 间并复制到目的地工作,程式码可录制後参考程式码,如 12/26 16:09
7F：→ vincent0926: 要用您提供的程式码请加入判断确认起讫结果均有值 12/26 16:10