Перевод макроса на событие Calculate

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

Перевод макроса на событие Calculate (Макросы/Sub)

rotten41

Дата: Четверг, 12.01.2017, 11:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

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

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

Excel 2013

Здравствуйте.
Столкнулся с проблемой.
Не могу перевести макрос с события Change на событие Calculate.

Макрос сам по себе - не сложный. Однако в нем используется параметр Target, считывающий текстовое, а не численное значение ячейки. И воспринимающий считанный текст - как адрес ячейки.

Бился-бился несколько дней. Не получается изменить.
Помогите перевести этот макрос с события Change на событие Calculate.

К сообщению приложен файл: 123-.xls (30.0 Kb)

Ответить

bmv98rus

Дата: Четверг, 12.01.2017, 12:06 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 4147

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

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

Excel 2013/2016

rotten41,

не понятно,

Цитата rotten41, 12.01.2017 в 11:18, в сообщении № 1 ()

Target, считывающий текстовое, а не численное значение ячейки

это объект и у него есть все что е него есть и значение и адрес ииии ... что вы хотели получить ?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

rotten41

Дата: Четверг, 12.01.2017, 12:14 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

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

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

Excel 2013

bmv98rus, нет - это я просто пытался объяснить как макрос работает.
Target - это насколько я понимаю - учет ячейки выделенной в настоящее время.

В общем - мне нужно, просто чтобы тот же самый макрос - работал по событию Calculate, вместо Change.

Чтобы не надо было каждый раз щелкать по желтой ячейке и вводить лично - другой адрес (как при событии Change).
А вместо этого - чтобы при любом изменении желтой ячейки (например если желтая ячейка - ссылается на значение какой-то другой ячейки) - также менял бы соседние оранжевые ячейки.
(Ну при событии Kалькулейт - этот макрос будет срабатывать вообще при любом вычислении на листе)

Сообщение отредактировал rotten41 - Четверг, 12.01.2017, 12:17

Ответить

Pelena

Дата: Четверг, 12.01.2017, 12:18 | Сообщение № 4

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

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

Сообщений: 19521

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

Замечаний: ±

Excel 365 & Mac Excel

Может, так
[vba]

Код

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    [i2] = Range([H2].Value).Left
    [j2] = Range([H2].Value).Top
    Application.EnableEvents = True
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

rotten41

Дата: Четверг, 12.01.2017, 12:24 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

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

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

Excel 2013

Pelena, да - похоже это то, что нужно.
Спасибо.

Ответить

Перевод макроса на событие Calculate (Макросы/Sub)

Страница 1 из 1
1