Запуск макроса

[serafim09]

Добрый день!

Во первых поиском пользовался но не нашел тем под мой вопрос:

1. Приведите пример на запуск макроса при появлении в ячейке числа/условия, но на основании результата вычисления формулы. т.е. без непосредственного внесения значения. например: А1= B1+M2, при этом выскакивало сообщение если в A1 появится значение в 2.
2. Как можно запускать макрос используя "флажок" в Excele?


Спасибо заранее!

[motorway]

Private Sub Worksheet_Change(ByVal Target As Range)

If (Mid(Range("A1").Formula, 1, 1) = "=" And Range("A1").Value = 2) Then MsgBox ("2")

End Sub

2) Что за флажок? Просто чекбокс на листе?
Правой кнопкой - "Назначить макрос"

Sub Флажок_Щелчок()

If (ActiveSheet.CheckBoxes(1).Value = 1) Then MsgBox ("A")


End Sub

[SAS888]

1. Можно так:

Private Sub Worksheet_Calculate()
    If [A1] = 2 Then MsgBox "Сообщение"
End Sub

2. Если флажок на форме, то по нужному событию CheckBox, а если на рабочем листе, то смотря какой объект Вы использовали.
Если из панели инструментов "Формы", то см. пост выше. А если из "Элементы управления", то в модуле листа выберите требуемый CheckBox и по событию CheckBox1_Click() пропишите код Вашей процедуры. Либо, включите режим конструктора и в нужном CheckBox через правый клик выберите "Исходный текст".

[serafim09]

Код:


Private Sub Worksheet_Change(ByVal Target As Range)

If (Mid(Range("A1").Formula, 1, 1) = "=" And Range("A1").Value = 2) Then MsgBox ("2")

End Sub

2) Что за флажок? Просто чекбокс на листе?
Правой кнопкой - "Назначить макрос"

Код:


Sub Флажок_Щелчок()

If (ActiveSheet.CheckBoxes(1).Value = 1) Then MsgBox ("A")


End Sub


Спасибо! то что нужно! получилось у меня

[serafim09]

Сообщение от SAS888

1. Можно так:

Private Sub Worksheet_Calculate()
    If [A1] = 2 Then MsgBox "Сообщение"
End Sub

2. Если флажок на форме, то по нужному событию CheckBox, а если на рабочем листе, то смотря какой объект Вы использовали.
Если из панели инструментов "Формы", то см. пост выше. А если из "Элементы управления", то в модуле листа выберите требуемый CheckBox и по событию CheckBox1_Click() пропишите код Вашей процедуры. Либо, включите режим конструктора и в нужном CheckBox через правый клик выберите "Исходный текст".

Спасибо! Все отлично заработало Значит нужно было выбрать Worksheet_Calculate ...а я тупил

[serafim09]

кстати подскажите

Private Sub Worksheet_Calculate()
If Sheets("1").Range("show").Value = False Then

Application.ScreenUpdating = False

Sheets("2").Visible = Hidden

Application.ScreenUpdating = True

End If
If Sheets("1").Range("show").Value = True Then

Application.ScreenUpdating = False

Sheets("2").Visible = True

Application.ScreenUpdating = True

End If
End Sub

Такой макрос прописан в файле, однако как открываю другой файл, так макрос ругается на

If Sheets("1").Range("show").Value = False Then

Как привязать

Private Sub Worksheet_Calculate()

- к конкретному файлу?
а то я так понимаю, он начинает анализировать все файлы открывающиеся

[SAS888]

Пропишите требуемый код не в модуле листа (книги), а в общем программном модуле (макрос с каким-нибудь именем). Затем, по событию Worksheet_Calculate запускайте этот макрос, в котором должны присутствовать ссылки на требуемые книги и листы.

[serafim09]

Сообщение от SAS888

Пропишите требуемый код не в модуле листа (книги), а в общем программном модуле (макрос с каким-нибудь именем). Затем, по событию Worksheet_Calculate запускайте этот макрос, в котором должны присутствовать ссылки на требуемые книги и листы.

Я так и сделал. но все равно ошибка.

[SAS888]

Тогда давайте пример, и подробно опишите, что нужно сделать.

[serafim09]

Сообщение от SAS888

Тогда давайте пример, и подробно опишите, что нужно сделать.

Странно, но сегодня, не ругается макрос ) Спасибо за советы!