База Знаний: {{#if: 1 |Calc|Apache OpenOffice Calc}}. Запись результата работы макроса в текущую ячейку
From Apache OpenOffice Wiki
База Знаний: {{#if: 1 |Calc|Apache OpenOffice 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
и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.
Не беда, если под рукой нет справочника кодов других форматов. Их можно "подсмотреть", записав макрос форматирования ячейки.
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.