chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 239
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-13 12:03 | 只看該作者

來源資料欄位比對後，將值填到相應的sheet頁面欄位內

Book1.rar (10.37 KB)

請教各位先進
附件中，source為每日匯入的文字檔資料欄位
因在內文裡怕描述不清楚，附件裡面有詳述並標示預期結果
懇請先進們，給予我一些建議與方法

謝謝大家

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-9-13 16:32 | 只看該作者

回復 1# chi830

source中ID並沒有與你的範例對應
請檢查資料確認對應條件

學海無涯_不恥下問

TOP

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 239
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

3^#

發表於 2012-9-14 14:14 | 只看該作者

回復 2# Hsieh

Book1.rar (10.7 KB)

我在excel中又重新描述了一次，請您再看一下，是否清楚?
主要是想達到說，先從ID找到該寫入哪個sheet?
知道後，再比對符合的日期與班別，將時間寫入這個sheet裡面

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-9-14 15:50 | 只看該作者

回復 3# chi830

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
With Sheets("index")
For Each a In .Range(.[B2], .[B2].End(xlDown))
d(a & "") = a.Offset(, -1).Text
Next
End With
With Sheets("source")
For Each a In .Range(.[A2], .[A2].End(xlDown))
d1(a & "," & a.Offset(, 1) & "," & a.Offset(, 2)) = a.Offset(, 3)
Next
End With
For Each ky In d1.keys
sh = d(Split(ky, ",")(0))
With Sheets(sh)
myid = .[A1]
For Each a In .Range(.[A3], .[A3].End(xlDown))
a.Offset(, 1).Resize(, 2) = Array(d1(myid & "," & a & "," & "01"), d1(myid & "," & a & "," & "02"))
Next
End With
Next
End Sub

複製代碼

學海無涯_不恥下問

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兔年全勤獎章

5^#

發表於 2012-9-14 16:17 | 只看該作者

回復 3# chi830
如果source是一天的上下班時刻資料

Option Explicit
Sub Ex()
Dim D As Object, E As Variant
Set D = CreateObject("SCRIPTING.DICTIONARY")
With Sheets("source")
For Each E In .Range("A2", .[A2].End(xlDown))
If D(E.Text) = "" Then
D(E.Text) = E(1, 2) & "," & E(1, 4).Text
Else
D(E.Text) = D(E.Text) & "," & E(1, 4).Text
End If
Next
End With
For Each E In Sheets
If D(E.Cells(1).Text) <> "" Then
With E.Cells(E.Rows.Count, 1).End(xlUp).Offset(1)
.Resize(, 3) = Split(D(E.Cells(1).Text), ",")
End With
End If
Next
End Sub

複製代碼

TOP

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 239
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

6^#

發表於 2012-9-19 14:11 | 只看該作者

空白出勤月報表.rar (540.07 KB)

非常感謝Hsieh 先進與GBKEE 先進的答覆

Hsieh先進所答為我預期結果，我試著照此方法修改
但是時間值仍跑不出來，煩請Hsieh大再幫我一下
看看是哪出了錯?
有些程式碼我還沒了解清楚
謝謝您了

GBKEE 大的方式為直接新增，也可多學了一個方法，感謝您

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-9-19 14:57 | 只看該作者