Difference between revisions of "RU/kb/00000121"
From Apache OpenOffice Wiki
m |
(Про формат) |
||
Line 21: | Line 21: | ||
В данном примере вычисляется функция | В данном примере вычисляется функция | ||
{{RU/code|20|Now()}} | {{RU/code|20|Now()}} | ||
− | и она может быть заменена на любую другую. | + | и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41. |
+ | |||
+ | Не беда, если под рукой нет справочника кодов других форматов. Их можно "подсмотреть", записав макрос форматирования ячейки. | ||
Revision as of 13:06, 19 August 2010
База Знаний: {{#if: 1 |Calc|Apache OpenOffice 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.
Не беда, если под рукой нет справочника кодов других форматов. Их можно "подсмотреть", записав макрос форматирования ячейки.
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.