この記事では、Date関数を使った日付の取得方法について詳しく解説します。
さらに応用では日付の計算も紹介していますので是非参考にしてみてください。

それでは見ていきましょう。

⬛︎こんな事ができるようになる！

・現在の日付を簡単に取得できる
・日付をセルに表示することができる

⬛︎忙しい人向けのコピペ用ソースコード

Sub 日付見本()
対象のセル・変数 = Date
End Sub

対象のセル・変数をカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてですが「Date関数」になります。
関数仕様としては下記の通りです。

対象のセル・変数= Date

引数も使用しないとてもシンプルな関数です！

例えば、現在の日付を取得して変数に格納する場合は以下のようになります。

このようにすることで、currentDate 変数に現在の日付が格納されます。

⬛︎応用例

・日付をセルに表示する

Date関数を使用すると、日付をセルに表示することも可能です。
以下の例をご覧ください。

今回は見本で「C3」に現在の日付を入力したいと思います。
ではソースコードを見ていきましょう

実行した結果はこちらです。

ちなみに現在は「2023/6/26」なので問題なく機能していますね。

・日付の計算に使用する

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Date 関数 (Visual Basic for Applications) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？

この記事では、マクロVBAを使用して現在の日付を表示する方法について解説しました。

Date関数を使えば簡単に現在の日付を取得できますし、日付をセルに表示することも可能です。

ぜひ、これらの方法を活用して日付を取得し、Excelの作業効率を高めてください。

それでは次回の記事でお会いしましょう。

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAで実践することでスキルを身につける狙いです。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題3について

こちらはマクロVBAの初歩的な知識になります。

セル番地に現在の日付を表示となります。
それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地C1に現在の日付を表示する。

動作説明

VBAを使用して、現在の日付を取得し、それをセル番地C1に表示します。
具体的には、VBAの組み込み関数であるDateを使用して現在の日付を取得し、その値をセル番地C1に表示する必要があります。

ヒント

この問題では、現在の日付を取得し、それをセルに表示する必要があります。
以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

現在の日付を取得するには、Date関数を使用します。
Date関数は、システムの現在の日付を返します。

・ヒントその2

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

・ヒントその3   (参考)

日付の値をセルに表示する場合、VBAの日付形式を適用すると見やすくなります。
NumberFormatプロパティを使用してセルの書式設定を行うことができます。

これらのヒントを参考にして、解答コードを作成してみてください。

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードは、現在の日付を取得し、それをセル番地C1に表示するVBAのマクロです。

解答コードでは、Range(“C1”).Value = Dateという行で、
Date関数を使用して現在の日付を取得し、セル番地C1にその値を表示しています。

また、Range(“C1”).NumberFormat = “yyyy/mm/dd“という行で、セルの書式設定を行っています。
ここでは、日付の形式を「年/月/日」の形に指定していますが、必要に応じて適切な書式を選択してください。

・回答その②

上記のコードでは、Date関数を使用して現在の日付を取得し、変数currentDateに格納しています。
その後、Cells(1, 3).Valueを使用してセル番地C1にcurrentDateの値を表示しています。

Format関数を使って日付の書式を設定していますが、必要に応じて適切な書式を指定してください。

この回答例では、Cellsオブジェクトを使用してセルにアクセスしています。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用します。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

日付の取得

現在の日付を取得するためには、VBAの組み込み関数であるDateを使用します。
この関数は、システムの現在の日付を返します。

セルへの値の設定

セルに対する操作を行うためには、RangeオブジェクトやCellsオブジェクトを使います。
特定のセルに値を入力するには、RangeオブジェクトのValueプロパティを使用します。

下記参考記事で紹介しています！

日付の書式設定 (※参考)

セルに表示する日付の書式を設定することで、見た目を調整することができます。
NumberFormatプロパティを使用してセルの書式設定を行います。

これらの知識を応用して、問題を解くためのコードを作成しましょう。

まとめ

この練習問題では、VBAを使用してセルに現在の日付を表示する方法を学びました。

解答コードでは、Date関数を使用して現在の日付を取得し、Range(“C1”)やCells(1, 3)を使用してセル番地C1にその値を表示しました。
さらに、日付の書式を設定するためにNumberFormatプロパティを使用しました。

VBAを使うことで、Excelでの日付の自動表示や書式設定を簡単に行うことができます。
これは、日報やスケジュール管理など、日付情報を扱う作業において非常に役立つスキルです。

練習問題を通じてVBAの基礎的な知識を学び、実際の問題に応用してみてください。
これにより、Excelの操作を自動化し、効率的にタスクを処理することができるようになります。

