帖子: 133
主題: 27
精華: 0
積分: 198
點名: 292
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-21
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-12-17 22:02 | 只看該作者

出勤事由標示及統計

請問先進，小弟有一統計表，統計每人每月出勤狀況，試過多個公式仍有困難，尤其一人有多個事由時，詳如附檔內說明，煩請先進指教，謝謝！

起止天數計算.zip (7.52 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

4^#

發表於 2023-12-4 13:24 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, Z, i&, j%, R
'↑宣告變數
Set Z = CreateObject("Scripting.Dictionary")
'↑令Z變數是字典
R = Application.Match("小計", [A:A], 0)
'↑令R變數是表格函數Match()的回傳值
If IsError(R) Then Exit Sub Else R = R - 1
'↑如果R變數是錯誤值? True就結束程式執行,否則令R-1
Brr = Range([AS5], [AN65536].End(3))
'↑令Brr變數是盛裝資料格值的二維陣列
Crr = Range([A1], Cells(R, "AH"))
'↑令Crr變數是盛裝整個結果格值的二維陣列
ReDim Arr(4 To R, 4 To UBound(Crr, 2))
'↑令Arr變數是結果目標格範圍的空陣列
For i = 4 To R
'↑設順迴圈!i從4到 R變數
If Trim(Crr(i, 3)) <> "" Then Z(Trim(Crr(i, 3))) = i
'↑如果i迴圈列/姓名欄Crr陣列值不是空的?
'True就令姓名為key,item是列號納入Z字典中
Next
For i = 1 To UBound(Brr)
'↑設順迴圈!i從1到 Brr陣列縱向最大索引號列(迴圈跑資料陣列)
If Z(Trim(Brr(i, 1)) & "") = 0 Then GoTo i02
'↑如果資料陣列i迴圈列/姓名欄是空的就跳到標示i02位置繼續執行
For j = Val(Brr(i, 2)) + 3 To Val(Brr(i, 4)) + 3
Arr(Z(Trim(Brr(i, 1)) & ""), j) = Brr(i, 6)
Next
'↑設順迴圈將代碼填入結果目標陣列中
i02: Next
[D4].Resize(UBound(Arr) - 3, UBound(Arr, 2) - 3) = Arr
'↑令結果目標格填入Arr陣列值
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

shan0948