简单啊
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value < 60 Then TS '如果成绩<60 则提示
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3.Value < 60 Then TS '如果成绩<60 则提示
End Sub
Sub TS() '提示
Label5.Visible = True '显示提示语句
CommandButton1.Enabled = False '使按钮无效
Application.Wait (Now + TimeValue("0:00:01")) '延时1秒钟
Unload Me '关闭窗体
End Sub
Private Sub CommandButton1_Click()
Selection.Offset(0, 2) = TextBox1.Value '被选择单元的右第2列单元输入“姓名”,以下类推
Selection.Offset(0, 4) = TextBox2.Value
Selection.Offset(0, 5) = TextBox3.Value
Unload Me
End Sub