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