![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?5a7ff87)
分からないのでよろしくお願いします。
テキストボックスに一つでも数字以外の文字を入力したらエラーメッセージを出すようにしたいのです。小数点も不可にしたいです。
つまり、整数だけを許可したいです。
Dim suuji As string
suuji= text1.Text
If Not IsNumeric(CStr(suuji.ToString)) Then
MsgBox("入力値が数字ではありません", MsgBoxStyle.Critical, "エラー")
Exit Sub
End If
こうしたのですが、小数点は通ってしまいます。
どうすればいいかご存知の方、教えてください。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?5a7ff87)
No.4
- 回答日時:
だぁぁ、誤字です。
方→型
自分も整数値入力の処理を考えないとな~
と、思っていたところにこの質問がありましのでちょうどいいタイミングでした。
「きっかけ」を作ってくれてありがとうございます。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?5a7ff87)
No.3
- 回答日時:
Dim x As Boolean
If (Integer.TryParse(Me.TextBox1.Text, x)) Then
MessageBox.Show("Value is " + Me.TextBox1.Text)
Else
MessageBox.Show("Not Integer")
End If
変数の方を間違えていました。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?5a7ff87)
No.2
- 回答日時:
Dim x As Integer
'~.TextはIntegerに変換できるか?
If (Integer.TryParse(Me.TextBox1.Text, x)) Then
MessageBox.Show("Integer")
Else
MessageBox.Show("Not Integer")
End If
このソースはインデントを表わすため全角スペースが混じっています。
あと、Ifの無駄なかっこは普段C#を使っているための癖です。
【余計なおせっかい】
IsNumericはMicrosoft.VisualBasicの名前空間に属します。
この名前空間は過去のVisual Basicとある程度の互換性を保つために用意されているので、使用するべきではない、という話を聞いたことがあります。
そうなんですか。
IsNumericは使用すべきではないのですか。
初めて知りました。
こちらのやり方も参考になり、大変勉強になりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- その他(Microsoft Office) エクセルのマクロを教えてください。 1 2023/01/27 09:05
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
数字以外が入力されたらエラー文を出したい。
C言語・C++・C#
-
TextBoxに半角数字以外を入れたらエラーメッセージを出す
JavaScript
-
java初心者です。入力されたのが数字なら出力し、数字以外が入力されたらもう一度入力する繰り返し処理
Java
-
-
4
テキストボックスに入力された値の判定
Visual Basic(VBA)
-
5
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
6
4桁の数字以外を入力したらエラーを表示したいです
C言語・C++・C#
-
7
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
8
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
9
VBAにてデータが数字か文字かを判定するには
Access(アクセス)
-
10
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
ある文字列が全て数字であるかどうかをチェックするには?
Visual Basic(VBA)
-
13
小数点を含む数値かどうか判断の判断方法
Visual Basic(VBA)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
16
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
17
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
18
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
19
C#テキストボックスの文字を配列にいれてその後表示する
C言語・C++・C#
-
20
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスの番号を使っ...
-
数字以外の入力をエラーにする...
-
Excel-VBAでInputBox+Pulldown...
-
エクセルVBA テキストボックス...
-
EXCEL VBA で指定した範囲に入...
-
X(元Twitter)で問題があり、お...
-
VBAでInputBoxの再入力をさせる...
-
ACCESS テキストボックスの入力...
-
TextBoxから数字が文字...
-
DataGridViewの桁数制限に関して
-
Windowsのアプリ開発ってなんの...
-
excel vba でユーザーフォーム...
-
「イ分」・・・フンという文字...
-
VBA R1C1形式で変数の入力について
-
VBで電卓の=
-
初歩的な事だと思います。 Sub...
-
HTMLで入力値を半角大文字に制御
-
なんで
-
accessで該当するレコードがな...
-
テキストボックス内で半角英数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
数字以外の入力をエラーにする...
-
初歩的な事だと思います。 Sub...
-
EXCEL VBA で指定した範囲に入...
-
Windowsのアプリ開発ってなんの...
-
入力フォームの値をQRコードで...
-
教えて!全角文字「μ」の半角
-
Excel-VBAでInputBox+Pulldown...
-
VBAでInputBoxの再入力をさせる...
-
エディットボックスの入力制限...
-
TextBoxから数字が文字...
-
VBAの質問になります メッセー...
-
指定した演算を実施の結果を表...
-
excel vba でユーザーフォーム...
-
アルファベットGの小文字の入力
-
DataGridView 列ごとの入力制限
-
accessで該当するレコードがな...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
おすすめ情報