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 | |
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|Сервис|Макросы|Записать макрос}}, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса.}} | |
| − | {{ | ||
| − | |||
| − | |||
Вызов функции макроса '''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.
 |
Если требуется использовать иной формат ячейки, но его код неизвестен, тогда рекомендуется воспользоваться макрорекордером через меню Сервис → Макросы → Записать макрос, записав макрос форматирования ячейки. Искомый код будет записан в тексте макроса. |
Вызов функции макроса calcWriteTime может быть назначен на любую комбинацию клавиш либо на кнопку на панели инструментов.
