GBKEE

¦^´_ 1# t8899
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     With [A2]
   
4.         .Value = Month(DateAdd("M", [A1], Date))
   
5.         .NumberFormatLocal = "00"
   
6.     End With
   
7. End Sub

½Æ»s¥N½X