Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.05.2008, 18:34   #1
Град
Пользователь
 
Регистрация: 07.04.2008
Сообщений: 36
По умолчанию как заставить работать макрос при определенном значении ячейки?

Друзья, помогите!
у меня ячейка на листе регулярно обновляется и при достижении определенного числа (например 1) нужно что бы включился макрос.
Я сделал что он начинает у меня работать, но зацыкливается и Excel невозможно выключить.
Что делать?
Спасибо
Град вне форума
Старый 29.05.2008, 18:40   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Обьявить глобальную переменную. Назовем ее флаг.
Отслеживать состояние флага (поднят/опущен) и в зависимости от состояния сбрасывать работу макроса.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 30.05.2008, 12:39   #3
Град
Пользователь
 
Регистрация: 07.04.2008
Сообщений: 36
По умолчанию

Спасибо за ответ, но только я новичок в этом и пойму только на примерах.
Вложил свою проблему.
Буду благодарен если поможете.
Вложения
Тип файла: rar ВремяСтартСтоп одна кнопка.rar (15.2 Кб, 30 просмотров)
Град вне форума
Старый 30.05.2008, 13:22   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

в процедуре
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
полно строк типа: "Чего-тоТУТ".Select
такая строка переносит фокус на другую ячейку, соответственно случается событие "SelectionChange", автоматически запускается эта же процедура, не закончив еще обработку предыдущущего вызова.

поубирать от туда "Чего-тоТУТ".Select и все станет на свои места.

Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("H1").Value = "1" Then
    Range("I7").FormulaR1C1 = "=100+15+15"
    Range("I7").Copy
    Range("I7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("H1").FormulaR1C1 = "0"
    Range("H1").FormulaR1C1 = "=IF(COUNTIF(C[8],RC[-2])=1,""1"",""0"")"
    Else
    Range("A1").Value = Time
  End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 30.05.2008, 15:59   #5
Град
Пользователь
 
Регистрация: 07.04.2008
Сообщений: 36
По умолчанию

Спасибо, но ни чего не происходит. т.е макрос не запускается(
Град вне форума
Старый 30.05.2008, 16:06   #6
Град
Пользователь
 
Регистрация: 07.04.2008
Сообщений: 36
По умолчанию

Получилось!)
только я поместил макрос в прцедуру
Private Sub Worksheet_Change(ByVal Target As Range)
Единсьвенно, что подтормаживает
Спасибо!!
Град вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заставить работать Winlogon slm Общие вопросы Delphi 3 18.09.2008 16:47
Как заставить макрос работай автоматически при внесении данных ? artfunk Microsoft Office Excel 9 31.08.2008 20:01
Как заставить работать php? yourself Помощь студентам 9 20.05.2008 08:08
Как заставить работать dll ? Volkogriz Общие вопросы Delphi 10 13.12.2007 10:24
Заставить работать Tservise до выключения Windows Alter Общие вопросы Delphi 10 09.12.2007 21:39