Excel VBAについての質問です｡

ﾕｰｻﾞｰﾌｫｰﾑ内のTextBox1に入力された文字列が
日付ﾌｫｰﾏｯﾄであるかﾁｪｯｸする方法はありませんか？

ｺﾏﾝﾄﾞﾎﾞﾀﾝが押された時にﾁｪｯｸ文が実行される
ようなもので構いません｡

あちこちのﾍﾟｰｼﾞを見て試したのですが上手くいきませんでした｡
できれば､そのまま実装できるような形の物をお願いします｡
(ﾁｪｯｸ部分だけです､どっかにﾃﾞｰﾀを貼り付ける必要はありません)

ｺﾏﾝﾄﾞﾎﾞﾀﾝ押下時でﾁｪｯｸします｡

Private Sub CommandButton1_Click()

Dim b As Date

On Error GoTo NGTRS

a = TextBox1.Text

e = 0

If InStr(a, "/") = 5 Then e = 1

If Not IsNumeric(Left(a, 4)) Then e = 0

f = InStr(6, a, "/")

If Not IsNumeric(Mid(a, 6, f - 6)) Then e = 0

If Not IsNumeric(Right(a, Len(a) - f)) Then e = 0

b = a

c = Format(a, "yyyy/mm/dd")

If CStr(b) = c And e = 1 Then

MsgBox ("日付型 " & c)

Exit Sub

End If

NGTRS:

MsgBox ("違うよ")

End Sub

一応､日付型とは

年/月/日 のﾃﾞｰﾀとしています｡

年は 4桁固定で､不足した多かったりすると ｴﾗｰです｡

月と日は､一桁でも 2桁でもOKです｡

これで ﾀﾞﾒなﾊﾟﾀｰﾝがありましたら教えてください｡

IsDate関数ではﾀﾞﾒですか？

日付型かどうかを調べる関数ではなく､日付型に変換可能かどうかを調べてTRUEかFALSEを返す関数ですが…｡

よかったら試してみてください｡

Private Sub CommandButton1_Click()

If IsDate(TextBox1) = True Then

MsgBox "日付型に変換できます｡"

End If

If IsDate(TextBox1) = False Then

MsgBox "日付型に変換できません｡"

End If

End Sub

If TextBox1.Text Like "*/*/*" And IsDate(TextBox1.Text) Then

MsgBox "OK"

Else

MsgBox "NG"

End If

----

書式はY/M/Dを想定しました｡

日付数字の桁数を強制したい場合は､

"*/*/*"

を

"####/##/##"

に変えてください｡

URLはﾀﾞﾐｰでhttp://q.hatena.ne.jp/1158649073

もう解決済かもしれませんが､

できるだけ簡素にしてみました｡

threecloudjpさんと同じでIsDateで判定させます｡

ifでなくCaseを使っただけです(*^_^*)

空白時は｢入力値は日付ﾃﾞｰﾀではありません｣が表示されます｡

Private Sub CommandButton1_Click()

Dim msg As String

Select Case IsDate(TextBox1.Value)

Case Is = True

MsgBox "入力値は日付ﾃﾞｰﾀです"

Case Is = False

MsgBox "入力値は日付ﾃﾞｰﾀではありません"

End Select

End Sub

もしTextBoxの中の文字列がうまく取り出せないようならば指定を変えてみては｡判定自体は2番の方のIsDate関数使用と同じです｡

Sub ﾎﾞﾀﾝ1_Click()

Dim T As String

Dim MsgString As String

Dim WS As Object

Set WS = ActiveWorkbook.ActiveSheet.Shapes

T = WS.Item("Text Box 1").TextFrame.Characters.Text

MsgString = "日付型に変換できません｡"

If IsDate(T) = True Then

MsgString = "日付型に変換できます｡"

End If

MsgBox MsgString

End Sub

(C)株式会社はてな