Евгений Григорьевич (Автор тем)

SelectionChange. Кликая на любую яцейку в диапазоне вызывать процедуру

Пользователь

Сообщений: 7 Регистрация: 19.08.2019

20.08.2019 14:28:55

Добрый день еще раз. Извините за повтор, постараюсь исправиться.

Итак проблема. Нужно начиная с 15го столбца и интервалом 14 столбцов, кликая на любую яцейку в диапазоне вызывать процедуру. Предварительно, нет возможности знать, что таких кликатебельных столбцов будет известное значение. Желательно что бы до конца файла была такая возможность. Использовать ниже преведенный код 100500 раз можно, но если нужно будет не 14 а 15 интервал, переписывать буквы вручную долгое и ошибочное занятие.

Код
If Intersect(Target, Лист8.Range("D4:D10000")) Is Nothing Then

Перейти

[ Закрыто] SelectionChange

01111983

Пользователь

Сообщений: 7 Регистрация: 19.08.2019

20.08.2019 13:36:41

Добрый день всем. я обычно использую код такого типа. Все работает, претензий нет. Подробнее в файле. Спасибо.

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Лист8.Range("D4:D10000")) Is Nothing Then
    If Intersect(Target, Лист8.Range("A4:A10000")) Is Nothing Then
      If Intersect(Target, Лист8.Range("A1")) Is Nothing Then
        Exit Sub
       Else
        frmSverka.Show
      End If
     Else
      Nom = 8 + 1
      Call PlusMinus
    End If
   Else
    Call Malocenka
  End If
End Sub

Изменено: 01111983 - 20.08.2019 13:37:42

Перейти