Difference between revisions of "RU/kb/00000121"

From Apache OpenOffice Wiki
< RU‎ | kb
Jump to: navigation, search
(Про формат)
m
Line 5: Line 5:
  
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
В случае возникновения необходимости записи в текущую ячейку результатов работы макроса, можно воспользоваться следующим примером:
 
  
 
<source lang="oobas">
 
<source lang="oobas">
Line 17: Line 16:
 
End Sub
 
End Sub
 
</source>
 
</source>
 
  
 
В данном примере вычисляется функция
 
В данном примере вычисляется функция
Line 23: Line 21:
 
и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.  
 
и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.  
  
Не беда, если под рукой нет справочника кодов других форматов. Их можно "подсмотреть", записав макрос форматирования ячейки.
+
{{Documentation/Tip|Не беда, если под рукой нет справочника кодов других форматов. Их можно "подсмотреть", записав макрос форматирования ячейки.}}
 
+
  
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
 
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.

Revision as of 13:17, 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

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

Template:Documentation/Tip

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

Template:RU/documentation/signyear Template:KbCalcBottom

Personal tools