База Знаний: Calc. Запись результата работы макроса в текущую ячейку
From Apache OpenOffice Wiki
База Знаний: Calc. Примеры вычислений
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
Sub calcWriteTime Dim SelectedItem SelectedItem = ThisComponent.CurrentSelection If SelectedItem.supportsService("com.sun.star.sheet.SheetCell") Then SelectedItem.NumberFormat = 51 SelectedItem.Value = Now() End if End Sub
В данном примере вычисляется функция
Template:RU/code
и она может быть заменена на любую другую.
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.