Difference between revisions of "RU/kb/00000121"
From Wiki
Jump to navigationJump to search (Path2Category) |
|||
| Line 1: | Line 1: | ||
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: </noinclude>{{OOoC|1}}. Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title /> | <section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: </noinclude>{{OOoC|1}}. Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title /> | ||
| − | {{ | + | {{SecTitle|RU/kb/module/calc/examples_of_calculations}} |
__NOTOC__ | __NOTOC__ | ||
Revision as of 13:50, 13 September 2010
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
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В данном примере вычисляется функция Now() и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.
 |
Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню Сервис → Макросы → Записать макрос, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса. |
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