次の練習問題では、さらに難易度の高い問題に取り組んでいきますので、
順番に解いていくことでスキルを磨いていきましょう。

以上で練習問題3となります。お疲れ様でした！

日時の範囲を高頻度で変更したい場合はとても手間になります。

しかし別のセルに算出開始日時と算出終了日時を入力して
自動でその範囲間の最大値を求めてくれたら便利ですよね。

今回はそんな悩みを解決できるような内容になっています。
それでは見ていきましょう。

■こんなことができるようになる!

・指定した2つの日付の範囲に当てはまる最大値を算出することができる。

⬛︎指定範囲間のデータの最大値を算出する

通常であれば最大値を求める際に「MAX関数」と呼ばれる関数を使用します。
MAX関数についてはこちらから☟

【MAX関数】エクセルで範囲を指定して、数値の最大値を求める方法について ► 独学エクセル塾 (dokugakuexcel.com)

しかし今回は指定範囲で絞り込むので MAXIFS関数を使用していきます。

では内容を見ていきましょう

・２つの日付の範囲内の最大値を求める

見本として下図のような収益のデータを用意しました。

B列には日付のデータが入っておりC列には収益額が入力されています。

今回はE3とF3に入力した日付の間の最大値を求めてみましょう。

MAXIFSの関数の仕組みはこのようになってます。

=MAXIFS(最大値を求めたい範囲,最大値の条件範囲1,最大値の条件1,最大値の条件範囲2,最大値の条件2,・・・)

最大値を求めたい範囲は収益なので収益の範囲のC3:C12
最大値の条件の範囲1は日付で絞り込みたいので日付の範囲のB3:B12
最大値の条件1はE3以上の日付を最大値したいので“>=”&E3
最大値の条件の範囲2も日付で絞り込みたいので日付の範囲のB3:B12
最大値の条件2はF3以下の日付を最大値したいので“<=”& F3となります。

では当てはめていきましょう。
関数はこのようになります。

=MAXIFS(C3:C12,B3:B12,“>=”&E3,B3:B12,“<=”&F3)

それでは入力していきましょう。
結果はこのようになります。

5月27日から5月30日の最大値を求める事ができました。
該当する収益は「578」「735」「342」「245」「657」「874」「584」「682」で最大値は874なので
狙い通りの動作ができていますね。

もちろん、日付を変更しても変更した日付の範囲で最大値をしてくれます。

・２つの時刻の範囲内の最大値を求める

今度は入力した2つの時刻の範囲の最大値を求めてみましょう。
今回も先ほどの見本を参考にしていきましょう。

まず、前提として条件となる日時のデータに時刻の情報が含まれている必要があります。

数式は先ほどと同様になります。
=MAXIFS(C3:C12,B3:B12,“>=”&E3,B3:B12,“<=”&F3)

では絞り込みの条件を14時から19時にしてみたいと思います。
結果はこのようになります。

時刻でも同様に２つの時刻範囲の最大値を求める事ができました。

該当する収益は「735」「342」「245」「657」「874」「584」で最大値は874なので
狙い通りの動作ができていますね。

⬛︎補足　○○日・時間以上・以下のデータの最大値を算出する

ここからは補足です。
先ほどは2つの日時の範囲間の最大値を求めましたが、
今度は○○日・時間以上の最大値・以下の最大値を求めてみましょう。

・○○日・時間以上のデータの最大値

まずは○○日・時間以上のデータの最大値をもとめていきます。
では再度、先ほどの見本データをご覧ください。

今回はE3に入力した日時以上の最大値を求めたいとしましょう。
先ほどと同様に MAXIFS関数を使用します

MAXIFS関数の仕組みは下記の通りです。条件は1つのみなのでこのようになります。

=MAXIFS(最大値を求めたい範囲,最大値の条件範囲1,最大値の条件1)

最大値の範囲は収益なのでC3:C12となります。
最大値の条件の範囲は日時なのでB3:B12
最大値の条件は F3に入力した日時以上なので“>=”&E3

関数に当てはめるとこのようになります。

=MAXIFS(C3:C12,B3:B12,“>=”&E3)

それでは入力してみましょう。
結果はこのようになります。

5月27日以上の最大値は「874」ということがわかりました。

・○○日・時間以下のデータの最大値

今度は○○日・時間以下のデータ最大値をもとめる方法についてです。
考え方は先ほどと同様で「“>=”」の部分が「“<=”」となります。

では見本を見ていきましょう。
今回はE3に入力した日時以下のデータの最大値を見ていきます。

数式はこのようになります。

=MAXIFS(C3:C12,B3:B12,“<=”&E3)

