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

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

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

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

エクセル関数の設定

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

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

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

波乗りアヒル

それではまず始めにエクセル関数を使って、残り何日有効なのかが分かるようにしましょう。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

使用頻度の高いIF関数

もし～だったらのエクセルIF関数はORやANDも併せて使用頻度トップ エクセルで条件に応じて答えを振り分ける必要は必ずあるので、使えるようになりたいと思っていませんか？ 使用頻度が高い10種類のひとつ、IF関数をマスターすれば無駄な…

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

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

エクセルVBAの設定

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

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

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

並べ替えVBAコード

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

波乗りアヒル

今回は、分かりやすくするために最初に、作業１と作業２を別々に分けてご紹介して最後に１つにまとめたVBAコードをご紹介します。

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

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

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

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

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

4つの項目を並べ替える方法

Key4は使えないけど4つ以上項目の並べ替えをVBAコードでやる方法 エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、４つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験あり…

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

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

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

完成したVBAコード

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

波乗りアヒル

いかがでしたか？そんなに難しくなかったでしょ。
VBAコードは自由にコピペして、自分なりにアレンジして使ってもらって構いませんよ。

関連記事

エクセルで表などを作成していると、並べ替えや振り分けなどのデータ処理が面倒だと思ったことはありませんか？

データ処理に手間をかけていると仕事の作業効率が悪くなり時間ばかりかかる上に、間違う事もよくあるのでエクセルVBAを使用して一瞬で作業を終わらしましょう。

ここでは、顧客管理などで名簿で氏名の姓と名を自動的に分割して振り分ける方法をご紹介します。

波乗りアヒル

この氏名分割作業を手作業でやりますか？それともVBAでやりますか？

Excel-VBAで氏名分割

下の図の顧客名簿を参考に、セル「Ｂ列」の氏名を「Ｃ列」に姓、「Ｄ列」に名をユーザーフォームに配置したコマンドボタンに記述して、クリック表示させましょう。

このように氏名を分割してデータ入力が完成しました。

このままでも問題ないのですが、データ分割するたびに毎回「データ置き換えますか？」ってメッセージが表示されます。

個人的には、この表示が目障りで毎回選択するのが面倒なので、表示されないようにVBAコードを付け足しています。

波乗りアヒル

VBAで氏名分割は意外と簡単なので、ぜひ挑戦してみてくださいね。

関連記事

エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、４つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験ありませんか？

並べ替えのSortメソッドの標準機能が３つ目までなのですが、あきらめずに工夫をすれば４つ目以降も並べ替えができるようになりましたので、ご紹介いたします。

Sortメソッドを2回に分けて使う

下の図はサッカーっぽい成績表なのですが、順位を決めるのに勝ち点を最優先にしますが、同点の場合更に３つの条件により順位を決定しています。

順位決定するには「勝ち点」「得失点差」「総得点」「総失点」の順に決定するのでSortメソッドでは3項目なので足りません。

1. 勝ち点が多いチーム順（D列）
2. 勝ち点が同点の場合に得失点差の多いチーム順（E列）
3. 総得点の多いチーム順（F列）
4. 総失点の少ないチーム順（G列）

そうなると優先順位は４項目、Key4が必要になりましたがKey4は使えないので、２回に並び替えを分けます。

並べ替え手順①

まず始めに優先順位４番目（総失点の少ない順）を並べ替えますので、VBAコードはいつものようにユーザーフォームを使う実例です。

並べ替え手順②

この状態で次に優先項目１～３を並べ替えれば、２回に分けて並べ替えたおかげで４項目順に並べ替えることができます。

波乗りアヒル

これが２回に分けた並べ替えのVBAコードの完成版で、ちょっとの工夫で4つの並べ替えができました。

関連記事

データ抽出などで不要な行や列を自動的に非表示にできるExvel-VBAのHiddenプロパティですが、コードは正しく書かれているのにコマンドボタンを押すとエラーになったことありませんか？

VBAコードは書く順番を入れ替えてしまうと正しく動かないので対処方法をご紹介します。

VBAコードの順番確認

エクセルVBAコードは、書いた順番に作業の自動化を行ってくれるので、コードのひと塊の順番を間違ってしまうとエラーになり、動かなくなってしまう事があります。

確認方法

このようなトラブルが起きる時は、ひとつのプログラムだけを実行させてマクロ終了させるのではないと思います。

複数のプログラムをコマンドボタン1個にまとめて記載している時に起きることが多いです。

その為に確認方法としては、ここでは非表示をしたいので余計なプログラムを一旦削除して単独でテストをしてみましょう。

その時に問題なく表示・非表示が完璧にできていたならば、VBAコードは正しく記載されているので、他の実行したいプログラムと順番を入れ替えてみましょう。

そうすると、思った通りにプログラムが実行できるはずですよ。

ちょっとしたことでもエラーになってしまうので、ひとつひとつ確認をしながらVBAコードを書いていきましょうね。

参考までに、Hiddenプロパティって？って方はこのページでは省略しますので、こちらに詳しく使い方を書いていますので参考にしてください。

あわせて読みたい

エクセルVBAでリストの中から不要な行や列を非表示にする方法 小さなお店ではスタッフのシフト表をエクセルで管理している事が多いと思いますが、時間別出勤リストを表示させるときにお休みの人は非表示にして見やすくしたいと思い…

