|
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 "Aを選んだ時は、0〜100だよ!"
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 "Bを選んだ時は、101〜200だよ!"
KeyCode = 0
With TextBox1
.SelStart = 0
.SelLength = Len(.Value)
End With
End If
End If
End If
End Sub
|
|