- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
2#
發表於 2017-5-1 12:14
| 只看該作者
Sub TEST()
Dim xArea As Range, xRow As Range, M1%, M2%
Set xArea = [C2:L13]
M1 = Month(Date)
For Each xRow In xArea.Rows
M2 = Val(xRow.Cells(1, 0))
If M1 - M2 = 1 Then
If xRow(2).HasFormula Then Exit Sub
If xRow.HasFormula Then
xRow.Copy xRow(2)
Else
MsgBox xRow.Cells(1, 0) & "無公式或公式不齊全!! ": Exit Sub '同一列儲存格都有公式才會複製
End If
End If
If M2 < M1 Then xRow = xRow.Value
Next
End Sub |
|
發表於 2017-4-30 13:00
| 
欄當月數據均由公式統計，跨月時會以人工方式將上月公式複製到下一列當月以利持續統計當月數據，再以人工方式將上個月數據複製貼上為值以利保存
