No.9ベストアンサー
- 回答日時:
Sub test01()
Dim a As String
a = InputBox("数=")
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i, 1)) > 57 Then
MsgBox i & "字目でNon-Numeric"
Exit For
End If
Next i
End Sub
No.8
- 回答日時:
ダブル型や少数でもいいなら、#2さんのいうようにIsNumeric関数がベスト
銀行の口座番号のような、0-9ならLike演算子で判断がつきます。
(文字列を分解しないでも可能です。)
0-9以外の物を含む場合はエラーとしたらよいです。
Public Function myNumeric(inString As String) As Boolean
myNumeric = Not (inString Like "*[!0-9]*")
End Function
No.7
- 回答日時:
VBScriptのRegExpオブジェクトを使い、正規表現で判断するというのはいかがでしょうか。
<html>
<script Language="VBScript">
samplestr = "1234567890"
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\D"
msgbox regEx.test(samplestr)
Set regEX = nothing
</script>
</html>
上はVBScriptの構文です。
regEx.Pattern = "\D"は、数字以外の一文字にマッチの意味です。
regEx.test(string)がtrueならば、数字以外が含まれています。
VBからこのオブジェクトを使う場合は、参照設定で
Microsoft Scripting Runtimeオブジェクトを追加してください。
(IEのバージョン5以降が必要です。)
参考URL:http://www.microsoft.com/japan/msdn/library/ja/s …
No.5
- 回答日時:
こんにちわ。
これは例えば100文字の文字列とかを調べるんですよね?
やったことはないんですが、
面白そうなので一つ提案です。
------------------------------------------------------------
Replace関数で0から9まで10回まわして(vbNullStringあたりと置換)、
最後にもとの文字列と比較して何も変わっていなかったら、全部数字。
------------------------------------------------------------
これでどうでしょう。
処理効率のほうは知りません、MSに聞いてください(笑)
No.4
- 回答日時:
効率は悪いですが...
一度数値型に直して再び文字列に変換、そして比較というのはどうでしょう?
Dim strData As String
Dim strBuff As String
Dim nData As Integer
strData = "12356"
nData = Int(Val(strData))
strBuff = nData
If strBuff <> strData Then MsgBox "数字以外もあるようです"
No.3
- 回答日時:
こんにちは。
maruru01です。No.1の人の言う通り、1文字ずつMID関数とかで取り出して、チェックするしか思いつきません。
No.2の人の挙げたIsNumeric関数は、小数点やマイナス記号、さらには「3.5E-2」のような指数表示でも、Trueを返してしまいます。
No.1
- 回答日時:
私も、そのようなチェックをする場合、ループさせて 一つ一つチェックさせます。
あと、.とか - とかも エラーとして弾いてましたので・・・。
-0.4 とかは、エラーとすることができます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelでの列幅設定 1 2023/02/05 14:41
- Java Java 南京錠 2 2023/02/04 11:46
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Excel(エクセル) SUMIF関数について 4 2023/06/14 13:13
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Excel(エクセル) EXCEL 連番を振る方法 4 2023/08/24 15:36
- 数学 高校数学の質問です 文字を消去したり、置き換えたりしたら、残った文字に範囲がつくかどうか調べるという 4 2023/05/03 18:18
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
数字以外の入力をエラーにするには?
Visual Basic(VBA)
-
VBAで入力数値について
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
小数点を含む数値かどうか判断の判断方法
Visual Basic(VBA)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
8
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
9
小数か整数かを判定する方法
Visual Basic(VBA)
-
10
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
11
VBAにてデータが数字か文字かを判定するには
Access(アクセス)
-
12
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
13
正整数の半角数字かどうか判定する
Visual Basic(VBA)
-
14
参照設定は2.8と6.0 6.1とどちらにチェッ
その他(Microsoft Office)
-
15
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
16
Access 入力規則で設定できる数字桁数は?
Excel(エクセル)
-
17
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
18
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
19
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
20
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
[VBA]CDOメッセージ送信エラー
-
エクセルのVBAの標準モジュール...
-
PowerPointVBAでスライドマスタ...
-
ACCESS activeXコンポーネント...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
実行時エラー 3265「要求された...
-
VBで引数にDictionaryオブジェ...
-
Excel VBAでシートのコピー、移...
-
ExcelVBAでのNZ関数について
-
VBA (Row とRowsの違いについて)
-
VBAについてです。 初心者です...
-
テキストボックス中の文字列の...
-
Accessフォームから指定のExcel...
-
DelphiのTListについて
-
findメソッドの変数について
-
EXCEL VBAで標準モジュール内...
-
vbsのFolderExistsで部分一致を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報