Excel宏，通過下一行中的按鈕添加日期

Question

我在Excel文檔中添加日期按鈕時遇到問題。 我想通過單擊第一行所附的按鈕來加快在文檔中添加日期的速度。 它幾乎可以正常工作，在下一行添加帶有日期的額外單元格。 但是，當小時更改時，所有較早的條目也會更改。 我應該如何修改？

    Sub Makro1()
'
' Makro1 Makro
'

'
    Cells(Rows.Count, "B").End(xlUp).Offset(1).Select
    ActiveCell.Formula = "=NOW()"


End Sub

Answer 1

如果您希望每個日期都不變（您只想保留調用宏時的NOW()值），則可以將當前日期的值設置為單元格值：

Sub Makro1()

    Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = NOW()

End Sub

無需Select ，您可以直接訪問該值。 實際上，如果將Now()設置為單元格公式，則當調用宏（包含函數）工作表或重新計算工作表時，該值應該會更改：

希望那是你想要的