[VBA ] 尋找時間問題

看板Visual_Basic作者 ( . ignore)時間6年前 (2017/12/02 09:37), 6年前編輯推噓1(106)
留言7則, 2人參與, 6年前最新討論串1/1
想請問以下搜尋方式是否有誤呢?... 目的是想要在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://www.ptt.cc/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

12/05 06:37, 6年前 , 1F
先確認 Sheets(1).Cells(1, 2).Value
12/05 06:37, 1F

12/05 06:37, 6年前 , 2F
Sheets(1).Cells(1, 3).Value 的值都是正確的
12/05 06:37, 2F

12/05 06:38, 6年前 , 3F
資料頁裡有要找的值嗎?沒有的話就沒有回傳值
12/05 06:38, 3F

12/05 06:38, 6年前 , 4F
當然就不能copy (沒有row)
12/05 06:38, 4F

12/26 16:08, 6年前 , 5F
將儲存格都改為日期格式後,用進階篩選設定起訖日期區
12/26 16:08, 5F

12/26 16:09, 6年前 , 6F
間並複製到目的地工作,程式碼可錄製後參考程式碼,如
12/26 16:09, 6F

12/26 16:10, 6年前 , 7F
要用您提供的程式碼請加入判斷確認起訖結果均有值
12/26 16:10, 7F
文章代碼(AID): #1Q8WFYAp (Visual_Basic)