では入力してみましょう。
結果はこのようになります。

5月27日以下の収益の最大値は「735」ということがわかりました。

⬛︎補足　２つの日付の範囲＋絞り込み条件

先ほどは2つの日付の範囲の最大値を求めましたがさらに絞り込み条件を
増やしたい場合の方法を紹介します。

下図の見本をご覧ください。

先ほどのデータに加え、対象の項目をD列に追加しました。

仕様として2つの日付の範囲＋対象に○がついてあるものの最大値を算出したいと思います。

関数はMAXIFSを使用していきます。
MAXFS関数の条件は2つまでの縛りはなく、127個まで設定することができます。

では条件を追加した数式を見てみましょう。

=MAXIFS(C3:C12,B3:B12,”>=”&F3,B3:B12,”<=”&G3,D3:D12,”○”)

「D3:D12,”○”」を追加する事でD列に○がついてある事が条件となりました。
それでは入力してみましょう。

結果はこのようになります。

5月26日から5月30日で対象に○がついてあるデータは「578」「342」「245」なので最大値「578」で狙い通り計算できています。

今回は2つの日付データと対象の3つの条件でしたが
数式を追加する事で条件をさらに追加することができます。

⬛︎よくあるエラーと対処法

・条件に当てはまるが最大値してくれない

こちらは対象日時または絞り込む際の条件の日時に問題があるかもしれません。
実際の画面をみてみましょう。

通常は「○月○日」といった表記ですが
ダブルクリックすると「年」までデータが入っています。

エクセルは日時と判断すると日付データとして年月日、
時刻を入力すると＋時刻までデータとして入力されます。

つまり「年」が異なっていると範囲から除外されるので最大値を算出してくれません。
一度日時データを確認してみてください。

・計算結果が0になる

日付範囲を設定する際に条件を「”>=”&対象セル」と設定しました。
この不等号の記号「<」と「>」ですが、全角と半角があります。

全角は「＞」「＜」で小文字は「>」「<」となってます。
見た目ではわかりにくいですが、全角で入力すると文字として認識され
不等号にならないので0となってしまいます。
入力の際は半角で入力してください。

⬛︎まとめ

いかがだったでしょうか。
日時とセットでデータを収集している方も多いとおもいます。

是非今回の内容を活用して
2つの日付間の最大値を求めてみてください。

それでは次回の記事でお会いしましょう。

しかし別のセルに算出開始日時と算出終了日時を入力して
自動でその範囲間の平均を求めてくれたら便利ですよね。

今回はそんな悩みを解決できるような内容になっています。
それでは見ていきましょう。

■こんなことができるようになる!

・指定した2つの日付の範囲に当てはまる平均を算出することができる。

⬛︎指定範囲間のデータの平均を算出する

通常であれば平均を求める際に「 AVERAGE関数」と呼ばれる関数を使用します。
AVERAGE関数についてはこちらから

【AVERAGE関数】エクセルで平均値を求める方法について説明します！ ► 独学エクセル塾 (dokugakuexcel.com)

しかし今回は指定範囲で絞り込むので AVERAGEIFS関数を使用していきます。
AVERAGEIFS関数についてはこちらから

【AVERAGEIFS関数】エクセルで複数の条件に当てはまる平均を求める ► 独学エクセル塾 (dokugakuexcel.com)

では内容を見ていきましょう

・２つの日付の範囲内の平均を求める

見本として下図のような収益のデータを用意しました。

B列には日付のデータが入っておりC列には収益額が入力されています。

今回はE3とF3に入力した日付の間の平均を求めてみましょう。

AVERAGEIFSの関数の仕組みはこのようになってます。

=AVERAGEIFS(平均したい範囲,平均の条件範囲1,平均の条件1,平均の条件範囲2,平均の条件2,・・・)

平均したいの範囲は収益なので収益の範囲のC3：C12
平均の条件の範囲1は日付で絞り込みたいので日付の範囲のB3：B12
平均の条件1はE3以上の日付を平均したいので“>=”&E3
平均の条件の範囲2も日付で絞り込みたいので日付の範囲のB3：B12
平均の条件2はF3以下の日付を平均したいので“<=”& F3となります。

では当てはめていきましょう。
関数はこのようになります。

=AVERAGEIFS(C3:C12,B3:B12,“>=”&E3,B3:B12,“<=”&F3)

それでは入力していきましょう。
結果はこのようになります。

5月27日から5月30日の平均を求める事ができました。
該当する収益は「735」「342」「245」「657」で平均は494.75なので
狙い通りの動作ができていますね。

