17-用户窗体介绍

excel交流

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case [a1].Value
    Case ""
    MsgBox "未输入任何字符"
    Case Is < 60
    MsgBox "不及格"
    Case Is < 85
    MsgBox "较好"
    Case Is < 100.0001
    MsgBox "优秀"
    Case Else
    MsgBox "不能识别"
End Select
End Sub