Home » エクセルマクロ・Excel VBAの使い方 » VBA関数 » VBAでyyyymmdd形式の8桁の数字が日付かチェックする－IsDate関数・Format関数

VBAでyyyymmdd形式の8桁の数字が日付かチェックする－IsDate関数・Format関数

対象：Excel2007, Excel2010, Excel2013

「excel vba yyyymmdd値日付チェック」
「excel マクロ 8桁日付チェック」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あることに気づきました。

yyyymmdd形式の8桁の数字が日付として扱えるデータかどうかをチェックする、Excelマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

［スポンサードリンク］

IsDate関数による日付チェック

まずは、基本を確認しましょう。VBAでデータが日付かどうかを判定するにはIsDate関数を使います。

Sub 日付チェックを行う()

　If IsDate(ActiveCell.Value) Then
　　MsgBox "日付です。"
　Else
　　MsgBox "日付ではありません。"
　End If

End Sub

アクティブセルに入力されている値が日付データなら「日付です。」日付データでなければ「日付データではありません。」というメッセージが表示されます。

で、yyyymmdd形式の8桁の数字が日付データとして扱えるかどうかのチェックは、Format関数で整形してから行いましょう。

Sub 日付チェックを行う_yyyymmdd()

　If IsDate(Format(ActiveCell.Value, "@@@@/@@/@@")) Then
　　MsgBox "日付です。"
　Else
　　MsgBox "日付ではありません。"
　End If

End Sub

例えば、アクティブセルに「20150701」という8桁の数字が入力されているときに、「Format(ActiveCell.Value, "@@@@/@@/@@")」の結果は「2015/07/01」になり日付として扱えるので、「日付です。」というメッセージが表示されます。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » VBA関数 » VBAでyyyymmdd形式の8桁の数字が日付かチェックする－IsDate関数・Format関数

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「VBA関数」の記事一覧