Difference between revisions of "RU/kb/00000121"
From Apache OpenOffice Wiki
(Корректировка кода) |
|||
| Line 19: | Line 19: | ||
В данном примере вычисляется функция '''Now()''' и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41. | В данном примере вычисляется функция '''Now()''' и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41. | ||
| − | {{ | + | {{Tip|Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню {{Menu|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}} |
Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов. | Вызов функции макроса '''calcWriteTime''' может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов. | ||
Latest revision as of 09:55, 16 July 2018
< Apache OpenOffice | База знаний | Модули Apache OpenOffice | 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
В данном примере вычисляется функция Now() и она может быть заменена на любую другую. Кроме того, ячейке назначается формат даты "ДД.ММ.ГГГГ ЧЧ:ММ:СС". Если требуется отображать только время "ЧЧ:ММ:СС", используйте код формата 41.
 |
Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню Сервис → Макросы → Записать макрос, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса. |
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
