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

对于打开工作簿时要运行的代码，您需要将代码放在Workbook表中。

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

祝你好运，编码愉快！

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

1 个答案: