エクセルの顧客リストや住所録などで生年月日は記載されているけど、年齢までない場合にわざわざ計算するの面倒だと思った事ありませんか？

そこで、今日現在の日付を自動取得して生年月日から、現在の年齢を自動表示させる簡単なエクセル関数をご紹介します。

生年月日から年齢を自動取得

もしエクセル関数を使わずに年齢を計算する方法としては、「今日の西暦」から「生年月日の西暦」を引けば「年齢」が分かりますよね。

これと同じことをしてくれるエクセル関数があるので、使わないなんて時間の無駄で非効率ですよ。

DATEDIF関数

エクセルの標準機能として用意されている関数「DATEDIF関数」は、2つの日付を比較して「日数」「月数」「年数」取得できる便利な関数なのです。

「年数」が取得できることから、生年月日と今日の日付を指定することで「年齢」が取得できるという事です。

図のようなリストがあったとして、E列に記載されている生年月日と今日の日付を比較させて、F列に現在の年齢を自動表示させると、セルF2には下のような数式になります。

E2は2行目のID・1番の生年月日「1987/11/7」が1つ目の日付、TODAY()は今日の日付を自動取得するので2つ目の日付となり、この2つを比較します。

そして「”Y”」をすることで、年数を取得できるので「年齢」が計算されてセルF2に自動表示します。

TODAY関数

見たままのひねりの何もないので分かりやすい、今日の日付を取得するエクセル関数です。

TODYA()と記載するだけなのでとても簡単なので、日付に関する事の基本です。

参考までに、上記顧客リスト画像の「氏　名」は氏名結合するエクセル関数で自動的に苗字と名前をスペース付で自動結合しています。

エクセル時短

エクセルで苗字と名前2つのセルの値をくっつける（セルの値の結合） CSVファイルなどを取り込んだ時に、苗字と名前が別々のセルに分かれていることが多いと思いますが、１つのセルに結合して表示したいと思ったことありませんか？ 例えば…

波乗りアヒル

TODAY関数を使う事により、エクセルを開いた時に自動的に今日の日付を取得して、生年月日と比較して年齢を自動表示するので、いつでも最新の年齢なのです。

関連記事

エクセルで今日の日付をセルに入力するのに、わざわざカレンダーを見て手入力すする作業が面倒だと思ったことはありませんか？

こんな無駄な作業をしている時間があったら他の仕事に使った方が効率的なので、今日の日付を返してくれる「TODAY関数」をご紹介しますので、活用すればエクセルファイルを開くと同時に自動的に日付を取得して表示できるのでエクセルの作業時短できますよ。

TODAY関数

エクセルに標準機能として用意されている関数「TODAY関数」は、現在の日時を自動取得することができるので、ここではTODAY関数の使い方についてご紹介いたします。

日付を自動表示させたいセルに「TODAY関数」を使うと、パソコンの日付設定から自動的に日付のシリアル値を取得します。

日付のシリアル値とは、基準日である1900年1月1日を「1」としてスタートして1日増えるごとに、シリアル値も1ずつ増えていきますので、2000年1月1日は「36526」となります。

ただし、シリアル値を取得したからといっても、セルの書式設定で何も指定していなければ、シリアル値は自動的に日付表示に変換されて「YYYY/MM/DD」形式で表示されます。

TODAY関数の使い方

日付を自動表示させたいセルに「TODAY関数」を使うので、下の図のようにセルA2にTODAY関数を入力します。

入力したらEnterキーを押すと今日の日付を自動取得できましたので、これでわざわざエクセルを開くたびに日付を調べて入力する手間から解放されましたね。

波乗りアヒル

日付の自動取得は、エクセルファイルを開くときやシートを開くたびに自動更新されます。

関連記事

スケジュールやシフト管理でエクセルで出勤時間や退勤時間などでは時刻をセルに入力しますが、24:00と入力したのに自動的に0:00と表示が変わってしまって、勤務時間の計算式がエラーになった経験ありませんか？

エクセルの数式バーを見たら「1900/1/1 0:00:00」って何だこりゃ？ってなっても、セルの書式設定で簡単に0:00を24:00に表示させる方法をご紹介しますので、ぜひ活用してみてくださいね。

セルの書式設定

エクセルでは時刻表示などで24:00を超えてしまうとどうやらシリアル値のいたずらで、0:00はエクセルの日付の初期値「1900/1/1 0:00:00」と認識してしまってエラーになっているんです。

そこでセルの書式設定で、表示形式をユーザー定義で24:00と正しく表示できるように設定しましょう。

ユーザー定義を変更

例えば、下の図のように出勤時間15:00で退勤時間24:00と入力すると、こうなってしまいますよね。

15:00の時は何でもないのに24:00の時は秒まで勝手に表示、しかも日付は1900年？？なので、セルの書式設定で時刻を選んで表示したい種類を選びます。

