VBA

質問

エクセルシートに１から５の数値がランダムに打ち込んであって、１から５以外の数値が混ざっていた場合、「再入力してください」と表示させるVBAコードを作りたいのですが、どうしたらよいでしょうか？

回答No.1

n-jun · ベストアンサー

＞１から５以外の数値が混ざっていた場合、「再入力してください」と表示させる
と言う事は１～５しか入力できないよう入力規則で設定するのはダメなのですか？

お礼

入力規制で十分対応できました。ご指摘ありがとうございます。

回答No.3

n-jun

＃１です。

入力済というのなら、範囲がＡ１：Ｅ１だとしたら最小値が１未満か最大値が５を超えるかで判断して

Sub try()
　With Application
　　　　If .Min(Range("A1:E1")) < 1 Or .Max(Range("A1:E1")) > 5 Then
　　　　　　MsgBox "再入力して下さい"
　　　　End If
　End With
End Sub

とか？

回答No.2

imogasi

>打ち込んであって
と入力は完了しているような書き方でありますが、入力データの増加はないのですか。
今後も入力が有るなら、シートのイベントを考えるとか、入力規則の設定とかのことも考えることになりますのでね、質問が不明瞭なわけです。
ーー
データの有る列の構成は１列ですか。
ーー
＞どうしたらよいでしょうか
いろんな意味に取れます。
どこへコードを書くのかとかの質問も無くはないでしょう。
それは判っていて、VBAコードが知りたいということですか。
回答者に全的にコードを書かせるのは、丸投げになるが、まあこの程度ならよいでしょう。
ーーー
A列にデータがあり、入力は済んでいるとして（内容チェック作業という事で）、コードの一例ですが
VBEで標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
'MsgBox d
For i = 1 To d
If Cells(i, "A") > 5 Or Cells(i, "A") < 0 Or Cells(i, "A") = "" Then

p01:
x = InputBox(i & "行目のデータが範囲外です")
If x > 5 Or x < 0 Or x = "" Then
GoTo p01
Else
Cells(i, "A") = x
GoTo p02
End If
End If
p02:
Next i
End Sub

お礼

細かいところまで書いていなくて失礼しました。回答ありがとうございます。