как заставить работать макрос при определенном значении ячейки? - Microsoft Office Excel

Град · 29.05.2008, 18:34

Друзья, помогите!
у меня ячейка на листе регулярно обновляется и при достижении определенного числа (например 1) нужно что бы включился макрос.
Я сделал что он начинает у меня работать, но зацыкливается и Excel невозможно выключить.
Что делать?
Спасибо

IgorGO · 29.05.2008, 18:40

Обьявить глобальную переменную. Назовем ее флаг.
Отслеживать состояние флага (поднят/опущен) и в зависимости от состояния сбрасывать работу макроса.

Град · 30.05.2008, 12:39

Спасибо за ответ, но только я новичок в этом и пойму только на примерах.
Вложил свою проблему.
Буду благодарен если поможете.

IgorGO · 30.05.2008, 13:22

в процедуре
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

Град · 30.05.2008, 15:59

Спасибо, но ни чего не происходит. т.е макрос не запускается(

Град · 30.05.2008, 16:06

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

29.05.2008, 18:34	#1
Град Пользователь Регистрация: 07.04.2008 Сообщений: 36	как заставить работать макрос при определенном значении ячейки? Друзья, помогите! у меня ячейка на листе регулярно обновляется и при достижении определенного числа (например 1) нужно что бы включился макрос. Я сделал что он начинает у меня работать, но зацыкливается и Excel невозможно выключить. Что делать? Спасибо

29.05.2008, 18:40	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Обьявить глобальную переменную. Назовем ее флаг. Отслеживать состояние флага (поднят/опущен) и в зависимости от состояния сбрасывать работу макроса. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

30.05.2008, 13:22	#4
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` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Заставить работать 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

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) Единсьвенно, что подтормаживает Спасибо!!