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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-3-18 10:36 | 只看該作者

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

DEAR  ALL 大大 -
1.SHEET1資料庫工作表儲存格內容如下 (小弟公司限制無法上傳檔案)
      A       B       C       D
1  姓名    日期    入廠時出廠時
2 A 1030102 0746 1203
3 A 1030102 1246 1709
4 A 1030103 0750 1716
5 B 1030103 0742 1855
...
2.需求說明
2.1 目前資料中午出外用餐者會同一日出現2筆資料(如  A君 2 3 列 0746  1203 & 1246  1709).
      需取其當日上下班時間(補回吃飯時間計算如 A君 0746 1709)
  2.2 需求結果格式如下  (姓名同一人同一天只能留一列資料-取其前(例-0746)與尾(例-1709)之資料)
2.2.1 資料轉另一工作表 SHEET2  結果工作表儲存格如下
      A    B          C       D
1  姓名    日期       入廠時    出廠時
   2 A 1030102 0746 1709
3 A 1030103 0750 1716
4 B 1030103 0742 1855
...
3.煩不吝賜教  THANKS*10000

樓主熱帖

羅

vanguarx

中學生 Rank: 2

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

2^#

發表於 2015-3-18 13:13 | 只看該作者

邏輯上

同一個人, 同一天，取其入場的最小值，與出場的最大值...

但若有人跨天的凌晨才離開，例如隔天的 0100離開，那當天就算到 2400 ?

你這是要算加班費的？或上班時數？

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2015-3-19 09:29 | 只看該作者

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

羅

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-3-19 10:49 | 只看該作者

回復 3# rouber590324
試試看

Option Explicit
Sub Ex()
Dim D As Object, Rng As Range, AR()
Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件
Set Rng = Sheets("Sheet1").Range("a1") '
Do While Rng <> ""
If D.EXISTS(Rng & Rng(1, 2)) Then 'key(關鍵字)值存在
AR = D(Rng & Rng(1, 2)) '取得內容
AR(1, 4) = Rng(1, 4)
D(Rng & Rng(1, 2)) = AR 'key(關鍵字)值內容重新置入
Else
D(Rng & Rng(1, 2)) = Rng.Resize(, 4)
End If
Set Rng = Rng.Offset(1) '下移一個儲存格
Loop
With Sheets(2)
.Cells.Clear
.[A1].Resize(D.Count, 4) = Application.Transpose(Application.Transpose(D.ITEMS))
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2015-3-19 14:21 | 只看該作者

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

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 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

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 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

羅

TOP

yokokamio212