Difference between revisions of "RU/kb/00000121"

From Wiki
Jump to navigationJump to search
({{OOoC|1}})
(корректировка)
(3 intermediate revisions by the same user not shown)
Line 5: Line 5:
  
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
  
 
<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.
  
В данном примере вычисляется функция
+
{{Documentation/Tip|Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню {{Menu|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}}
{{RU/code|20|Now()}}
 
и она может быть заменена на любую другую.
 
 
 
  
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.

Revision as of 14:04, 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

В данном примере вычисляется функция Now() и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.

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


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

Template:RU/documentation/signyear Template:KbCalcBottom