Блог

Главная - Вопросы по программированию - Разрешить пользователю одну запись в 3 наборах ячеек (по одному для каждой таблицы)

Разрешить пользователю одну запись в 3 наборах ячеек (по одному для каждой таблицы)

#excel #vba

#excel #vba

Вопрос:

У меня есть 3 таблицы и по одной для каждой из них, я хочу разрешить только 1 ячейку с 1.

Это то, что я получил до сих пор.

 Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rLook As Range
    Set rLook = Range("A1:C1")
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    If Intersect(Target, rLook) Is Nothing Then Exit Sub
    If wf.CountA(rLook) < 2 Then Exit Sub
    Application.EnableEvents = False
        Target.Clear
        MsgBox "Only one entry allowed"
    Application.EnableEvents = True
End Sub

Это работает для 3 ячеек, но у меня есть таблицы с несколькими строками.

Как я могу это сделать?

Комментарии:

1. Ваши таблицы отформатированы как таблицы (т. Е. Являются ли они a ListObject )?

2. @BigBen Я этого не делаю, у меня есть только такой диапазон (A2: G28)

3. Вы разрешаете только одну ячейку в строке или одну ячейку в таблице?

4. @BigBen по одному на таблицу

5. Затем просто измените диапазон на A2:G28 .