Excel VBA質問箱 IV

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

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


9277 / 13644 ツリー ←次へ | 前へ→

【28259】数値のみ、文字のみ という制御 SE菊地 05/9/1(木) 15:55 質問[未読]
【28260】Re:数値のみ、文字のみ という制御 こたつねこ 05/9/1(木) 16:02 回答[未読]
【28262】Re:数値のみ、文字のみ という制御 SE菊地 05/9/1(木) 16:07 お礼[未読]

【28259】数値のみ、文字のみ という制御
質問  SE菊地  - 05/9/1(木) 15:55 -

引用なし
パスワード
   お世話になります

テキストボックス等、値を入力できるようにした場合
フォーカスがはなれたときや、コマンドボタンを押下したときに

そこにいれる値は数字だけ!
というようなポップアップを出したいと思っています。

例えばTextBox1というオブジェクトがあったとして

Private Sub TextBox1_Change()
  If TextBox1.Value <> ☆ここ☆ Then
    MsgBox "数値のみ"
  End If
End Sub

☆ここ☆の部分に、数字を表す定数が入れば
実現できると思うのですが、そういうのってあるのでしょうか?

【28260】Re:数値のみ、文字のみ という制御
回答  こたつねこ  - 05/9/1(木) 16:02 -

引用なし
パスワード
   ▼SE菊地 さん:
こんにちは

>Private Sub TextBox1_Change()
>  If TextBox1.Value <> ☆ここ☆ Then
>    MsgBox "数値のみ"
>  End If
>End Sub
>
>☆ここ☆の部分に、数字を表す定数が入れば
>実現できると思うのですが、そういうのってあるのでしょうか?

if Isnumeric(TextBox1.Text)=false then

でどうでしょう?
詳しくはHelpをどうぞ^^;

【28262】Re:数値のみ、文字のみ という制御
お礼  SE菊地  - 05/9/1(木) 16:07 -

引用なし
パスワード
   ▼こたつねこ さん:
出来ましたありがとうございます!

他にも日付型の判定とかの関数もあるんですね
とても勉強になりました!

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