[發問] 資料庫資料整合問題請教

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2015-3-19 09:29 | 顯示全部帖子

dear sir
1算上班時數
2不會有超過 00:00 後還不走地.若有算至 00:00 thanks

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-3-19 14:21 | 顯示全部帖子

DEAR GBKEE 大大
1.完全符合小弟之需求.非常感謝您之指導. THANKS*10000

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-3-19 14:37 | 顯示全部帖子

DEAR  GBKEE  &  ALL  大大
  1.SORRY 轉出資料無問題.
例
C欄 =入廠時間(A) 10301020756
D欄 =出廠時間(B) 10301021815
  1.1 小弟需於  E欄秀出上班時數(D-C) D欄時間 -C欄時間後之小時
      1.1.1 如範例  10301021815-10301020756= 9.32小時
2.請教 VBA如何書寫  THANKS*10000

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2015-3-19 15:33 | 顯示全部帖子

DEAR ALL 大大
  小弟已用如下方式解決  THANKS*10000

Sub 計算新出勤工時()
  Sheet4.Select
  Range("A1").Select
  Sheet4.[E2:E65536].ClearContents
  R = Sheet4.[A65536].End(xlUp).Row
  On Error Resume Next
  For M = 2 To R
  X1 = Mid(Sheet4.Cells(M, 3), 8, 2)
  X2 = Mid(Sheet4.Cells(M, 3), 10, 2)
  Y1 = Mid(Sheet4.Cells(M, 4), 8, 2)
  Y2 = Mid(Sheet4.Cells(M, 4), 10, 2)
  Sheet4.Cells(M, 5) = (Y1 - X1 - 1) + (60 - X2 + Y2) / 60
Next
  Sheet4.Select
  Range("A1").Select
End Sub

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2015-3-24 11:43 | 顯示全部帖子

DEAR SIR
我無法上傳檔案.公司LOCK

羅