私有子工作表_Change（作為範圍的目標值）
出錯時轉到錯誤
如果目標。那麽Column = 1
d =格式（目標值- 1，“D“）
如果d & gt格式（目標。值，“D”）那麽
m =格式（目標。值，“M“）-1
如果m = 0那麽
m = 12
y =格式（目標。值，“YYYY”）
其他
y =格式（目標。值，“YYYY“）+1
如果…就會結束
其他
m =格式（目標。值，“M”）
y =格式（目標。值，“YYYY“）+1
如果…就會結束
細胞（目標。第2行）。number format =“YYYY-MM-DD“
細胞（目標。Row，2）= y & amp；“/”& amp；並購。“/”& amp；d
如果…就會結束
出口接頭
錯誤:
末端接頭