Перенести макрос из VB в OO Basic

Автор 1van, 11 марта 2016, 14:25

0 Пользователи и 1 гость просматривают эту тему.

1van

Макрос в Exel выполняет следующую функцию: при нажатии назначенного сочетания клавиш увеличивает значение заданной ячейки на 1.
Листинг в VB:
Sub Макрос2()
    i = Worksheets("Лист1").Cells(1, 2)
    i = i + 1
    Worksheets("Лист1").Cells(1, 2) = i
End Sub


Это необходимо для решения задачи по автоматизации регистрации двигательной активности лабораторных крыс. Для регистрации 20 - 40 животных использую контроллер клавиатуры и под Виндой уперся в невозможность отключения повторения при нажатой клавише.

Как этот макрос будет выглядеть в OO Basic?

rami

Цитата: 1van от 11 марта 2016, 14:25
Макрос в Exel выполняет следующую функцию: при нажатии назначенного сочетания клавиш увеличивает значение заданной ячейки на 1.
Листинг в VB:
Sub Макрос2()
    i = Worksheets("Лист1").Cells(1, 2)
    i = i + 1
    Worksheets("Лист1").Cells(1, 2) = i
End Sub


Это необходимо для решения задачи по автоматизации регистрации двигательной активности лабораторных крыс. Для регистрации 20 - 40 животных использую контроллер клавиатуры и под Виндой уперся в невозможность отключения повторения при нажатой клавише.

Как этот макрос будет выглядеть в OO Basic
Макрос будет выглядеть так:Sub Macros2() 'Имена функций, процедур и переменных должны быть написаны латиницей
oCell=ThisComponent.Sheets(0).getCellRangeByName("B1")
oCell.setValue(oCell.Value+1)
End Sub

1van

rami, спасибо, выручил!
Макрос работает.