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

[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]

Макрос в 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, спасибо, выручил!
Макрос работает.