Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 23. 5. 2013 15:01:40

Angelzoo
Člen
Registrace: 23. 5. 2013
Příspěvků: 5

calc makro - VYŘEŠENO

Zdravim,

potřeboval bych udělat makro v OpenOffice (Calc), který by přidalo řádek tam kde je zrovna nakliknuto a zkopirovalo do něj řádek nad ním.

Asi to nebude nic super složitýho, ale ja nevim jak na to.

Za každou radu předem dík

Editoval Angelzoo (24. 5. 2013 10:48:16)

Offline

#2 24. 5. 2013 10:06:47

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,435

Re: calc makro - VYŘEŠENO

 
Sub KopirujPredchoziRadek 
Dim oCell As Object 
Dim Doc as Object 
oCell = ThisComponent.CurrentController.getSelection() 
With oCell.RangeAddress 
SH = .Sheet 
SR = .StartRow
End With 
Sheet = ThisComponent.Sheets(SH) 
Doc = ThisComponent
Sheet = Doc.Sheets.getByIndex(SH) 
Sheet = Doc.Sheets(SH) 
Rows = Sheet.getRows() 
Rows.insertByIndex(SR,1)
zkopiruj = doc.Sheets(SH).getCellRangeByPosition(0,SR-1,1023,SR-1)
doc.CurrentController.select(zkopiruj)
obsah = doc.CurrentController.getTransferable()
vloz = doc.Sheets(SH).getCellRangeByPosition(0,SR,1023,SR)
doc.CurrentController.select(vloz)
doc.CurrentController.insertTransferable(obsah)
End Sub 

K tomuhle přiřadit tlačítko, nebo klávesovou zkratku. Jak na to uvádí Dan Sedláček a našel by jste tam i inspiraci v tom smyslu, že by jste si makro sestrojil sám.


Tohle makro "tvrdě" zkopíruje celý předcházející řádek (1024 buněk), vloží 1 nový řádek a do něj vloži ten zkopírovaný. Takže stačí dát kurzor do kterékoliv buňky pod řádek, který chcete okopírovat - spustíte makro - nejlépe klávesovou zkratkou, kterou přiřadíte následujícím postupem :


Nástroje > Přizpůsobit > klávesnice > vybrat makro z OpenOfiice.org (podle toho kde ho máte) klepnout na Klávesovou zkratku (panel vlevo nahoře) + tlačítko "Upravit". Vedle makra se objeví vybraná klávesová zkratka. Nezapomeňte uložit.

Editoval neutr (24. 5. 2013 10:07:54)


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 24. 5. 2013 10:47:39

Angelzoo
Člen
Registrace: 23. 5. 2013
Příspěvků: 5

Re: calc makro - VYŘEŠENO

Super, to je přesně co jsem potřeboval. Díky moc

Offline

Zápatí