方法非常簡單,請你一定仔細,按照下面的步驟開始神奇之旅~~~
第一步、開啟你的EXCEL工作薄,最好關閉其它無關的EXCEL檔案,按ALT+F11
這一步就只按一個鍵,就是按住ALT不放,按以下F11,然後立即放開,三秒之內完成
這個步驟成功的標誌:新開啟一個視窗,標題是:Microsoft Visual Basic for Application
第二步、在上面開啟的VBA窗口裡面,按CTRL+R
是的,就這麼簡單,這一步也就是一個熱鍵
這個步驟成功的標誌,在VBA窗口裡面的左邊出現一個小視窗,標題是“工程-VBAProject”,裡面有你開啟的所有工作薄、工作表
第三步、先緊張你一下,這一步沒有前面兩步那麼簡單,操作稍微複雜一點,請一定仔細
在工程窗口裡面,雙擊你需要自動新增備註的工作表,一定雙擊,不怕多,最好多擊幾次,注意你擊的時候,會新開一個類似記事本的視窗,視窗標題前面部分是你的EXCEL檔案、工作表名稱,後面部分是“(程式碼)”
第四步、在程式碼視窗貼上以下內容(以下所有的程式碼行,直到第五步結束):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s
s = Date & " " & Time & ":" &
Target.Value
If Not
Target.Comment
s =
Target.Comment.Text
Target.ClearComments
End If
Target.AddComment
End Sub
第五步、這個步驟其實沒有什麼需要做的,你現在隨便去修改這個表,備註立即會新增
這是個驗證步驟,如果結果滿意,你可以關閉EXCEL、儲存所有修改,再次開啟,因為太多的視窗怕引起你心煩。
說明,再次開啟的時候可能會提示檔案有宏,你要點允許執行,如果根本不提示,說明你的宏安全性設定得太高,需要在選項裡面降低安全性到“中”
方法非常簡單,請你一定仔細,按照下面的步驟開始神奇之旅~~~
第一步、開啟你的EXCEL工作薄,最好關閉其它無關的EXCEL檔案,按ALT+F11
這一步就只按一個鍵,就是按住ALT不放,按以下F11,然後立即放開,三秒之內完成
這個步驟成功的標誌:新開啟一個視窗,標題是:Microsoft Visual Basic for Application
第二步、在上面開啟的VBA窗口裡面,按CTRL+R
是的,就這麼簡單,這一步也就是一個熱鍵
這個步驟成功的標誌,在VBA窗口裡面的左邊出現一個小視窗,標題是“工程-VBAProject”,裡面有你開啟的所有工作薄、工作表
第三步、先緊張你一下,這一步沒有前面兩步那麼簡單,操作稍微複雜一點,請一定仔細
在工程窗口裡面,雙擊你需要自動新增備註的工作表,一定雙擊,不怕多,最好多擊幾次,注意你擊的時候,會新開一個類似記事本的視窗,視窗標題前面部分是你的EXCEL檔案、工作表名稱,後面部分是“(程式碼)”
第四步、在程式碼視窗貼上以下內容(以下所有的程式碼行,直到第五步結束):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s
s = Date & " " & Time & ":" &
Target.Value
If Not
Target.Comment
Is Nothing Thens =
Target.Comment.Text
& Chr(10) & sTarget.ClearComments
End If
Target.AddComment
sEnd Sub
第五步、這個步驟其實沒有什麼需要做的,你現在隨便去修改這個表,備註立即會新增
這是個驗證步驟,如果結果滿意,你可以關閉EXCEL、儲存所有修改,再次開啟,因為太多的視窗怕引起你心煩。
說明,再次開啟的時候可能會提示檔案有宏,你要點允許執行,如果根本不提示,說明你的宏安全性設定得太高,需要在選項裡面降低安全性到“中”