VBA　TextBoxに入力された8桁の数値を日付に変換する

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、taka(@takabou63)です(^^♪

さて、データを入力するときに日付って入力するの面倒くさくないですか？

2017/1/1のように【/】を途中に入力しないといけないわけですから・・・

なので、今回は前回紹介した【Format関数】を使用して、TextBoxに入力された【20170101】のような8桁数字を日付形式【2017/01/01】に変換する方法をご紹介します。

TextBoxに入力された数値を日付に変換する方法

今回用意するフォーム

用意するコントロール

1. 【TextBox1】

日付変換するコード

Private Sub TextBox1_Change()

    '範囲を指定して8ケタを認識
  If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then

  TextBox1 = Format(DateSerial(Left(TextBox1.Value, 4), Mid(TextBox1.Value, 5, 2), Right(TextBox1.Value, 2)), "yyyy/mm/dd")
    
  End If
    
End Sub

コードの解説

では上記のコードの解説をしていきます。

Private Sub TextBox1_Change()

 If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then

まずイベントはTextBoxの【Change】を使用して、入力されるたびにデータを認識します。

そして【If TextBox1.Value >= 20000101 And TextBox1.Value <= 20991231 Then】で数値内であるのかを確認することにより。8桁の数値であるのかを認識します。

TextBox1 = Format(DateSerial(Left(TextBox1.Value, 4), Mid(TextBox1.Value, 5, 2), Right(TextBox1.Value, 2)), "yyyy/mm/dd")

ここで変換のコードですが、このコードには

1. Format関数
2. DateSerial関数
3. Left関数
4. Mid関数
5. Right関数

の五つの関数が使われており。それぞれの関数を組み合わせることによって日付に変換させることができます。

解説すると、DateSeria関数の引数にたいしてLeft関数・Right関数・Mid関数のそれぞれの関数で指定しそれをFormat関数で整形するという流れです。

ダウンロード

今回ご紹介したフォームは以下にてダウンロードできます。

日付変換

1 ファイル 18.49 KB

ダウンロード

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link