ページコンテンツ
TextBoxに入力された数値を日付に変換する方法
今回は前回紹介した【Format関数】を使用して、TextBoxに入力された【20170101】のような8桁数字を日付形式【2017/01/01】に変換する方法をご紹介します。
用意するフォーム
用意するコントロール
- 【TextBox1】
日付変換するコード
1 2 3 4 5 6 7 8 9 10 | 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 |
コードの解説
では上記のコードの解説をしていきます。
1 2 3 | 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桁の数値であるのかを認識します。
1 | TextBox1 = Format(DateSerial(Left(TextBox1.Value, 4), Mid(TextBox1.Value, 5, 2), Right(TextBox1.Value, 2)), "yyyy/mm/dd") |
ここで変換のコードですが、このコードには
- Format関数
- DateSerial関数
- Left関数
- Mid関数
- Right関数
の五つの関数が使われており。それぞれの関数を組み合わせることによって日付に変換させることができます。
解説すると、DateSeria関数の引数にたいしてLeft関数・Right関数・Mid関数のそれぞれの関数で指定しそれをFormat関数で整形するという流れです。
ダウンロード
今回ご紹介したフォームは以下にてダウンロードできます。
日付変換 18.49 KB
今回使用した関数
Format関数についてはこちら
文字の書式を変換【Format関数】文字の書式を変換【Format関数】Excel VBA の Format 関数を紹介します。Format 関数は値を指定した書式に変換します。例:2017/1/1→平成29年1月1日などformat関数は便利...
Dateserial関数DateSerial 関数DateSerial 関数DateSerial 関数は引数に指定された年、月、日に対応する三つの数値をもとに日付を返します。DateSerial書式DateSerial関数の書式は以下...
文字列を操作する1【Left関数・Right関数・Mid関数】文字列を操作する1【Left関数・Right関数・Mid関数】セルに入力されている文字列を条件で抜き出す関数をご紹介していきます。Left関数・Right関数・Mid関数は使い方や使...
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す