Difference between revisions of "RU/kb/00000121"
From Apache OpenOffice Wiki
({{OOoC|1}}) |
m |
||
Line 9: | Line 9: | ||
<source lang="oobas"> | <source lang="oobas"> | ||
Sub calcWriteTime | Sub calcWriteTime | ||
− | + | Dim SelectedItem | |
SelectedItem = ThisComponent.CurrentSelection | SelectedItem = ThisComponent.CurrentSelection | ||
If SelectedItem.supportsService("com.sun.star.sheet.SheetCell") Then | If SelectedItem.supportsService("com.sun.star.sheet.SheetCell") Then |
Revision as of 13:01, 19 August 2010
База Знаний: {{#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
и она может быть заменена на любую другую.
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.