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

261

Ää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. Kyllä suoraan

      Sanottua vi.tu.taa. Miksi en toiminut silloin. Sama kun olisi heittänyt smagardin menemään.
      Ikävä
      69
      1970

    2. Voisitko nainen kertoa mulle

      Tykkäätkö sä musta, vai unohdanko koko jutun? Mä en viitti tulla sinne enää, ettei mua pidetä jonain vainoajana, ku sun
      Suhteet
      164
      1539

    3. Perustele miksi hän ei

      Ole sopiva sinulle
      Ikävä
      140
      1387

    4. Oisko jii-miehelle jollakin asiaa

      Jos vaikka on jäänyt joku asia sydämen päälle.
      Ikävä
      90
      1308

    5. Miehelle naiselta

      Ajattelen sinua aina, en jaksa enää. Ja luulin, että pidit minusta, mutta silloin olisit tehnyt jotain. Mutta sinä et te
      Ikävä
      49
      1240

    6. Iäkkäät asiakkaat ärsyttävät kaupoissa

      Miksei Kela järjestä palvelua, jolla toimittaisivat ostokset suoraan ikäihmisille? https://www.is.fi/taloussanomat/art-
      Maailman menoa
      273
      1047

    7. Mikä oli nainen

      Paras yhteinen hetkemme niistä pienistä ja vähäisistä.
      Ikävä
      75
      992

    8. Miksi sinulla, nainen

      On niin negatiivinen asenne minuun ja yleensäkin negatiivinen käsitys?
      Ikävä
      110
      957

    9. Olen syvästi masentunut

      En oikein voi puhua tästä kenenkään kanssa. Sillä tavalla että toinen ymmärtäisi sen, miten huonosti voin. Ja se että mi
      Tunteet
      118
      954

    10. Nainen, millainen tilanne oli

      kun huomasit ihastuneesi häneen oikein kunnolla. Missä tapahtui ja milloin
      Ikävä
      49
      777
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt