Kuinka saan openofficessa tehtyä makron joka kopioi taulukosta 1, rivin 1, taulukkoon 2 seuraavalle tyhjälle riville. Olen kyllä onnistunut joko saamaan koko taulukon täyteen tai sitten kopioitua yhdelle ja samalle riville. Lisäksi taulukkoa 2 ei tulisi pystyä muokkaamaan muuten.
Makron tekeminen
Makrot
1
397
Vastaukset
- 3dots
sub kopioi
arkki1="Sheet1"
arkki2="Sheet2"
dim Controller as object
dim document as object
dim dispatcher as object
Controller = ThisComponent.getcurrentController
document = Controller.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Sheets = ThisComponent.Sheets
Sheet1 = Sheets.getByName(arkki1)
Controller.setActiveSheet(Sheet1)
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
Sheet2 = Sheets.getByName(arkki2)
Controller.setActiveSheet(Sheet2)
Sheet2.unprotect("")
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args7())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args7())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
Sheet2.protect("")
end sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP haluaa LISÄÄ veroja bensa-autoille!
Sdp:n vaihtoehtobudjetti esittää polttomoottoriautoille lisää veroja Sdp esittää tuoreessa vaihtoehtobudjetissaan verot14817338Riikka se jytkytti BKT:stä nyt 0,3 prosenttia pois
Ja vain kolmessa kuukaudessa! Vuositasollahan tuo tarkoittaa reilun prosentin pudotusta. Pärjäisi varmaan lasketteluss449983Vasemmistoaate on aatteista jaloin
Kaikki saavat ja kukaan ei jää ilman. Kuka tuollaista voisi vastustaa?325822Antti Lindtman kiitti valtiovarainministeri Purraa
Ministeri Purra kertoi ottavasa vastuun EU:n alijäämämenettelyyn joutumisesta. Hän myös sanoi tietävänsä, että Lindtman463180Suomalaisten enemmistö on (ateisteja / fiksuja / sosialisteja)
Tai jokin noiden yhdistelmä, koska S-ryhmän markkinaosuus päivittäistavarakaupasta on yli 50 prosenttia.142870Brittiläinen vasemmistolehti: Sanna Marin oli vihdoin rehellinen
Nyt tulee pahasti lunta tupaan Seiskan tähtitytölle. Ex-pääministerin kirjaa arvostellaan latteuksista ja itsekehusta.252792"Purra löylytti oppositiota", sanoi naistoimittaja Pöllöraadissa
Kyllä, Purra tekee juuri sitä työtä mitä hänen tuossa asemassa pitää tehdä, hän antaa oppositiolle takaisin samalla mita552658Henkilökohtaisia paljastuksia Dubaista - Kohujulkkis Sofia Belorf on äitipuoli ja puoliso!
Tiesitkö, että Sofia on äitipuoli ja rakastava puoliso? Sofia Belorf saa oman sarjan, jossa seurataan hänen Bling Bling762553- 1331796
Alexander C. G. riisti demari-Veijolta arvonimen
"Stubb myönsi 66 arvonimeä ja peruutti yhden arvonimen. Presidentti Tarja Halonen myönsi Baltzarille kulttuurineuvoksen351792