| |
nobiさん、こんにちは。
こんな感じでどうです？。お試し下さい。
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
If OptionButtonA = True Then
If TextBox1.Value > 100 Then
MsgBox "Ａを選んだ時は、０〜１００だよ！"
KeyCode = 0
With TextBox1
.SelStart = 0
.SelLength = Len(.Value)
End With
End If
ElseIf OptionButtonB = True Then
If (TextBox1.Value < 101) Or (TextBox1.Value > 200) Then
MsgBox "Ｂを選んだ時は、１０１〜２００だよ！"
KeyCode = 0
With TextBox1
.SelStart = 0
.SelLength = Len(.Value)
End With
End If
End If
End If
End Sub
|
|
