【EXCEL】保存/終了時に更新者と更新日を自動入力する方法 アラフィフ生産技術の日常

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法 EXCEL

本ページはプロモーションが含まれています

EXCELで更新者と更新日を自動入力する方法を紹介します。

保存/終了時に更新者と更新日を自動入力する方法

紹介する方法ではVBAを使用します。
コピペでOKなので、安心して下さい。

VBAのはじめかた

VBAを使ったことがない人はこちらを見てください。
VBAを使うための「開発」タブの表示方法を紹介してます。
【EXCEL】EXCEL VBAの始め方&保存方法 開発タブを表示

開発タブが表示できたら戻ってきてくださいね。

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

サンプルファイル

サンプルファイルを用意しました。
B1のセルに最終更新日
B2のセルに更新者
を自動入力します。

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

VBAを入力してみよう

下記のどちらでも好きな方でVBAの画面に移動します。
✔開発タブのVisualBasic
✔ シート名を右クリックして「コードの表示」

「ThisWorkbook」をダブルクリック。

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

そこにこちらのコードをコピペして下さい。

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)
にしてください。

はじめてファイルを開く

マクロが使ってあるファイルをはじめて開くと確認メッセージが表示されます。

「コンテンツの有効化」をクリックしてください。
同じファイルを開いても次からは表示されずに有効化されますので安心して下さいね。

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

保存/保存して終了で更新日と更新者が自動入力されます

✔ 保存ボタンをクリック
✔ 内容を変更して終了(保存確認されます)
で更新日と更新者が指定したセルに自動入力されます。

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

現在の時刻と日付を表示するには?

EXCELで日付や時刻を表示させる関数があります
TODAY関数とNOW関数です

それぞれの使い方は下記のように入力すればOK

=TODAY()
=NOW()

これだけで書式設定に応じて現在の時刻や日付を表示してくれます

これはこれで便利ですが、ファイルを開いたり、セルを編集すると更新しちゃうんですよねぇ~
更新させないためにはEXCELの計算を自動更新から手動更新に変更するなどの方法があります
計算方法を手動へ変更は、めちゃくちゃ重いファイルを使う時には手動にしておくとサクサクうごくようになっておすすめです

【EXCEL】保存/終了時に更新者と更新日を自動入力する方法

今回はそれとは違って、ファイル(ブック)を最終更新した人、その日付を記録する方法を紹介しました。

まとめ

「VBAはむずかしい」と思われがちですが
かんたんなコードでも便利になりますよ。
ご活用くださいね♪

ほかにもいろいろ書いてます
↓ 下記からご覧ください
サイトマップ
ブックマークして頂けると嬉しいです
よろしくお願いいたします

コメント

タイトルとURLをコピーしました