Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17131 / 76738 ←次へ | 前へ→

【65064】Re:数値と文字の判別
質問  きしやん E-MAIL  - 10/4/10(土) 21:24 -

引用なし
パスワード
   ▼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

0 hits

【65062】数値と文字の判別 きしやん 10/4/10(土) 20:18 質問
【65063】Re:数値と文字の判別 kanabun 10/4/10(土) 21:06 発言
【65064】Re:数値と文字の判別 きしやん 10/4/10(土) 21:24 質問
【65065】Re:数値と文字の判別 teian 10/4/10(土) 22:40 発言
【65066】Re:数値と文字の判別 きしやん 10/4/10(土) 23:13 質問
【65070】Re:数値と文字の判別 teian 10/4/11(日) 8:01 発言

17131 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free