Выполнение макросов по результатам значений ячеек

[dimmon777]

День добрый! Помогите, нужен макрос, который бы запускал два других макроса исходя из присвоенных значений ячейки А1 ("ТЕКСТ1" или "ТЕКСТ2"). Например: если значение в ячейке А1-"ТЕКСТ1", следовательно выполняется Макрос1, а если "ТЕКСТ2", то Макрос2. Заранее спасибо!

[JohnSUN]

Макрос1 и Макрос2 - это процедуры или функции?

[rami]

День добрый! Помогите, нужен макрос, который бы запускал два других макроса исходя из присвоенных значений ячейки А1 ("ТЕКСТ1" или "ТЕКСТ2"). Например: если значение в ячейке А1-"ТЕКСТ1", следовательно выполняется Макрос1, а если "ТЕКСТ2", то Макрос2. Заранее спасибо!

Код Выделить Развернуть

Sub abCase
s=ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("A1").String
Select Case s
Case "ТЕКСТ1"
Macros1
Case "ТЕКСТ2"
Macros2
End Select
End Sub

Sub Macros1
End Sub

Sub Macros2
End Sub

[dimmon777]

rami

Очередное спасибо, помогло!