Difference between revisions of "RU/kb/00000121"
From Wiki
Jump to navigationJump to search (Основной текст) |
({{OOoC|1}}) |
||
| Line 1: | Line 1: | ||
| − | {{DISPLAYTITLE:База Знаний: | + | {{DISPLAYTITLE:База Знаний: {{OOoC|1}}. Запись результата работы макроса в текущую ячейку}} |
| − | [[RU/kb/examples_of_calculations|База Знаний: | + | [[RU/kb/examples_of_calculations|База Знаний: {{OOoC|1}}. Примеры вычислений]] |
__NOTOC__ | __NOTOC__ | ||
Revision as of 12:16, 19 August 2010
База Знаний: 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 может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
