計算個別員工於週六上班次數 - Excel程式區

[發問] 計算個別員工於週六上班次數

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

1^# 跳轉到 »

發表於 2014-4-13 20:22 | 顯示全部帖子

回復 4# hkyan

Option Explicit
Sub Ex()
Dim Rng As Range, i As Integer, ii As Integer, R As Range, d1 As Object, d2 As Object
Set d1 = CreateObject("SCRIPTING.DICTIONARY") '字典物件
Set d2 = CreateObject("SCRIPTING.DICTIONARY") '字典物件
i = 2 '從B2欄數開始
With ActiveSheet '指定工作表
Do While .Cells(1, i) <> "" '執行迴圈的條件: i欄的第一列 <>""
If Weekday(.Cells(1, i), 2) = 6 Then '日期的星期="週六"
If Not Rng Is Nothing Then '設定"週六"的位置
Set Rng = Union(Rng, .Cells(1, i))
Else
Set Rng = .Cells(1, i)
End If
End If
i = i + 1 '下一個欄數
Loop
i = 2 '從A2列數開始
Do While .Cells(i, "A") <> "" '執行迴圈的條件: A欄的i列 <>""
'字典物件(KEY)對應一個 Item
d1(.Cells(i, "A").Value) = "" '字典物件(KEY)的ITEM =""
d2(.Cells(i, "A").Value) = ""
For Each R In Rng '每一個 R 的星期都是"週六"
If R.Cells(i) <> "" Then 'R.Cells(i): R下方第i個Cell
d1(.Cells(i, "A").Value) = Val(d1(.Cells(i, "A").Value)) + 1
'字典物件(KEY) =VAL(字典物件(KEY))+1 (對應的 Item)
d2(.Cells(i, "A").Value) = Date - R
'字典物件(KEY) =當日- R [天數](對應的 Item)
End If
Next
i = i + 1
Loop
Range("R2").Resize(d1.Count).Value = Application.Transpose(d1.ITEMS)
Range("S2").Resize(d1.Count).Value = Application.Transpose(d2.ITEMS)
End With
End Sub

複製代碼

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

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。