![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・入力規則を設定して
・指定した間隔の数値のみ入力可
にできます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
入力できる値を制限することで、
誤入力を防止できます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
ここでは例として、
・1~100のみ入力可
にする方法を記載します!
VBAコード
ここでは例として、シート「sample」のセルC列「評価」に対し、1~100のみ入力可にします。
![実行前](https://excel-vba.work/wp-content/uploads/2020/12/vba_validatenumber_002.png)
Option Explicit
Sub sample()
With Worksheets("sample").Range("C3:C5").Validation
'既存の設定をクリア
.Delete
'1~100のみ入力可にする
.Add Type:=xlValidateWholeNumber, _
Operator:=xlBetween, _
Formula1:="1", _
Formula2:="100", _
AlertStyle:=xlValidAlertStop
'エラータイトル
.ErrorTitle = "入力エラー"
'エラーメッセージ
.ErrorMessage = "1~100の数値を入力してください。"
'日本語入力モードをOFF(=英語モード)
.IMEMode = xlIMEModeOff
End With
End Sub
実行結果
シート「sample」のセルC列「評価」に1~100以外の入力を試みると、エラーとなり入力不可であることが確認できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2020/12/vba_validatenumber_003.png)
参考①
指定した文字数のみ入力できるようにもできます。
詳細は以下の記事をご確認ください。
参考②
日付のみ入力できるようにもできます。
詳細は以下の記事をご確認ください。