- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
20#
發表於 2015-12-2 07:39
| 只看該作者
回復 19# v03586
試試看:- Sub 計算當日開機數()
- Dim RepSht As Worksheet, RepArr, xD1, xD2, R&, C&
- .
- .
- .
- ' 此處呼叫
- GetSubTot
- Application.GoTo xSht.[A2]
- End Sub
複製代碼 增加部分:- Sub GetSubTot()
- Dim Btm As Long, rPos As Long
-
- With Sheets("開機數")
- Btm = .Range("A" & Rows.Count).End(xlUp).Row
- rPos = Sheets("開機數").UsedRange.End(xlToRight).Column
- If (Cells(1, rPos) = "Total") Then rPos = rPos - 1
- .Cells(1, rPos + 1) = "Total"
- .Cells(2, rPos + 1).Resize(Btm - 1).Formula = "=SUM(F" & 2 & ":T" & 2 & ")"
- .Cells(2, rPos + 1).Resize(Btm - 1) = .Cells(2, rPos + 1).Resize(Btm - 1).Value
- .Cells(Btm + 1, "B") = " Total"
- .Cells(Btm + 1, "F").Resize(, 16).Formula = "=SUM(F" & 2 & ":F" & Btm & ")"
- .Cells(Btm + 1, "F").Resize(, 16) = .Cells(Btm + 1, "F").Resize(, 16).Value
- End With
- End Sub
複製代碼 |
|