Difference between revisions of "RU/kb/00000121"

From Wiki
Jump to navigationJump to search
(Основной текст)
 
 
(16 intermediate revisions by 3 users not shown)
Line 1: Line 1:
{{DISPLAYTITLE:База Знаний: Calc. Запись результата работы макроса в текущую ячейку}}
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. </noinclude>Запись результата работы макроса в текущую ячейку<noinclude>}}</noinclude><section end=title />
[[RU/kb/examples_of_calculations|База Знаний: Calc. Примеры вычислений]]
+
{{BreadCrumbL10n|RU/kb/module/calc/examples_of_calculations}}
 
__NOTOC__
 
__NOTOC__
  
  
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
  
 
<source lang="oobas">
 
<source lang="oobas">
 
Sub calcWriteTime
 
Sub calcWriteTime
  Dim SelectedItem
+
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
Line 18: Line 17:
 
</source>
 
</source>
  
 +
В данном примере вычисляется функция '''Now()''' и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.
  
В данном примере вычисляется функция
+
{{Tip|Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню {{Menu|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}}
{{RU/code|20|Now()}}
 
и она может быть заменена на любую другую.
 
 
 
  
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
  
{{RU/documentation/signyear|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 может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.










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