VBA カゥントで数値の範囲を規制

いつもお世話になります。

下記のコードでカウントするのですが
その範囲を　１～３１　に規制したい

D1のセルに「データーの入力規則」を適用したのですが
有効ではありませんでした。
　　入力値の種類　文字列
　　最小値「１」　最大値「3１」

vbaのコードに規制のコードを入れるのでしょうか。
もしそうならご指導いただけませんか。

※コード
Sub 増やす_Click()
Dim r As Integer
r = Range("D1").Value
Range("D1").Value = r + 1
End Sub

Sub 減らす_Click()
Dim r As Integer
r = Range("D1").Value
Range("D1").Value = r - 1
End Sub

No.1 ベストアンサー 回答者： aouze_ya 回答日時： 2022/05/20 07:50

こんなのでは

Sub 増やす_Click()
Dim r As Integer
r = Range("D1").Value
If r < 31 Then Range("D1").Value = r + 1
End Sub

Sub 減らす_Click()
Dim r As Integer
r = Range("D1").Value
If r > 1 Then Range("D1").Value = r - 1
End Sub

この回答へのお礼

おはようございます。
早速のご回答をありがとうございます。
うまくゆきました。

お礼日時：2022/05/20 08:05