Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9290 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼こたつねこ さん：
出来ましたありがとうございます！

他にも日付型の判定とかの関数もあるんですね
とても勉強になりました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9290 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free