挺好的方法,可以學(xué)習(xí)一下.
輸入時(shí)間日期是Excel數(shù)據(jù)處理過程中經(jīng)常做的工作之一，大家一般是直接輸入或者使用函數(shù)，輸入的數(shù)據(jù)往往是固定不變或者隨系統(tǒng)時(shí)間而更新。如果在更新數(shù)據(jù)時(shí)需要時(shí)間日期也隨著更新，而且數(shù)據(jù)固定不變，這就有點(diǎn)難了！其實(shí)通過Excel的VBA工具，就可以非常輕松地解決這一問題。
比如在一張銷售統(tǒng)計(jì)報(bào)表中，A:A區(qū)域中用來存儲(chǔ)銷售時(shí)間日期，而在B:G區(qū)域用來存儲(chǔ)銷售數(shù)據(jù)，如果需要在更新B:G中的銷售數(shù)據(jù)時(shí)，讓A:A區(qū)域中的時(shí)間日期自動(dòng)更新，具體操作如下：執(zhí)行“工具→宏→Visual Basic編輯器”菜單命令，在彈出的Microsoft Visual Basic窗口中，雙擊需要輸入代碼的工作表，如“sheet1”，然后在其右側(cè)的代碼編輯窗口中輸入如下代碼(圖1)：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 100 And _
Target.Column >= 2 And Target.Column <= 10 Then
Application.EnableEvents = False
Cells(Target.Row， 1) = Now()
Application.EnableEvents = True
End If
End Sub
最后單擊“保存”按鈕即可。此代碼的作用是，當(dāng)工作表中的B3:J100數(shù)據(jù)變化時(shí)，在同行的第一個(gè)單元格中自動(dòng)輸入當(dāng)前系統(tǒng)時(shí)間，即A:A列中，而且固定不變。
這樣，當(dāng)在銷售統(tǒng)計(jì)報(bào)表的數(shù)據(jù)區(qū)域內(nèi)輸入新數(shù)據(jù)時(shí)，在第一列的時(shí)間日期單元格內(nèi)會(huì)自動(dòng)輸入當(dāng)前日期時(shí)間，如：2009-8-16 10:39:16，并且固定不變，如果再次修改數(shù)據(jù)，其時(shí)間也會(huì)隨著數(shù)據(jù)的改變而自動(dòng)更新(圖2)?！ ?/p>
小提示：為了顯示更精確的數(shù)據(jù)更新時(shí)間，可以使用2009-8-16 10:39:16樣式的日期時(shí)間格式。使用此種格式時(shí)，選擇時(shí)間日期所在的A:A列，執(zhí)行“格式→單元格”命令，在彈出的單元格格式對(duì)話框中，從“數(shù)字”選項(xiàng)卡中的“分類”列表中選擇“自定義”信息，然后從右側(cè)的“類型”列表框中選擇“yyyy-m-d h:mm”格式即可(圖3)?！ ?
原文出自【比特網(wǎng)】，轉(zhuǎn)載請(qǐng)保留原文鏈接：http://bbs.chinabyte.com/thread-372592-1-1.html
