Makron tekeminen

Makrot

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.

1

374

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      65
      1453

    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      110
      900

    3. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      58
      751

    4. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      47
      744

    5. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      720

    6. Missä kaikessa olet erilainen

      Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.
      Ikävä
      39
      697

    7. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      71
      671

    8. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      26
      669

    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      41
      657

    10. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      67
      650
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt