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

442

Äänestä

    Vastaukset 1

    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. Poliisi yritti murhata mopopojan

      Nyt menee kissalan poikien touhu liian pitkälle! https://www.is.fi/kotimaa/art-2000012193221.html Karu video mopomiiti
      Maailman menoa
      701
      3358

    2. Käviskö tällainen suhde

      Tutustutaan, fyysistä kontaktia, mutta ensijaisesti tarkoituksena ei ole aloittaa mitään virallista tai rikkoa mitään? E
      Ikävä
      72
      1073

    3. Raiskausyritys

      Eilen laajallakankaalla lenkkipolulla.
      Kajaani
      44
      1009

    4. Mihin kiinnitit ensimmäisenä

      huomiota kaivatussasi?
      Ikävä
      70
      845

    5. Poutalan onnettomuus

      https://www.mtvuutiset.fi/artikkeli/ministeri-mika-poutala-vakavassa-onnettomuudessa/9375980 Kumma kun jutussa ei manit
      Maailman menoa
      79
      722

    6. Niin kauan tätä

      Onko vuotesi menneet hukkaan
      Ikävä
      94
      687

    7. Olen pahoillani

      Olen mokannut pahasti ja pilannut sinun ja monen muun ihmisen maineen. Anteeksi. Muutan toiselle paikkakunnalle. Hyvästi
      Ikävä
      50
      670

    8. Missä on Sofia Virta? Loistaa poissaolollaan Erikoisjoukot uudelta kaudelta

      Vihreiden puheenjohtaja, kansanedustaja Sofia Virta pääsi otsikoihin, kun tieto hänen osallistumisestaan Erikoisjoukot-k
      Kotimaiset julkkisjuorut
      29
      605

    9. Koska olet ihastunut minuun

      Kysymys sulle. Oma vastaus, tänä vuonna. ❤️
      Ikävä
      47
      584

    10. Taisin vihdoin saada sinut ulos luuristani stalkkeri

      Et selvästikään ole niin pätevä kuin luulet. Tai minä niin huono.
      Ikävä
      90
      554
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt