Добрый день! Помогите, пожалуйста, с решением данного вопроса.
Есть 2 макроса:
1 - создает кнопку на листе с "ссылкой" на другой макрос (Knopka);
2 - окрашиевает заданные ячейки в красный цвет, если пустая или 0 (Zalivka).
Проблема состоит в следующем - как "заменить" ссылку на макрос кодом, чтобы в доступных макросах был только 1.
Вот коды этих макросов:
Решением не является "скопируйте оба макрос в книгу и все будет работать", так как эти 2 макроса являются лишь элементами огромного макроса создания шаблона для анализа информации. То есть по уровню они находятся на 2 и 3 этапе... Кроме того, макрос окраски по условию применяется только по нажатию кнопки (этап 2) пользователем.
Есть 2 макроса:
1 - создает кнопку на листе с "ссылкой" на другой макрос (Knopka);
2 - окрашиевает заданные ячейки в красный цвет, если пустая или 0 (Zalivka).
Проблема состоит в следующем - как "заменить" ссылку на макрос кодом, чтобы в доступных макросах был только 1.
Вот коды этих макросов:
Код |
---|
Sub Knopka() ' ' Knopka ?????? ' ' ActiveSheet.Buttons.Add(200.25, 97.5, 89.25, 27).Select Selection.OnAction = "Zalivka" Selection.Characters.Text = "GO" With Selection.Characters(Start:=1, Length:=17).Font .Name = "Calibri" .FontStyle = "Bold" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With Range("G10").Select End Sub |
Код |
---|
Sub Zalivka() ' ' Zalivka ?????? ' ' Range("B15:B50").Select Range("B15:B50,B60:B95").Select Range("B60").Activate Range("B15:B50,B60:B95,B106:B141").Select Range("B106").Activate Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=0" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub |