入力チェック

質問

すでに決まった数字0001や00102などがあり、
ユーザー側が数字を入力し、決まった数字以外を入力していないかどうか、チェックするものを作りたいのですがまったく検討がつきません。
何かヒントでもよいので教えていただけないでしょうか？

回答No.4

imogasi

この質問はVBAでの回答希望ですか？
以下は関数関連でやって見ます。
チェック後のエラー結果を、ユーザーに知らせようとしているのか、書いてないのですが
H1:H10にOKの数字を列挙
入力範囲をA1:A20として、その範囲を指定
書式-条件付き書式-数式が
=ISERROR(VLOOKUP(A1,$H$1:$H$10,1,FALSE))
書式にフォントー赤字　を設定
OK
A1:A20でH1:H10に上げた以外の数以外を入力すると、赤字に変化する。
コメントを出すならB列を使えばできる。
=IF(A1="","",IF(ISERROR(VLOOKUP(A1,$H$1:$H$10,1,FALSE)),"エラー",""))
をB1に入れて、B20まで式を複写する。

回答No.3

noname#22222

チェックする数字の数次第ですが...

Private Function CheckSuji(ByVal intNewNumber AS Integer) AS Boolean
　　CheckSuji = CBool(Instr(1, _
　　　　　　　　　　　"<1><102><202>・・・・<999>", _
　　　　　　　　　　　"<" & Trim$(str$(intNewNumber)) & ">", _
　　　　　　　　　　　vbTextCompare) > 0)
End Function

回答No.2

cocodoco5656

項目が決まっているなら
入力させないでComboBoxを使う。

回答No.1

ipsum11

入力した数字を決まった数字全てと比較すればいいだけでは？
１．ＩＦ文で全ての決まった数字と比較
２．決まった数字を配列にし、ＦＯＲ文でループ