Difference between revisions of "RU/kb/00000121"

From Wiki
Jump to navigationJump to search
(RUsignyear)
 
(10 intermediate revisions by 3 users not shown)
Line 1: Line 1:
{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. Запись результата работы макроса в текущую ячейку}}
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. </noinclude>Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title />
[[RU/kb/examples_of_calculations|База Знаний: {{OOoC|1}}. Примеры вычислений]]
+
{{BreadCrumbL10n|RU/kb/module/calc/examples_of_calculations}}
 
__NOTOC__
 
__NOTOC__
  
Line 19: Line 19:
 
В данном примере вычисляется функция '''Now()''' и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.  
 
В данном примере вычисляется функция '''Now()''' и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.  
  
{{Documentation/Tip|Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню {{Menu|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}}
+
{{Tip|Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню {{Menu|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}}
  
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
  
{{RUsignyear|Bormant|S. Bormant|2010}}
+
{{SignYear|Sancho||2010}}
{{KbCalcBottom}}
+
{{RUkbCalcBottom}}

Latest revision as of 10:29, 6 October 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 может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.










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