Miten tehdä makro, joka kopioi nimiluettelosta (välilehdeltä taulukko1) halutut tiedot uuteen (taulukko2) välilehteen.
[url]http://aijaa.com/Q7N9tc[/url]
Välilehdellä (taulukko2) makron tulisi järjestellä rivin nimi, osoite sekä postinumerotiedot alekkain, kuten kuvassa.
[url]http://aijaa.com/eRm2SK[/url]
Tein makron neljästä ensimmäisestä osoitetiedosta (kopioimalla yksitellen jokaisen solun toidelle välilehdelle), ja makro toimii vain neljään ensimmäiseen osoitetietoon. Miten siis saisi jatkettua, että makro toistaisi kaikki haluamani tai tietyn määrän?
[url]http://aijaa.com/Q7N9tc[/url]
Välilehdellä (taulukko2) makron tulisi järjestellä rivin nimi, osoite sekä postinumerotiedot alekkain, kuten kuvassa.
[url]http://aijaa.com/eRm2SK[/url]
Tein makron neljästä ensimmäisestä osoitetiedosta (kopioimalla yksitellen jokaisen solun toidelle välilehdelle), ja makro toimii vain neljään ensimmäiseen osoitetietoon. Miten siis saisi jatkettua, että makro toistaisi kaikki haluamani tai tietyn määrän?
Vastaukset 1
Vanhimmat
Pakkohan tähän on jotain vastata, kun on nähty noin paljon vaivaa, että on selkeät kuvat kysymyksessä.
Yleisesti
Hyvä tietolähde Basic-ohjelmointiin OpenOfficessa on Andrew Pitonyak:
http://www.pitonyak.org/oo.php
Erityisesti tämä tiedosto:
http://www.pitonyak.org/AndrewMacro.pdf
Mitä itse ongelmaan tulee, niin siinä on useita monimutkaisuutta lisääviä tekijöitä, kuten eri taulukkolehden käyttö ja lopullisen asettelun kaksipalstaisuus.
Testimielessä kokeilin makronauhoittaa kahden rivin (kolmen solun verran) kopiointia kerrallaan taulukosta1 taulukko2-lehdelle, jossa Liitä määräten -toiminossa valittiin Transponoi. Tämä ratkaiseen kaksipalstaisuuden kohtalaisesti, jos tarve on valita vain kolmelta ensimmäiseltä sarakkeelta.
Esimerkiksi kohdistuskoodi:
rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$C$9"
Tuossa tarvitaan molemmissa taulukoissa erikseen jollain silmukkalaskurilla (?) muutettavaksi, jotenkin näin:
args9(0).Value = "$C$" & STR(kohta2)
kohta2 = kohta2 5
Tässä siis oletetaan, että viiden rivin välein tulee uudet tiedot taulukko2:lle. long muuttuja kohta2 alustetaan aloitusriviksi.
Ei sillä, että nauhoitettu koodi olisi kaunista, mutta API-koodia pitäisi jostain vähän luntata jne.
Jospa tuosta sait ideaa?