База Знаний: Calc. Запись результата работы макроса в текущую ячейку

From Wiki
Revision as of 12:16, 19 August 2010 by Sancho (talk | contribs) ({{OOoC|1}})
Jump to navigationJump to search

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

Template:RU/documentation/signyear Template:KbCalcBottom