Макрос для предотвращения ввода дубликатов в столбце M в Excel

Question

Мне нужно написать макрос для предотвращения ввода дубликатов в столбце М в Excel.

Пример:

Я ввожу "A - 100" в ячейку M5. Если я ввожу "A - 100" в ячейку M7, я хочу показать мне сообщение об ошибке, которое дублируется.

Я пытался проверить данные, но формула не работает, поэтому я хочу использовать макрос.

Answer 1

Введите следующий макрос событий в области кода рабочей таблицы:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Intr As Range, M As Range, r As Range
    Dim wf As WorksheetFunction, t As String

    Set wf = Application.WorksheetFunction
    Set M = Range("M:M")
    Set Intr = Intersect(M, Target)
    If Intr Is Nothing Then Exit Sub
    For Each r In Intr
        t = r.Text
        If t <> "" Then
            If wf.CountIf(M, t) <> 1 Then
                Application.EnableEvents = False
                    r.Select
                    r.ClearContents
                    MsgBox t & " has already been entered."
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
    Next r
End Sub

Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:

1. щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
2. выберите View Code - откроется окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте на пробной странице.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. вызвать окна VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о макросах событий (код листа), см.:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть включены, чтобы это работало!