Запуск макроса Без кнопки

[4anae6]

Добрый вечер.

Хотелось бы узнать как можно запускать макросы автоматически, без кнопки? Нажатием F5 в режиме работы в VBA уже умею. Имеется следующий пример:

Sub SadikShkola()

If Cells(1, 1).Value <= 7 Then
Cells(1, 2).Value = "Sadik"
Else
Cells(1, 2).Value = "Shkola"
End If

End Sub

Заранее спасибо.

[Казанский]

Используйте события листа. Правый клик на ярлычке листа - Исходный текст, вставьте

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
SadikShkola
Application.EnableEvents = True
End Sub

Макрос будет вызываться каждый раз, когда происходит изменение ячеек листа (но не пересчет формул).

[IgorGO]

правой кнопкой по закладке (ярлыку листа с данными) "Исходный текст", вставляете это:

Private Sub Worksheet_Change(ByVal Target as Range)
  if target.address <> "$A$1" then exit sub
  Cells(1, 2).Value = iIf (Cells(1, 1).Value <= 7, "Sadik", "Shkola")
End Sub

[4anae6]

Спасибо за ответы. К сожалению ни один из вариантов не работает. Я не программист и скорее всего просто что-то не так делаю. Как нужный мне программный код будет выглядеть от начала и до конца или как правильно занести туда занести то, что вы мне написвли?

[IgorGO]

у меня приведен полный код, в коде Леши подрузумевается использование и Вашей процедуры. ее можно расположить в том же модуле

[4anae6]

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

[EducatedFool]

Зачем вам макрос?

Вполне достаточно обычной формулы:

  Ячейка: B1      Формула  (стиль A1):   =ЕСЛИ(A1<=7; "Sadik";"Shkola")
                  Формула  (стиль R1C1): =ЕСЛИ(RC[-1]<=7; "Sadik";"Shkola")

[kuklp]

Кросс: http://www.excel-vba.ru/forum/index.php?topic=2036.0

[4anae6]

to IgorGo & Казанский
Спасибо, попробую и так и так

to EducatedFool

Да в самом Экселе я такие штуки умею делать, я просто привел простейший пример. Скрыть строки или столбцы, допустим, так не получится. Интересовала процедура запуска.

to kuklup

Надо было подстраховаться. Я выложил данную тему на 3 первых форумах программистов найденных через поисковик.

[kuklp]

Сообщение от 4anae6

to kuklup

Это я не Вам. Я форумчанам.