もちろん、日付を変更しても変更した日付の範囲で平均をしてくれます。

・２つの時刻の範囲内の平均を求める

今度は入力した2つの時刻の範囲の平均を求めてみましょう。
今回も先ほどの見本を参考にしていきましょう。

まず、前提として条件となる日時のデータに時刻の情報が含まれている必要があります。

数式は先ほどと同様になります。
=AVERAGEIFS(C3:C12,B3:B12,“>=”&E3,B3:B12,“<=”&F3)

では絞り込みの条件を14時から19時にしてみたいと思います。
結果はこのようになります。

時刻でも同様に２つの時刻範囲の平均を求める事ができました。

該当する収益は「735」「342」「245」「657」「874」「584」で平均は572.83なので
狙い通りの動作ができていますね。

⬛︎補足　○○日・時間以上・以下のデータの平均を算出する

ここからは補足です。
先ほどは2つの日時の範囲間の平均を求めましたが、
今度は○○日・時間以上の平均・以下の平均を求めてみましょう。

・○○日・時間以上のデータの平均

では再度、先ほどの見本データをご覧ください。

今回はE3に入力した日時以上の平均を求めたいとしましょう。
先ほどは AVERAGEIFS関数を使用しましたが、今回は条件が1つなので AVERAGEIF関数となります。

AVERAGEIF関数の仕組みは下記の通りです。

=AVERAGEIF(絞り込む対象の範囲,絞り込む条件,平均の範囲)

絞り込む対象の範囲は日時なのでB3：B12
絞り込む条件は F3に入力した日時以上なので“>=”&E3
平均の範囲は収益なのでC3：C12となります。

関数に当てはめるとこのようになります。

=AVERAGEIF(B3:B12,“>=”&E3,C3:C12)

それでは入力してみましょう。
結果はこのようになります。

5月26日以上の平均は「586.78」ということがわかりました。

・○○日・時間以下のデータの平均

今度は○○日・時間以下のデータです。
考え方は先ほどと同様で「“>=”」の部分が「“<=”」となります。

では見本を見ていきましょう。
今回はE3に入力した日時以下のデータの平均を見ていきます。

数式はこのようになります。

=AVERAGEIF(B3:B12,”<=”&E3,C3:C12)

では入力してみましょう。
結果はこのようになります。

5月27日以下の収益の平均は「665.67」ということがわかりました。

⬛︎補足　２つの日付の範囲＋絞り込み条件

先ほどは2つの日付の範囲の平均を求めましたがさらに絞り込み条件を
増やしたい場合の方法を紹介します。

下図の見本をご覧ください。

先ほどのデータに加え、対象の項目をD列に追加しました。

仕様として2つの日付の範囲＋対象に○がついてあるものの平均をしたいと思います。

関数は先ほどと同様に AVERAGEIFSを使用していきます。
AVERAGEFS関数の条件は2つまでの縛りはなく、127個まで設定することができます。

では条件を追加した数式を見てみましょう。

=AVERAGEIFS(C3:C12,B3:B12,”>=”&F3,B3:B12,”<=”&G3,D3:D12,”○”)

「D3:D12,”○”」を追加する事でD列に○がついてある事が条件となりました。
それでは入力してみましょう。

結果はこのようになります。

5月26日から5月30日で対象に○がついてあるデータは「578」「342」「245」なので平均「388.33」で狙い通り計算できています。

今回は2つの日付データと対象の3つの条件でしたが
数式を追加する事で条件をさらに追加することができます。

⬛︎よくあるエラーと対処法

・条件に当てはまるが平均してくれない

こちらは対象日時または絞り込む際の条件の日時に問題があるかもしれません。
実際の画面をみてみましょう。

通常は「○月○日」といった表記ですが
ダブルクリックすると「年」までデータが入っています。

エクセルは日時と判断すると日付データとして年月日、
時刻を入力すると＋時刻までデータとして入力されます。

つまり「年」が異なっていると範囲から除外されるので平均してくれません。
一度日時データを確認してみてください。

・計算結果が0になる

日付範囲を設定する際に条件を「”>=”&対象セル」と設定しました。
この不等号の記号「<」と「>」ですが、全角と半角があります。

全角は「＞」「＜」で小文字は「>」「<」となってます。
見た目ではわかりにくいですが、全角で入力すると文字として認識され
不等号にならないので0となってしまいます。
入力の際は半角で入力してください。

⬛︎まとめ

いかがだったでしょうか。
日時とセットでデータを収集している方も多いとおもいます。

是非今回の内容を活用して
2つの日付間の平均を求めてみてください。

それでは次回の記事でお会いしましょう。