本ページはプロモーションが含まれています
EXCELで更新者と更新日を記録する方法を紹介します。
保存/終了時に更新者と更新日を記録する方法
紹介する方法ではVBAを使用します。
コピペでOKなので、安心して下さい。
VBAのはじめかた
VBAを使ったことがない人はこちらを見てください。
VBAを使うための「開発」タブの表示方法を紹介してます。
【EXCEL】EXCEL VBAの始め方＆保存方法 開発タブを表示
開発タブが表示できたら戻ってきてくださいね。
サンプルファイル
サンプルファイルを用意しました。
B1のセルに最終更新日
B2のセルに更新者
を記録します。
VBAを入力してみよう
下記のどちらでも好きな方でVBAの画面に移動します。
✔開発タブのVisualBasic
✔ シート名を右クリックして「コードの表示」
「ThisWorkbook」をダブルクリック。
そこにこちらのコードをコピペして下さい。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("部品マスタ").Range("B1") = Now
Sheets("部品マスタ").Range("B2") = Application.UserName
End Sub
簡単に説明します。
使われるファイルに合わせて変更してください。
Sheets(“部品マスタ“).Range(“B1“) = Now
| 部品マスタ | 更新日を入れたいシート名 |
| B1 | 更新日を入れたいセル |
Sheets(“部品マスタ“).Range(“B2“) = Application.UserName
| 部品マスタ | 更新者を入れたいシート名 |
| B2 | 更新者を入れたいセル |
これで終わり。
VisualBasicの画面は閉じてください。
ファイルを保存
ファイルを保存しましょう。
ファイルの種類は
Excelマクロ有効ブック(*.xlsm)
にしてください。
はじめてファイルを開く
マクロが使ってあるファイルをはじめて開くと確認メッセージが表示されます。
「コンテンツの有効化」をクリックしてください。
同じファイルを開いても次からは表示されずに有効化されます。
保存/保存して終了で更新日と更新者が記録されます
✔ 保存ボタンをクリック
✔ 内容を変更して終了（保存確認されます）
で更新日と更新者が指定したセルに入力されます。
まとめ
「VBAはむずかしい」と思われがちですが
かんたんなコードでも便利になりますよ。
ご活用くださいね♪
ほかにもいろいろ書いてます
↓ 下記からご覧ください
サイトマップ
ブックマークして頂けると嬉しいです
よろしくお願いいたします
コメント