標題: [發問] 複製前一個月公式至當月並將前一個月公式貼上為值 [打印本頁]

---

作者: msmplay    時間: 2017-4-30 13:00     標題: 複製前一個月公式至當月並將前一個月公式貼上為值

[attach]27119[/attach]
C欄當月數據均由公式統計，跨月時會以人工方式將上月公式複製到下一列當月以利持續統計當月數據，再以人工方式將上個月數據複製貼上為值以利保存
例如：

PS：非固定每個月初的第一天複製公式，如月初為連假時，會於上班天才執行以上動作，所以複製貼上的動作非固定每月第一天執行喔!!!

請問以上動作該如何以巨集達成呢？


[attach]27120[/attach]

---

作者: 准提部林    時間: 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

---

作者: msmplay    時間: 2017-5-1 16:46

本帖最後由 msmplay 於 2017-5-1 16:48 編輯

回復 2# 准提部林

准大~~~~謝謝你再次熱心的幫忙ㄝ，真的是超厲害的!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)