保存Excel時的公式到價值

Question

保存工作表時，我需要一個公式來將單元格的公式復制並替換為值。

我在單元格C2：E2中有一個=today()公式。 它可以工作，但是問題是當我重新打開文件時，它將顯示當天，而不是顯示工作表的保存日期。

Answer 1

您可以使用VBA輕松完成此操作：

ActiveSheet.Cells（Row，Column）.Value =日期

Answer 2

您可以觸發一個Workbook_BeforeClose 事件 ，該事件將用其值替換公式：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Range("C2:E2").Value = Range("C2:E2").Value
     ThisWorkbook.Save
End Sub

此代碼必須放置在ThisWorkbook對象中，而不是作為Module宏。

編輯：

對不起，我看錯了。 如果您希望在保存工作簿時完成替換，則同樣適用，但代碼為：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Range("C2:E2").Value = Range("C2:E2").Value
End Sub