Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копировать значение ячейки при событии ByVal Target As Range
 
#1
31.10.2017 19:46:51
Доброго времени Уважаемые знатоки VBA/ Прошу подсказать как подправить код. Смысл при изменении значения в ячейке -это значение изменяется на листе 2. Дело в том что код не видит если изменение значения произошло в результате действия формулы. Необходимо на листе  копировать значение ячейки и вставлять, только тогда он срабатывает, а это неудобно, теряется весь смысл автоматизации. Заранее благодарен
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheets("Лист2")
        Select Case Target.Address
            Case Is = "$B$2": .Range("D2") = Target
            Case Is = "$B$6": .Range("D3") = Target
            Case Is = "$C$6": .Range("D4") = Target
        End Select
    End With
End Sub
 
 
 
#2
31.10.2017 19:57:51
смысл не только автоматизации, а вообще смысл теряется, когда Вы пишете макрос реагирующий на не нужное Вам событие
и кто Вам подскажет как поправить этот код если:
а) нет Вашего файла
б) действительно непонятно на что же Вы собираетесь реагировать
в) что делать если в системе зафиксировано ожидаемое событие
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
31.10.2017 20:01:29
Ігор Гончаренко,доброго времени, извиняюсь, лист не прикрепился
 
 
 
#4
31.10.2017 20:02:53
Цитата
alex1210 написал:
...при событии ByVal Target As Range
Нет такого события ))
И кто же Вам мешал в прошлой теме, где Вы получили этот код, сообщить, что данные изменяются при помощи формул?
 
 
 
#5
31.10.2017 20:05:14
Юрий М, доброго времени, дак я ж только учусь)))). Пока не попробуешь не поймешь))))
 
 
 
#6
31.10.2017 20:10:36
оно конечно можно банальным "=" переносить, но я убегаю от формул на рабочих листах, слишком много косяков из за этого
 
 
 
#7
31.10.2017 20:19:08
Цитата
но я убегаю от формул на рабочих листах, слишком много косяков из за этого
зато с макросами все идеально и без вопросов
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
31.10.2017 20:26:33
Ігор Гончаренко, сердечно благодарен)))) Работает же. А как вы это сделали, поясните ,вроде ничего не изменилось в макросе
 
 
 
#9
31.10.2017 20:29:59
Ігор Гончаренко,  Увидел, изначально указываем ячекурезультата действия функции , а потом начальную ячейку
 
 
 
#10
01.11.2017 00:07:42
Господа опять проблема, слово Rega 2 формируется путем сцепки, как быть в этом случае
 
 
 
#11
01.11.2017 00:12:55
Цитата
как быть в этом случае
займитесь чем-нибудь, что Вам понятнее и ближе по духу
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#12
01.11.2017 00:18:37
я занимаюсь тем чем мне интересно
 
 
 
#13
01.11.2017 01:27:28
тут мы похожи
мне уже не интересно в рамках одной темы 2-й раз рассказывать одно и тоже.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#14
01.11.2017 01:34:58
Ігор Гончаренко,ну когда нибудь научусь))) а сейчас пока лучше спросить у знающих
 
 
 
#15
02.11.2017 02:49:58
Ігор Гончаренко,Разобрался)))) в коде
Код
Case "$G$13": .Range("D2") = Cells(2, 2)
 меняем
Код
"$H$13"
на ячейку в которой вводим значение))))))
 
 
 
#16
02.11.2017 09:03:07
поздравляю!
это правильно - один раз понять и всю жизнь пользоваться, чем каждый раз спрашивать у знающих
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Читают тему
Наверх