Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
SelectionChange. Кликая на любую яцейку в диапазоне вызывать процедуру
 
Добрый день еще раз. Извините за повтор, постараюсь исправиться.

Итак проблема. Нужно начиная с 15го столбца и интервалом 14 столбцов, кликая на любую яцейку в диапазоне вызывать процедуру. Предварительно, нет возможности знать, что таких кликатебельных столбцов будет известное значение. Желательно что бы до конца файла была такая возможность. Использовать ниже преведенный код 100500 раз можно, но если нужно будет не 14 а 15 интервал, переписывать буквы вручную долгое и ошибочное занятие.
Код
If Intersect(Target, Лист8.Range("D4:D10000")) Is Nothing Then
[ Закрыто] SelectionChange
 
Добрый день всем. я обычно использую код такого типа. Все работает, претензий нет. Подробнее в файле. Спасибо.
Код
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 авг 2019 13:37:42
Страницы: 1
Наверх