作者：乔山办公网日期：
返回目录：excel表格制作
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRow As Integer
myRow = Target.Row
mycol = Target.Column
If myRow <= 10 And mycol <= 10 Then '设置监测百范度围
MsgBox ("输入的是" & Target)
End If
End Sub
见附回件答下载
Sub 宏知1()
'
' 宏1 宏
'代码测试过，应该符合你的道要求内
'
vMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 to vMax
If Range("B" & i) < 500 Then
If vbCancel = (MsgBox("低于门限，是否容继续执行", vbOKCancel, "提示")) Then
Exit Sub
End If
End If
Next i
End Sub
可以操作,选择G2单元格，在上面菜单项中按步骤操作：
数据—zd—数据有效性——设置——允许：自定义——公式：=COUNTIF(B:B,G2)>1；
在出错警告中——样式：警告——标题：错误原由——错误信息专：提示文字说属明
确定
此时，只要G2输入的字符在B列中没有的，即会提示警告。
自己慢慢学习研究吧