База Знаний: 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 может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.