Активация макроса при изминении в определенных ячейках

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Активация макроса при изминении в определенных ячейках (Макросы/Sub)

Kokkolar

Дата: Понедельник, 23.06.2014, 16:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Как сделать запуск макроса при изменении определенных ячеек, а НЕ их диапазона?

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim KeyCells As Range
     Set KeyCells = Range("A1", "A3")

     If Not Application.Intersect(KeyCells, Range(Target.Address)) _
         Is Nothing Then
         Call sumka
     End If
End Sub

[/vba]

То есть мне надо чтобы макрос запускался при изменении в А1 или А3, но не в А2.

Ответить

Serge_007

Дата: Понедельник, 23.06.2014, 16:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Поиск по Target: http://www.excelworld.ru/forum/10-1609-1#1804

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Kokkolar

Дата: Понедельник, 23.06.2014, 18:45 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Ничего про этот таргет не понял. Извратился вот так:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim KeyCells1, KeyCells2 As Range
      Set KeyCells1 = Range("A1")
      Set KeyCells2 = Range("A3")

      If Not Application.Intersect(KeyCells1, Range(Target.Address)) _
          Is Nothing Then
          Call sumka
      End If
      If Not Application.Intersect(KeyCells2, Range(Target.Address)) _
          Is Nothing Then
          Call sumka
      End If
End Sub

[/vba]

Работает как надо, но от такой "красоты" кода глаза вытекают.

Сообщение отредактировал Kokkolar - Понедельник, 23.06.2014, 18:46

Ответить

RAN

Дата: Понедельник, 23.06.2014, 19:27 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Set KeyCells = Range("A1, A3")

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

_Boroda_

Дата: Понедельник, 23.06.2014, 19:54 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Предположу, что Вам нужно так:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Application.Intersect(Range("A1,A3"), Target) Is Nothing Then
           Call sumka
       End If
End Sub

[/vba]
Впрочем, Андрей выше уже написал.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995