vba - 打开电子表格时用当前日期填充单元格 VBA

Question

如何在电子表格打开时在单元格中插入今天的日期，以便如果有人想要更改它，他们可以通过在单元格内直接更改来实现。

我尝试了以下方法，但运气不佳

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim temp As String

    If Home.Range("_invoiceDate").Value = "" Then
        Home.Range("_invoiceDate").Value = Date
    End If
End Sub  

单元格是命名范围“_invoiceDate”，工作表是“Home”

感谢您提前提供的帮助

Answer 1

为了让代码在打开工作簿时运行，您需要将代码放置在工作簿工作表中，如下所示。

Private Sub Workbook_Open()
    dim Home as Worksheet
    set Home = Worksheets("Home")
    Home.Range("_invoiceDate").Value = Format(Now(),"mm/dd/yyyy")  
End Sub

我相信这就是您正在寻找的。

我测试了它在工作表之间的切换，效果很好。

Private Sub Worksheet_Activate()

Dim Home As Worksheet
Set Home = Worksheets("Home")
Home.Range("_invoiceDate").Value = Format(Now(), "mm/dd/yyyy")

End Sub

祝你好运，编码愉快!