Question

问题1：excel窗体中判断一个文本框内输入的值必须大于等于-0.7小于等于0.7，否则提示错误！

问题2：excel窗体中在文本框内输入值的格式必须为*****-**，例如：1A726-5A、12345-1B、9B427-2D....若不是这样的格式则提示错误！

Answer 1

下面两段代码均用Textbox的Exit事件作触发，你实际用时修改成合适的事件。
问题1：下面代码供参考
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Text <> "" Then
If TextBox2.Text Like "*[!-.0-9]*" Then GoTo myErr
If Val(TextBox2.Text) < -0.7 Or Val(TextBox2.Text) > 0.7 Then GoTo myErr
End If
Exit Sub
myErr:
MsgBox ("错误" + Chr(10) + "必须输入数字!且数字在-0.7至0.7间")
Cancel = True
End Sub

问题2：
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3.Text <> "" Then
If Not TextBox3.Text Like "?????-??" Then GoTo myErr
End If
Exit Sub
myErr:
MsgBox ("错误" + Chr(10) + "格式必须类似1A726-5A、12345-1B、9B427-2D")
Cancel = True
End Sub