hkyan

帖子: 71
主題: 26
精華: 0
積分: 102
點名: 0
作業系統: window 7
軟體版本: office 2010
閱讀權限: 20
性別: 女
來自: HK
註冊時間: 2010-9-23
最後登錄: 2022-6-24

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-4-12 17:07 | 只看該作者

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

如果要計算個別員工於週六上班次數(非空格),公式如何設定,請指導

樓主熱帖

努力學習中,謝謝前輩

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-11

熱烈參與勳章

8^#

發表於 2023-4-21 11:45 | 只看該作者

R2=SUMPRODUCT((TEXT(B$1:P$1,"AAA")="週六")*(B2:P2<>""))

11321.png (12.62 KB)

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

7^#

發表於 2023-4-20 16:32 | 只看該作者

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

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Y, i&, j&, xR As Range
Set Y = CreateObject("Scripting.Dictionary")
Set xR = Range([S1], Cells(Rows.Count, "A").End(3))
xR.Offset(1, 17).ClearContents: Brr = xR
For i = 2 To UBound(Brr)
For j = 2 To UBound(Brr, 2) - 3
   If Format(Brr(1, j), "aaaa") = "星期六" And Trim(Brr(i, j)) <> "" Then
      Brr(i, UBound(Brr, 2) - 1) = Brr(i, UBound(Brr, 2) - 1) + 1
      If Brr(1, j) > Y(i) Then
         Brr(i, UBound(Brr, 2)) = Date - Brr(1, j)
         Y(i) = Brr(1, j)
      End If
   End If
Next
Next
xR = Brr
Set Y = Nothing: Set xR = Nothing: Erase Brr
End Sub

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

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

6^#

發表於 2014-4-14 19:30 | 只看該作者

回復 4# hkyan
(注意：為了讓日期更具發展性, 刻意將你的樣本的統計欄位調到最左邊)
如下圖, 試試看：

Option Explicit
Private Sub CommandButton1_Click()
Dim i, j, lastRow, lastCol As Integer
Dim 距今 As Long
lastRow = [C65536].End(xlUp).Row
lastCol = [IV1].End(xlToLeft).Column
[A2].Resize(lastRow, 2) = ""
For i = 4 To lastCol
If Weekday(Cells(1, i), vbMonday) = 6 Then
距今 = Date - Cells(1, i)
For j = 2 To lastRow
If Cells(j, i) <> "" Then
Cells(j, 1) = Cells(j, 1) + 1 '週六加班日數+1
Cells(j, 2) = 距今
End If
Next
End If
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^#

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