- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
回復 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
|
|
發表於 2014-4-14 19:30
| 