论坛 › 电脑办公 › 17-用户窗体介绍

excel交流 发表于 2017-9-20 03:23:13

17-用户窗体介绍

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

查看完整版本: 17-用户窗体介绍