Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Запуск макроса при изменении значения одной конкретной ячейки
 
#1
25.07.2017 08:31:02
Доброе утро! Помогите заставить правильно работать макрос.
Скрытый текст

Он рабочий, но только любые изменения в любых ячейках на этом листе другими макросами, они(другие макросы) всегда обращаются к этой процедуре, что замедляет работу макроса. Нужно чтобы к этой процедуре было обращение только когда происходит изменение в ячейке указанной в этой процедуре но ни как не в каждой ячейке. Я пытался подставить код как рекомендует Юрий М тут но не известно почему не вышло.
Изменено: OSA913 - 25.07.2017 08:34:47
 
 
 
#2
25.07.2017 09:21:16
что-то в этом роде:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("A1").Address Then
        '<код>
    ElseIf Target.Address = Range("B1").Address Then
        '<код>
    End If
End Sub
 
 
 
#3
25.07.2017 09:47:49
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3,F3,X3,Z3,AR3,AT3,AR5,AT5")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Select Case Target.Address
        Case "$D$3"
            Set KeyCells = Range("M3")
        Case "$F$3"
            Set KeyCells = Range("N3")
        Case "$X$3"
            Set KeyCells = Range("AE3")
        Case "$Z$3"
            Set KeyCells = Range("AG3")
        Case "$AR$3"
            Set KeyCells = Range("AX3")
        Case "$AT$3"
            Set KeyCells = Range("AY3")
        Case "$AR$5"
            Set KeyCells = Range("BA3")
        Case "$AT$5"
            Set KeyCells = Range("BC3")
    End Select
    KeyCells = Target
    CopyData1
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Изменено: Sanja - 25.07.2017 15:55:58
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
25.07.2017 10:49:14
Спасибо, но пока не работает макрос(
 
 
 
#5
25.07.2017 10:55:38
Покажите файл-пример
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
25.07.2017 10:57:09
Когда в vba клавишей F8 проверяю ход выполнения макроса "QQ", он заходит в процедуру "Private Sub Worksheet_Change" после  изменения значения в каждой ячейке. Нужно чтобы в "Private Sub Worksheet_Change"  желтая стрелка не попадала.
Изменено: OSA913 - 25.07.2017 11:43:38
 
 
 
#7
25.07.2017 15:21:46
Вариант webley так же работает как мой. Может так должно быть ..?
 
 
 
#8
25.07.2017 15:36:20
Цитата
OSA913 написал: заходит в процедуру "Private Sub Worksheet_Change" после  изменения значения в каждой ячейке
Правильно. Потому что возникает событие Изменения ячейки
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
25.07.2017 15:51:42
Цитата
OSA913 написал: но пока не работает макрос
Что значит не работает? Вы поймите, что Событие изменения ячейки возникает при изменении ЛЮБОЙ ячейки на листе, и обработчик этого события (Private Sub Worksheet_Change) будет выполняться в ЛЮБОМ случае. Другое дело КАК он будет выполняться. Проверьте мой макрос (чуть подкорректировал его в сообщении #3) и сравните время выполнения со своим. У Вас же проблема в том что работа макроса замедляется. Но это именно из-за того, что Ваш код написан не оптимально
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
26.07.2017 06:09:50
Доброе утро! Sanja, сам макрос не работает именно Ваш вариант. Посмотрите пожалуйста в примере. Сверху  два варианта за комментированные они работают.
 
 
 
#11
26.07.2017 06:35:03
OSA913, У вас
Код
Case "A1"
У Sanja
Код
Case "$D$3"
Разницу улавливаете ?)
Target.Address возвращает "$A$1" а не "A1"
 
 
 
#12
26.07.2017 06:44:58
Не работает(
 
 
 
#13
26.07.2017 07:06:54
OSA913,А я собственно не понимаю, как оно должно работать ?)  Так нужно ?
 
 
 
#14
26.07.2017 07:21:01
Точно. Спасибо! Действительно оптимальней такой вариант. Только теперь макрос "CopyData1" не всегда срабатывает. Как его поставить в коде чтобы он срабатывал всегда при изменении значения в любой ячейке листа?
 
 
 
#15
26.07.2017 13:53:27
Цитата
OSA913 написал:
теперь макрос "CopyData1" не всегда срабатывает
Перенесите CopyData1 после End If
Согласие есть продукт при полном непротивлении сторон
 
 
 
#16
26.07.2017 18:35:36
Цитата
Sanja написал:
Перенесите CopyData1 после End If
Будет непрерывный цикл т.к. CopyData1 меняя значения в ячейках снова возвращается в "Private Sub Worksheet_Change".
 
 
 
#17
26.07.2017 18:43:26
Логично. Тогда отключайте обработку событий сразу после начала процедуры
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1,A2,A3,A4,A5,A6,A7,A8")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
    Select Case Target.Address
    .......
Согласие есть продукт при полном непротивлении сторон
 
 
 
#18
26.07.2017 18:46:19
Цитата
Sanja написал: Логично...
Хотя не совсем. Мы же не знаем что Ваш макрос CopyData1 делает. Может он не изменяет ячейки на текущем листе
Согласие есть продукт при полном непротивлении сторон
 
 
 
#19
27.07.2017 06:58:32
Работает! Спасибо друзья!
 
 
 
#20
05.08.2017 09:08:02
Некоторые макросы слегка притормаживают, проверил, оказалось все из-за процедуры "CopyData", которая выглядит таким образом:
Скрытый текст

Решил от нее избавиться и перенести ее тело в процедуру события листа "Worksheet_Change" написал код в варианте предложенном Sanja. Макросы стали работать быстрее, но некоторые значения из ячеек не хотят копироваться.
Скрытый текст

Я думаю что из-за этого например из D3 должно копироваться в M3 и также на др лист в R3. Как раз не копируются значения там где нужно их  копировать сразу в два места. Помогите сделать чтобы можно было копировать значение с одной ячейки в два места. Сейчас составлю простой пример и приложу в следующем посте.
Изменено: OSA913 - 05.08.2017 09:11:49
 
 
 
#21
05.08.2017 09:33:57
Вот простой пример. Значения не копируются на лист2.
 
 
 
#22
05.08.2017 09:41:50
Напишите пожалуйста обычными словами -ЧТО, КУДА, ПРИ КАКИХ УСЛОВИЯХ должно копироваться. Потому что Ваш код неправилен и из него не понятно что Вы хотите получить на выходе
Согласие есть продукт при полном непротивлении сторон
 
 
 
#23
05.08.2017 10:06:33
Доброе утро) Хочу чтобы при изменении значения в любой из ячеек в A1:A4 в первом листе, значение из ячейки A1 копировалось в B1, A2 в B2, A3 в B3, A4 в B4 и так же из A1 и A2 в первом листе копировалось в A1 и A2 на втором листе.
Изменено: OSA913 - 05.08.2017 10:09:52
 
 
 
