- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 2
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-6-27
|
10#
發表於 2022-6-17 19:18
| 只看該作者
回復 6# quickfixer
修正#6,忘了沒有檢查的需要,去掉了function,縮短程式碼
Sub total()
Dim d1 As Date, d2 As Date, t, sn As String
d1 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(0))
d2 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(1))
On Error Resume Next
For i = 0 To DateDiff("m", d1, d2)
sn = Format(DateAdd("m", i, d1), "yyyy年m月")
t = t + Sheets(sn).Cells(Sheets(sn).Cells(Sheets(sn).Rows.Count, 1).End(xlUp).Row, 2)
Next i
Sheets("彙總").Range("B2") = t
End Sub |
|