用vba語法比對日期

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-18 14:58 | 顯示全部帖子

用vba語法比對日期

本帖最後由 imzues 於 2011-4-18 15:37 編輯

若是我的原始數據裡有年月日時間，但我只要match日期和時間，然後按match的日期匯入資料
像這種要match兩筆以上的條件，
那我要怎麼用vba寫那行的語法ㄚ???

樓主熱帖

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

2^#

發表於 2011-4-20 07:33 | 顯示全部帖子

不好意思....講的太模糊了
我已經幫檔附上來了，在麻煩講解一下~感謝

Book1v1.zip (1.98 KB)

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

3^#

發表於 2011-4-20 10:55 | 顯示全部帖子

感謝大大熱心的解答，小弟還有個問題
若是我[E4:E11]這8筆的資料是每天都會做變動，若有和先前匯過的日期相同時，
有辦法和匯過的那些數字做加總嗎？

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

4^#

發表於 2011-4-20 15:59 | 顯示全部帖子

不好意思
我想請問一下Cells(4 + N, 5) = ""
="" <===這寫法的意思是什麼?

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

5^#

發表於 2011-4-21 10:43 | 顯示全部帖子

不好意思你寫的那段程式好像沒辦法執行

Set k = Sheet1.Range("I3:K3").Find(A, LookIn:=xlFormulas)
If k.Offset(d - 3, 0) = "" Then
k.Offset(d - 3, 0) = Sheet1.Cells(4 + N, 5).Offset(0, 1)
Else
k.Offset(d - 3, 0) = k.Offset(d - 3, 0) + Sheet1.Cells(4 + N, 5).Offset(0, 1)
End If

N = N + 1 'N為處理下一筆資料之參數
Loop

End Sub