【實例11-判斷單元格錄入數(shù)據(jù)】Excel表格VBA編程實例 代碼分享
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column >= 3 And Target.Column <= 6 And Target.Value = "" Then
? ? Target.Value = "未考"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 6 Then
? ? If IsNumeric(Target.Value) = True Then
? ? ? ? If Target.Value >= 0 And Target.Value <= 100 Then
? ? ? ? ? ? If Target.Value < 60 Then
? ? ? ? ? ? Target.Interior.ColorIndex = 3
? ? ? ? ? ? Else
? ? ? ? ? ? Target.Interior.ColorIndex = 0
? ? ? ? ? ? End If
? ? ? ? Else
? ? ? ? ? ? MsgBox "成績范圍是0~100！"
? ? ? ? ? ? Target.Value = ""
? ? ? ? End If
? ? Else
? ? ? ? If Target.Value <> "未考" Then
? ? ? ? MsgBox "文本只能輸入“未考”！"
? ? ? ? Target.Value = ""
? ? ? ? End If
? ? End If
? ? If Target.Value = "" Then
? ? Target.Interior.ColorIndex = 0
? ? End If
End If
End Sub
