如何避免這種奇怪的日期脅迫

Question

我有這個公式在C4：

=TEXT(EOMONTH(NOW(),-1),"MMM-yy") 

所顯示的日期爲Dec-16即2016

12月，當我然後運行這個VBA：

Sub makeDateValues() 
    With Range("C4") 
     .Value = .Value 
    End With 
End Sub 

日期變爲16/12/2017。

如何安全地修改上述內容以便日期保持在2016年12月？

Answer 1

喲可以由式除去TEXT()到：

=EOMONTH(NOW(),-1) 

，只是使用的細胞從主工具色帶格式到diplay這個數隨你便。

Answer 2

嘗試這樣的：

Sub makeDateValues() 

With Range("C4") 
    .Value = Format(WorksheetFunction.EoMonth(Date, -1), "MMM-YYYY") 
End With 

End Sub 

Answer 3

2種選擇：

選項1

你可以只是把它作爲一個日期，你的內側塊，添加行

.numberformat = "MMM-yy" 

選項2

首先創建內VBA日期

Range("C4") = Format(Now(), "MMM-yy") 

Answer 4

我修正公式如下：

=TEXT(EOMONTH(NOW(),-1),"MMMM-yyyy") 

一切ok了。