Как сделать так чтобы в таблице выделялись повторные ячейки openoffice

Как сделать так чтобы в таблице выделялись повторные ячейки openoffice

Как сделать так чтобы в таблице выделялись повторные ячейки openoffice


Как сделать так чтобы в таблице выделялись повторные ячейки openoffice
Как сделать так чтобы в таблице выделялись повторные ячейки openoffice

Цитата: Rindroid от 22 Март 2015, 11:47

Нет такого пункта меню, офис новейший.

Ну нет, так будет КрутойНазначьте клавиши или иконки на панели инструментов для макросов:

Код:

Sub SdvigVniz   Dim oVC, oCell, x%, y%, z%
oVC=ThisComponent.getCurrentController().getViewCursor()
If IsEmpty(oVC.Cell) Or IsEmpty(oVC.TextTable) Then Exit Sub
x=asc(oVC.Cell.CellName)-65
y=val(mid(oVC.Cell.CellName,2))-1
z=UBound(oVC.TextTable.DataArray)
oCell=oVC.TextTable.getCellRangeByPosition(x,y,x,z).DataArray
oVC.Cell.String=""
oVC.TextTable.getRows().insertByIndex(z+1,1)
oVC.TextTable.getCellRangeByPosition(x,y+1,x,z+1).DataArray=oCell
End Sub
————————————————————————————————————
Sub SdvigVverx   Dim oVC, oCell, x%, y%, z%
oVC=ThisComponent.getCurrentController().getViewCursor()
If IsEmpty(oVC.Cell) Or IsEmpty(oVC.TextTable) Then Exit Sub
x=asc(oVC.Cell.CellName)-65
y=val(mid(oVC.Cell.CellName,2))-1
z=UBound(oVC.TextTable.DataArray)
oCell=oVC.TextTable.getCellRangeByPosition(x,y+1,x,z).DataArray
oVC.TextTable.getRows().removeByIndex(z,1)
oVC.TextTable.getCellRangeByPosition(x,y,x,z-1).DataArray=oCell
End Sub

Ставите курсор в нужную ячейку (выделять не обязательно) , выполняете макрос SdvigVniz , чтобы вернуть всё обратно выполняете макрос SdvigVverx
Ячейку можно выбирать в любом столбце, количество столбцов максимум 26 Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice Как сделать так чтобы в таблице выделялись повторные ячейки openoffice

Похожие новости:

Прикольные поздравления сценки с днем рождения женщине 35 лет



Структурной схемы технологического процесса ремонта



Как украсить шампанское краской на свадьбу своими руками



Нарисованная схема периодизации эволюции систем специального образования



Как сделать автомат калашникова ак-47 из дерева в натуральный размер