波乗りアヒル

単独で動かなかった場合はVBAコード自体が間違っている可能性があるので、原因が分かって次に進めそうですよ。

関連記事

エクセルの表を印刷するには見栄えの為にセルの結合を行ったら、並べ替えをするとエラーになって困ったことありませんか？

Mergeメソッドを書き加えれば、自動的にセルの複数一括結合・解除を自動的に行ってくれるので、並べ替え時のエラーを回避できる方法をご紹介します。

Mergeメソッド

VBAでセルの結合・解除は、Mergeメソッドを使いますが、エラーを防ぐ為に結合・解除するセルの範囲の左上端の入力値がセルを指定します。

その為にその他のセル入力値は削除されるので注意してください。

Mergeメソッドでセル結合

まず、Mergeメソッドの基本的な使い方の例として、セルA1とセルB1の隣同士を結合するVBAコードをご紹介します。

ここではユーザーフォームに配置したコマンドボタンに記載している例です。

このようにとても簡単で、ここではRangeを使いましたが、繰り返し処理の変数を使う時はCellsを使うので下記のようになります。

今回の例は隣同士のセルを結合するVBAコードですが、もちろんA1:C1とすれば横3列を結合、A1:B2とすれば縦横4つのセルが結合できます。

UnMergeメソッドでセル解除

結合の次はセルの結合解除も重要ですが、とても簡単な事で結合時に使った「Merge」を解除の「UnMerge」に変えるだけでセルを解除できます。

このように簡単にVBAコードを書くことができます。

行単位で複数のセル結合・解除

1か所のセルの結合・解除を行うのならばVBAを使わないと思いますが、複数の行をまとめて一括処理で結合・解除を行わなくてはいけないのでVBAを使うと思います。

ここでは、Mergeメソッドの引数AcrossをTrueに設定することで、選択範囲のセルを行単位で結合することができるようになります。

例としてRangeを使ってセル範囲A1:B10を行単位で結合するVBAコードをご紹介します。

これでA1とB1が結合A2とB2が結合・・・A10とB10が結合と行単位結合の完成です。

※引数Trueを入れ忘れるとA1からB10が全て結合されるので注意！

ちなみに行単位で結合したセルを結合解除する方法は、基本的なセル結合解除と一緒です。

セル結合のある表の並べ替え

セルの結合・解除を行いながらエクセルで作った表の並べ替えをVBAを使って実行する方法をご紹介します。

ここでは下の図のようにセルB2～C10を行単位で結合して点数を見やすくするVBAコードで、同時に点数の多い順に並べ替えも同時に行います。

ここでは、実際に使っているように画面のちらつきを防ぐVBAコードと、シートの保護・解除も付け加えています。

波乗りアヒル

並べ替えエラーを防ぐためにこのような順でVBAコード記述すれば、エラーが出なくなります。
順番を間違えるとエラーになりますよ！

関連記事

エクセルで表を扱う時に数式エラーを防ぐ為に、空欄の代わりにIFERROR関数などで数字の「0」で代用していることありませんか？

この代用している値を一瞬で空欄にできる技があるのでご紹介します。

Replaceメソッドで置き換え

Replaceメソッドを使うと、指定したセル範囲内の中から条件に当てはまるセルの文字列を置き換えることができます。

VBAを使って文字や数字を置き換えるReplaceの基本的な使い方を表にしてみました。

ここではユーザーフォームに配置したコマンドボタンに、セルA1～B10の範囲内で指定して、完全一致する半角整数字の「0」を探して見つけたら「空欄」に置き換えるコードをご紹介します。

波乗りアヒル

ちなみにWithステートメントを使用しているので、2つ目の検索をするならば、End Withの上に記載すれば、複数置き換えも可能になりますよ。

関連記事

成績表やデータ表などに付き物の並べ替え作業って地味に面倒だと思ったことありませんか？

優先順位をつけて並べ替える時に、同時にエクセルシートも切替出来たら作業が1秒で終わる方法をご紹介します。

シート移動して並べ替え

VBA並べ替えの基本

「Key」で並べ替え優先順位を表します

• Key1・・・最優先
• Key2・・・２番目に優先
• Key3・・・３番目に優先

「Order」で大きい順（降順）、小さい順（昇順）を表します

• Order1・・・Key1で指定した列を並べ替える
• Order2・・・Key2で指定した列を並べ替える
• Order3・・・Key3で指定した列を並べ替える

波乗りアヒル

※降順は「xlDescending」、昇順は「xlAscending」

4つ以上の並べ替えはVBAではできませんが、どうしてもやりたい方は下記方法ならば、できますよ！

あわせて読みたい

Key4は使えないけど4つ以上項目の並べ替えをVBAコードでやる方法 エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、４つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験あり…

下の図はサッカーっぽい成績表なのですが、順位を決めるのに勝ち点を最優先にしますが、同点の場合更に条件がありますがここでは省略します。

これで、勝ち点が多い順に並べ替えられます。

そして今回はシートも移動してから並べ替えを行うので、移動先のシート名を「成績表」という名前とします。

波乗りアヒル

並べ替えの前にシート選択を1行追加するだけで完成です。

関連記事