У меня вопрос, как я могу установить остановку ввода данных, когда я превышаю лимит в 3 знака одного и того же участника?

Question

У меня вопрос: если я ввел "ДЖОН" 4 раза, то вы увидите ошибку или сообщение об ошибке "Вы превысили 3, введите новое имя"

"Максимальный список участников 3"

Answer 1

Это должно сработать или, по крайней мере, помочь вам начать. Макрос будет вызываться только при изменении ячейки в Column B, При запуске макрос отображает сообщение и очищает всю строку измененной ячейки, ЕСЛИ имя участника присутствует в столбце более 3 раз.

Вам не нужно держать Column D для этого макроса, поскольку он рассчитывает количество независимо. Нет ничего плохого в том, чтобы оставить его там, хотя, если вам нужно увидеть оставшиеся возможные подсчеты (1, 2, 3)

---

Для реализации вставьте этот код на лист в VB Editor где хранится ваш код

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
    If Application.WorksheetFunction.CountIf(Range("B:B"), Target) > 3 Then
        Application.EnableEvents = False
            MsgBox "Participant Already Has 3 Entries!"
            Target.EntireRow.Clear
        Application.EnableEvents = True
    End If
End If

End Sub