求高手帮忙

思想怪异

Book1.rar (7.68 KB, 下载次数: 12)

2013-4-6 19:24 上传

点击文件名下载附件

grf1973

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        If Application.WorksheetFunction.CountIf(Columns(Target.Column), Target.Text) > 1 Then
            MsgBox "您所输入的电话号码重复，请检查后重新输入！"
        End If
    End If
End Sub