セルの書式設定の方法は、書式変更したいセルでマウスを右クリックすれば、メニューが表示されるので、下の方にあるセルの書式設定をクリックします。

すると、書式設定ダイアログが表示されますので、左側の分類から「時刻」をクリックして右側の表示したい種類をクリックすれば出来上がりですが、24:00と表示したいのですが、サンプルの通りで0:00になってしまいます。

24:00以降の時刻を使わず0:00～23:59ならばこれで問題はないのですが、お店のシフト表ともなると、そうはいきません。

そこで本来の目的の24:00と表示させるには、このセルの書式設定の左側の分類で、一番下の「ユーザー定義」で、表示方法を指定します。

このように直接種類を打ち込んであげれば、24:00と表示ができるようになりますので、シフト表などで、労働時間も計算する場合に単純に引き算が使えるようになりますよ。

波乗りアヒル

エクセルでシフト表や勤務表を作るならば、24時間表示はとても重要ですね。

関連記事

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

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

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

方法は簡単で、エクセル関数とエクセル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が必要になるので、ここでは体裁は無視してエクセル関数とユーザーフォームを使って、比較的簡単に作ってみました。

ワークシート上の準備

繰り返しになりますが、今回は体裁は無視なので、まず始めにエクセルワークシート上に和暦と西暦の表を作ります。

薄い青色のセル（A2とB2）はユーザーフォームから転記されるデータで、薄い緑色にはエクセル関数が入っています。

セルA4から下に和暦を入力していきます。アナログですが、昭和元年～令和82年（西暦2100年）まで入力してあります。

セルB4から下に西暦を入力していきます。1926年から2100年まで入力していますが、和暦が変わった年（昭和64年・平成元年）と（平成31年・令和元年）はそれぞれ西暦が入力されています。

セルC2には、ユーザーフォームから転記された元号（セルA2）と年（セルB2）を結合させる数式をいれるので、このようになります。

A2は和暦、B2は年数、B1は年を＆で値を順番にくっつけただけなのですが、もちろんVBAでやることも可能ですが、ここでは省略します。

C4は結合された「平成5年」をA5からB181の中から探して表示するVLOOKUP関数を使って表示させていますが、この説明もここでは省略します。

これで、ワークシート上での作業は終了です。

セルの値を結合する

エクセルで苗字と名前2つのセルの値をくっつける（セルの値の結合） CSVファイルなどを取り込んだ時に、苗字と名前が別々のセルに分かれていることが多いと思いますが、１つのセルに結合して表示したいと思ったことありませんか？ 例えば…

エクセルVBAの準備

和暦を入力して西暦を表示させるには、自分自身で自由にパーツを配置して作ることができるのでとても便利なユーザーフォームを使用します。

ここでは、オプションボタンで元号を選択して、テキストボックスに年数を入力してから、コマンドボタンを押して西暦をラベルに表示させるという方法をとります。

例えば平成5年の西暦を知りたければ、「平成」にチェックして「5」テキストボックスに入力して「変換」ボタンを押せば、「西暦」と書いてあるラベルが「1993」と表示が変わります。

波乗りアヒル

では、そのようになるようにコマンドボタンにVBAコードを書きこみましょう。

波乗りアヒル

これで完成です、体裁無視すれば簡単にできます。
もちろんItemを使って、VBAコードを記載すればワークシートは白紙で綺麗なままなので、体裁は良くなりますが大変ですよ。

関連記事

エクセルを使って成績などを入力して作成した成績表で、入力漏れがなかったかどうかなどをチェックするのに数秒間だけ指定したページや範囲を表示させたいと思ったことありませんか？

指定した時間が経過した後にVBAプログラムを実行することができる、OnTimeメソッドを使う事によってできるようになるのでご紹介いたします。

数秒後に自動的にVBA実行

まず最初に、指定した時間を経過した時に作動するVBAを作成します。

ここでは、ユーザーフォーム1を表示させるVBAコードを標準モジュール内のModule1に下記のように記載し、プログラム名をPREVIEWTIMEとします。

また表示させるシート名は「RESULT」とします。

ちなみにプログラム名に関しては好きな名前をつけることが可能です。

これで、指定した時間を経過した時に表示させるVBAプログラムが出来上がりましたので、次はOnTimeメソッドを使って下記のようにメッセージを表示させます。

実際にタイマーを作動させるユーザーフォーム８のコマンドボタンにTimeValueを使って時間を設定します。

ここでは、【CLOSE】ボタンを押すと15秒間だけ、ユーザーフォームが消えてボウリングリーグ戦の成績一覧が見られるようにします。

15秒後に「標準モジュール」に書いた「PREVIEWTIME」が作動するってことです。

OnTime Now（今）＋（00:00:15）で15秒ってことですね。

波乗りアヒル

標準モジュールにPREVIEWTIME以外に様々な内容を作っておけば、タイマー作動で自動保存したり、意図しない操作でユーザーフォームが閉じられてしまった時も自動復帰で安心ですね。

関連記事