OpenOffice.lt / Forumai / OpenOffice Calc / Kaip įterpti iškart kelias eilutes?

Kaip įterpti iškart kelias eilutes?

« 
Ankstesnė tema
|
OpenOffice Calc
|
Kita tema
 »

Norėdami dalyvauti forume, turite prisijungti

Autorius Žinutė

Egidijus K

2006-11-08 trečiadienis 10:15:19

Pvz. iš vieno sheet'o nukopijuoju tarkim 14 eilučių ir jas noriu įterpti į kitą sheet'ą. Nėra tokios funkcijos kaip "Insert copied cells". Turiu insertinti 14 tuščių eilučių ir tik tada galiu jas įkelti.
Gal aš klystu? Gal yra tokia funkcija tik užslėpta? Jei nėra, tai gal būtų verta tai padaryti? Ačiū už bet kokius atsakymus.

Vitalis Augunas

Cia as

Pakeitė : Egidijus K

2006-12-18 pirmadienis 20:21:50

Copy kaip įprasta.
Tada atsistoji toje cėlėje, virš kurios norėsi įterpti savo (14 Tavo atvėju) eilutes. Tada spaudi dešinį pelės mygtuką, Paste special > Shift cells pažymi Down. Įterps taip, kaip norėjai.

Homo homini lupus est

Egidijus K

2006-12-28 ketvirtadienis 19:26:10

Labai dėkingas už
Paste special > Shift cells pažymi Down

Rokas M

Rokas M

2025-04-08 antradienis 15:23:42

Jei nori automatizuoti šį procesą, gali pasinaudoti macro (makrokomanda), kuri įterps tiek eilučių, kiek reikia, ir įklijuos duomenis. Štai pavyzdys LibreOffice Calc makro:

Sub InsertAndPaste
Dim oSheet As Object
Dim oDoc As Object
Dim oSel As Object
Dim iRows As Integer https://www.sypsenaok.lt/paslauga/paslaugos/vaiku-dantu-gydymas/

oDoc = ThisComponent
oSheet = oDoc.CurrentController.ActiveSheet
oSel = oDoc.CurrentSelection

' Skaičiuojame kiek eilučių nukopijuota
iRows = oSel.Rows.Count

' Gauti aktyvų langelį
Dim oCell As Object
oCell = oDoc.CurrentController.getActiveCell()
rowPos = oCell.CellAddress.Row

' Įterpti reikalingą kiekį eilučių
oSheet.Rows.insertByIndex(rowPos, iRows)

' Įklijuoti duomenis
oDoc.CurrentController.Paste
End Sub


<>