Здравствуйте!
Есть папка с книгами. В книге несколько листов. Название каждого листа начинается или с "яблоки", или с "Слива", или с "Вишня" . И есть три макроса, каждый из которых предназначен для определенного листа. Вернее для листа с определенным текстом в начале имени листа.
Прошу помочь макросом, который на каждом листе в каждой книге папки запустить соответствующий макрос .
Есть папка с книгами. В книге несколько листов. Название каждого листа начинается или с "яблоки", или с "Слива", или с "Вишня" . И есть три макроса, каждый из которых предназначен для определенного листа. Вернее для листа с определенным текстом в начале имени листа.
Прошу помочь макросом, который на каждом листе в каждой книге папки запустить соответствующий макрос .
Код |
---|
Sub Макрос_A() 'Если название листа начинается с "яблоки", 'то запускаем этот макрос Range("A1").Select With Selection.Interior .ThemeColor = xlThemeColorAccent2 .TintAndShade = 0.399975585192419 End With End Sub Sub Макрос_B() 'Если название листа начинается с "Слива", 'то запускаем этот макрос Range("A1").Select With Selection.Interior .ThemeColor = xlThemeColorAccent3 .TintAndShade = 0.399975585192419 End With End Sub Sub Макрос_C() 'Если название листа начинается с "Вишня", 'то запускаем этот макрос Range("A1").Select With Selection.Interior .ThemeColor = xlThemeColorAccent4 .TintAndShade = 0.399975585192419 End With End Sub |