Помогите, пожалуйста, объединить макросы в исходном тексте на одном листе, что бы работали оба.
Скрытый текст
макрос1:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L21")) Is Nothing Then
If Target = 13 Then
ОтпрН_с_13_пути
End If
If Target = 11 Then
ОтпрН_с_11_пути
End If
If Target = 9 Then
ОтпрН_с_9_пути
End If
If Target = 7 Then
ОтпрН_с_7_пути
End If
If Target = 5 Then
ОтпрН_с_5_пути
End If
If Target = 3 Then
ОтпрН_с_3_пути
End If
If Target = 1 Then
ОтпрН_с_1_пути
End If
If Target = 2 Then
ОтпрН_с_2_пути
End If
If Target = 4 Then
ОтпрН_с_4_пути
End If
End If
End Sub
Код
Макрос2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L22")) Is Nothing Then
If Target = 13 Then
ОтпрН_с_13_пути
End If
If Target = 11 Then
ОтпрН_с_11_пути
End If
If Target = 9 Then
ОтпрН_с_9_пути
End If
If Target = 7 Then
ОтпрН_с_7_пути
End If
If Target = 5 Then
ОтпрН_с_5_пути
End If
If Target = 3 Then
ОтпрН_с_3_пути
End If
If Target = 1 Then
ОтпрН_с_1_пути
End If
If Target = 2 Then
ОтпрН_с_2_пути
End If
If Target = 4 Then
ОтпрН_с_4_пути
End If
End If
End Sub
Каждый макрос по отдельности на одном листе работает. На самом деле нужно добиться исполнения одних и тех же макросов вводом значений в разные ячейки. Файл:
Изменено: - 01.11.2013 22:27:06
Изменение цвета фигур в зависимости от времени
Пользователь
Сообщений: Регистрация: 08.09.2013
08.09.2013 22:04:19
Всем здравствуйте. Вопрос у меня такой:возможна ли реализация изменения цвета, допустим, трех фигур, в зависимости от пройденного времени? Допустим, есть три фигуры (круга) серого цвета. Слева направо нужно менять их цвет. Первый круг надо сделать красным, затем по прошествии заданного интервала следующий круг должен стать красным, а предыдущий вернуться в серый, затем последний круг становится красным, а второй возвращается в серый.
