我用這個VBA:插入今天的日期與按鈕,作爲日期,不起作用?
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Offset(1, 0).Range("A1").Select
但單元格的值變爲=NOW()
,沒有日期。
我想按下按鈕,讓2015年3月13日,當我打開工作表,明天,應該還是說2015年3月13日。
我用這個VBA:插入今天的日期與按鈕,作爲日期,不起作用?
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Offset(1, 0).Range("A1").Select
但單元格的值變爲=NOW()
,沒有日期。
我想按下按鈕,讓2015年3月13日,當我打開工作表,明天,應該還是說2015年3月13日。
考慮:
ActiveCell.Value=Now
您的代碼ActiveCell.FormulaR1C1 = 「= NOW()」 是絕對完美的。它在我的系統上正常工作。你明天不需要直到 才能檢查這個代碼的輸出,首先寫這個代碼並運行宏並保存並關閉它(請檢查日期)。關閉文件後,更改系統日期,即假設今天是13-Mar,然後設置系統計時的14-Mar日期,然後打開文件,您將觀察日期是否發生變化。 您可以在打開的工作簿事件中編寫此Thisworkbook。
私人小組Workbook_Open() ActiveCell.FormulaR1C1 = 「= NOW()」 結束小組
私人小組Workbook_Open() ActiveCell.Value =現在 結束小組
請考慮兩個不同的行ActiveCell.FormulaR1C1 =「= NOW()」和ActiveCell.Value =現在第一行,你不需要每次運行宏來更改日期以防第二行需要運行宏每次。 – 2015-03-13 14:37:57
「日期在變」 - 不是OP想要的。 – pnuts 2015-03-13 15:08:41
謝謝你,這個完美工作! – 2015-03-13 13:15:32