|
自分の望んでいたものができました!!
ぴかるさんありがとうございました。
>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
|
|