Difference between revisions of "RU/kb/00000121"

From Wiki
Jump to navigationJump to search
(BreadCrumbL10n)
(Корректировка кода)
Line 1: Line 1:
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: </noinclude>{{OOoC|1}}. Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title />
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. </noinclude>Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title />
 
{{BreadCrumbL10n|RU/kb/module/calc/examples_of_calculations}}
 
{{BreadCrumbL10n|RU/kb/module/calc/examples_of_calculations}}
 
__NOTOC__
 
__NOTOC__

Revision as of 18:23, 21 January 2011


В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:

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.

Tip.png Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню Сервис → Макросы → Записать макрос, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.


Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.

Template:RUsignyear






К началу страницы