#24
05.08.2017 10:08:27
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1,A2,A3,A4")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
        Select Case Target.Address
        Case "$A$1"
          Set KeyCells = Range("B1")
          Set KeyCells2 = Sheets(2).Range("A1")
        Case "$A$2"
          Set KeyCells = Range("B2")
          Set KeyCells2 = Sheets(2).Range("A2")
        Case "$A$3"
            Set KeyCells = Range("B3")
        Case "$A$4"
            Set KeyCells = Range("B4")
    End Select
    KeyCells.Value = Target
    If Not KeyCells2 Is Nothing Then
        KeyCells2.Value = Target
    End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#25
05.08.2017 12:13:56
Некоторые ячейки не копируют значения в другой лист когда значение в них определяется формулой, копируются только при ручном вводе значения. Сделал такую же ситуацию на своем файле-примере копирует нормально. Не пойму почему так. Проверил код несколько раз-все написал правильно.
 
 
 
#26
05.08.2017 12:17:45
Цитата
OSA913 написал: Не пойму почему так
Потому что
Цитата
OSA913 написал: значение в них определяется формулой
Ручной ввод и изменение значения формулой это разные вещи. 'Повешайте' код на событие Private Sub Worksheet_Calculate()
Согласие есть продукт при полном непротивлении сторон
 
 
 
#27
05.08.2017 12:29:43
Не помогло. Но в файле-примере работает.
 
 
 
#28
05.08.2017 12:33:18
Хотя нет. В примере тоже перестало копировать когда в A1 ввел значение вручную.
 
 
 
#29
05.08.2017 15:33:42
Вы в реальном файле формулу тоже кодом вставляете? Покажите уже пример в РЕАЛЬНОЙ СТРУКТУРЕ и что Вы в нем пытаетесь получить. Я уже просил
Цитата
Sanja написал: ЧТО, КУДА, ПРИ КАКИХ УСЛОВИЯХ должно копироваться
Что и Куда Вы объяснили, а вот про условия не хотите. Где данные изменяются вручную? Где формулой? Где формула вставляется кодом?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#30
06.08.2017 15:09:40
В реальном файле проблема точно такая же как и в файле-примере выше. Событием "Worksheet_Change" выполняется перенос значения из ячейки A1(лист1) в ячейку B1(лист1) и в ячейку A1(лист2) когда ввожу значение в A1 в ручную - с этим проблем уже нет. Когда жму на ячейку A5(лист1), макрос задает ячейке A1(лист1) формулу =A2*A3(лист1) - с этим проблем тоже нет. Проблема - когда меняю значение в A2(лист1), в A1 меняется значение (т.к. формула), но оно не копируется в ячейку B1(лист1) и в ячейку A1(лист2). Как это поправить?
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх