小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか？

このエクセルによる商品管理でリストの中にある期限切れ商品が気づかずに放置されて困ったことありませんか？

エクセルファイルを開いたら自動的に通知させれば、簡単に解決しますよ！

方法は簡単で、エクセル関数とエクセルVBAを組み合わせて、ユーザーフォーム上に簡単なお知らせ機能を持たせるだけで完成しますので、作り方をご紹介します。

エクセル関数の設定

“とりっぷぼうる”サイト内で紹介しているフリーパスも、全てが通年販売だと一度掲載すればそのままでいいのですが、当然ながら期間限定フリーパスが圧倒的に多いです。

その為に期限切れになったら削除しないといけないので、サイト内で管理は難しいのでエクセルにリストを作成して管理しています。

見ての通り、実際にこのような単純なリストで管理しています。

TODAY関数で本日の日付を自動取得

今日の日付は当然ながら日々変わっていくので、わざわざ毎回手入力するなんて面倒です。

そこで、エクセルを開いたら今日の日付を自動的に取得して表示させる関数が「TODAY関数」です。

上記画像にTODAY関数はセルF2に記入しています。

このTODAY関数を私自身は様々なエクセルファイルで使用してるぐらい、使用頻度の高いエクセル関数と言ってもいいと思います。

しかも使い方もすごく簡単でセルF2にはこのように入力しているだけです。

それでは次に、残り何日なのかが分かるように計算式を設定しましょう。

期限終了日から今日の日付を引いて残数表示

上記画像に計算式はD列に記入しています。

ごくごく普通の引き算なので、終了日から今日の日付を引くと残り日数が表示され、例えばセルD2には下記のように数式を入れると・・・

となりますが、あまりにもこのままでは単純すぎて、C列が空欄（まだリストにデータが無い状態）だと、エラーになり#####と表示されてしまいます。

このままでは並べ替えなどができないので、空欄の時は「0」と表示されるようにIF関数を使いましょう。

これで、フリーパス（商品）が未登録の時は「0」となり、エラー表示が無くなり見た目もスッキリしますね。

この式をD列の3行目以降にも入力すれば完成ですが、ここでの場合は200行目まで入力してあれば、問題ないと思って入れてあります。

このIF関数はとても便利で条件に応じて結果を自由に変えることができるので、絶対にマスターしなくちゃいけないエクセル関数です。

エクセル関数での準備はこれでおしまいなので、残りは全てエクセルVBAで作業となります。

ワークシート上の見栄えなどの書式などは、ここでは省略します。

エクセルVBAの設定

ここで行うエクセルVBAを使わないで毎回の手作業であれば、特に必要が無くなってしまうのですが、エクセルVBAでの設定を行うと下記手順が全て自動化されますので、エクセルファイルを開いただけで完成します。

1. リストの並べ替えが自動化され期限切れに近い順に表示されます
2. 期限切れになったリスト見つけて文字色を赤字に変えて目立たせる

この2つの作業が一瞬で行われるのでとても便利なので、下記の手順で設定していきましょう。

並べ替えVBAコード

エクセルファイルを開くと同時に様々な作業を行うには、VBA画面のThisWorkbookに自動化させたい作業１，２の順番にコードを書いて行けば完成します。

まず最初に、並べ替えVBAコードを記述するとこにより商品リストの終了日が古い順（小さい）に並べ替えることができます。

先ほどご案内した通り、ここでは200行目までとします！

このままでも、エクセルファイルを開くと自動的に期限切れに近くなってきた順に上から表示されるので、手動で並べ替えを行うよりは確実になると思います。

ただ、せっかくなので目立つように期限切れになった時には、文字色を赤字にして目立たせましょう。

参考までに、エクセルVBAでの並べ替え項目は3つまでとなっています。

期限切れリストを見つけたら赤文字

先ほど並べ替えを行うVBAコードを書いた次の行に、残日数（期限）が切れたら（マイナス表示になったら）文字色を赤に表示するというVBAコードを書き足します。

このようにVBAコードを書くと、セルD2がマイナスなら赤文字、次にセルD3をチェック、次にセルD4をチェックと繰り返し200行目（セルD200）まで繰り返しチェックしてくれます。

完成したVBAコード

下記が１，２を組み合わせて完成したコードを、ThisWorkbookに書いています。

関連記事

エクセルで様々な計算式などが入っている表を作った時に、誤って計算式などを消されないようにシートの保護設定をしたら、マクロエラーになったことありませんか？

原因は、シートの保護を設定するとユーザーフォームのテキストボックスからの入力もできなくなってエラーになっているので、Protectメソッドを使用してシート保護・解除を自動化すれば解決しますので、使い方をご紹介します。

Protectで保護・Unprotectで解除

エクセルシートの保護をする時に、ワークシートの「校閲」から「シートの保護」で行わずにVBAコードで保護・解除ができるようになります。

この方法ならば、コマンドボタンなどに直接書き込めるので、シートの保護設定をしたからといって、入力・並べ替えなどもできるようになります。

使い方は簡単で、作業開始直前に保護解除（Unprotect）をして、作業終了直前にシートの保護（Protect）をすれば完成なので、既存のVBAコードに付け足すだけです。

Workbookで設定の場合

エクセルファイルを開いたら自動的にシートの保護をする設定方法は、「Microsoft Visual VasicのVBA Project」の中にある、「ThisWorkBook」に下記コードを記述します。

5行目にActiveSheet.Protectを付け足すだけで完成で、あとは各コマンドボタンをクリックすると最初に保護解除するVBAコードを加えるだけで、マクロエラーから解放されます。

ちなみに、上記VBAコードはパスワード設定や部分許可の設定をしないシンプルな方法です。

各コマンドボタンの設定

先ほどブックでシートの保護を自動的に設定したので、各コマンドボタンにはすでに書いてあるプログラムの開始前にシートの解除設定をして、プログラムが終了するEnd Subの直前にシートの保護を設定するだけです。

関連記事

Excelを使っていて作業が終わったら、上書き保存ボタンを押してファイルを閉じるのが面倒だと思ったことありませんか？

たった1クリック1秒でできたら作業効率がアップして楽になる方法を、ここではユーザーフォームに配置した「コマンドボタン」にVBAコードを記述して使用する方法をご紹介いたします。

上書き保存をして閉じるVBA

Closeオブジェクト

エクセルに標準機能として用意されているVBA「Closeオブジェクト」は、上書き保存してエクセルを閉じる例として、よく書籍やネットに掲載されている方法です。

下記はコマンドボタン1に上書き保存するVBAコードを記述しています。

この方法だと、ワークシートだけしか閉じられずエクセル自体は開いたままになってしまうので、エクセルファイルを手動で閉じる手間があるので、1クリックでできずに使い物になりませんでした。

Quitオブジェクト

エクセルに標準機能として用意されているVBA「Quitオブジェクト」は、開いているエクセルファイルが変更されている時には、変更を保存するかどうかを確認するメッセージが表示されると掲載されている方法です。

下記はコマンドボタン1に上書き保存するVBAコードを記述しています。

もちろんこれも、先ほどのCloseオブジェクトと同じくワークシート上にコマンドボタンを配置した時に、マクロを登録するためのVBAコードです。

そして、変更がある場合には下記のようにメッセージが表示されますので保存してエクセルファイルを閉じるか、保存しないかを選択できます。

エクセルファイルを閉じる方法は２つありますが、Closeオブジェクトでは完全にエクセルと閉じられず、Quitオブジェクトでは、いちいち上書き保存を聞かれ、作業効率化にならないので意味がありませんでした。

QuitとCloseの合わせ技

エクセルファイルを閉じるCloseオブジェクトとQuitオブジェクトなのに、一長一短で使うのあきらめましたが、一緒に使ったらどうなるか試してみると・・・

このようにVBAコードを記述すると、なぜか上書き保存をするかどうかの確認メッセージが表示されずに、自動的に上書き保存されてエクセルファイルが閉じられるようになりました。

だだし、QuitとCloseの順番が逆だと失敗しますのでご注意を！

上書き保存のアレンジVBA

「上書き保存」するVBAコードを記述したコマンドボタンを誤ってクリックしたとしても、上書き保存されてファイルが閉じられるだけなので問題はないと思います。

もし、念のため「はい」「いいえ」を選択できるようにしたいならば、「Quitオブジェクト」だけを使えばいいのです。

入力済みデータ消去して上書き保存終了

ここでは入力済みセルの一部データクリアしてから上書き保存できるようにアレンジしてみました。

ちょっと長くなりましたが、簡単にいうと、「はい」を選択したら不要データクリアして上書き保存してファイルを閉じる、「いいえ」を選択したら、何もしないで元に戻るという事です。

関連記事