|
▼kanabun さん:
>
早速の回答ありがとうございました。
説明不足で申し訳ありませんだした。
TextBoxが空白
TextBoxが3/32のようなあり得ない日付
TextBoxがzzzのような文字
以上のような入力値の場合MsgBoxを表示したかったのですが
kanabun さんのコードを試してみましたが、zzzのような
文字はMsgBoxは表示しませんでした。
他の方法があればご教授下さい。
▼きしやん さん:
>
>インデントが崩れていて読みにくいので修正して、
>IsNumeric(数値化可能か調べる関数) の位置も 変更しましたが、
>これで TextBoxに
>「12345」など数値化できる文字列を入力して試してみてください。
>
>Option Explicit
>
>Private Sub CommandButton1_Click()
> Dim hia As String
> hia = TextBox1.Text
> If Len(hia) = 0 Then
> MsgBox "入力がありません"
> ElseIf IsNumeric(hia) Then
> MsgBox "日付が不正です"
> ElseIf IsDate(hia) Then
> If Year(CDate(hia)) < 1945 Then
> MsgBox "大昔の日付です!"
> Else
> MsgBox "OKです"
> Worksheets("Sheet1"). _
> Range("A10").Value = CDate(hia)
> End If
> End If
>End Sub
|
|