>即時新聞-熱門

2008年12月25日星期四

EXCEL VBA 年加1911

Sub 年計()
Range("D2").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Value = ActiveCell.Value + 1911
ActiveCell.Offset(1, 0).Select
Wend
End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