Question

我在Excel中创建一个包含Cell B = TODAY（）的表单模板，因此，当用户打开模板填写表单时，会显示今天的日期。

但是，一旦用户填写表单，我希望Cell B等于TODAY（）的值，因此每次打开Workbook时单元格都不会更新。

我的解决方案是创建一个执行以下操作的宏：

当用户点击单元格A时，要求用户填写文本的单元格，包含公式= TODAY（）的单元格B将作为值复制并粘贴到同一位置。然后，再次选择单元格A，以便用户可以填写所需的信息。

下面是我的示例VBA，它检查Cell A是否为空而不是单击。我想改变这一点，如果有人可以提供帮助的话。

在此示例中，单元格A是E11，单元格B是E13。

Sub Date_Change(ByVal Target As Range)
    Dim Rng As Range
    Set Rng = Sheets("Form").Range("E13")
    If Sheets("Form").Range("E11") = Empty Then
        Sheets("Form").Range("E13") = TODAY()
    Else
        Rng.Copy
        Rng.PasteSpecial xlPasteValues
        Set Rng = Nothing
        Application.CutCopyMode = False
        Cells(11, 5).Select 
End Sub

Answer 1

这是怎么回事（这是你希望在他们的模块上运行它的工作表）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellA As Range, cellB As Range
Set cellA = Sheets("Form").Range("E11")
Set cellB = Sheets("Form").Range("E13")
    If Target.Row = cellA.Row And Target.Column = cellA.Column Then
    Dim Rng As Range
    Set Rng = cellA
    If cellA = Empty Then
        cellB.Value = WorksheetFunction.Text(Month(Now()) & "/" & Day(Now()) & "/" & Year(Now()), "MM/DD/YYYY")
    Else
        Rng.Copy
        Rng.PasteSpecial xlPasteValues
        Set Rng = Nothing
        Application.CutCopyMode = False
        Cells(11, 5).Select
    End If
    End If
End Sub

您可能需要检查我的声明，但这应该让您前进。它将检查是否选择了单元格E11，如果是，则运行。

Answer 2

在工作簿对象中，您有一个内置事件workbook_beforesave ... 你可以把代码放在那里。

我录制了一个宏，它将B3更新为硬值，从而消除了公式。

然后我将代码复制出宏并点击保存。您可能需要更新＆＃34;范围＆＃34;如果工作簿中有多个工作表，则考虑特定的工作表。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("B3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Excel宏：如果单击单元格A，复制单元格B并粘贴为值，然后将位置返回到单元格A

2 个答案: