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

383

Ää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. Kumpi teki aloitteen?

      😃 häh
      Ikävä
      109
      4236

    2. Onko kaivattusi ulkoisesti

      paremman vai huonomman näköinen kuin exäsi? 🪤
      Ikävä
      78
      3476

    3. Oletko koskaan stalkannut kaivattuasi?

      Jos olet, miten olet stalkannut? Jäitkö kiinni? Onko hän stalkannut sinua? Jos on, miten suhtauduit?
      Ikävä
      80
      3292

    4. Karhuryhmä

      Kellään tarkempaa tietoa miksi ja missä karhuryhmä ollut? Perheväkivaltaa vai huumeperintää kenties taas?
      Jämsä
      24
      3199

    5. Just alkoi ottamaan päähän

      Miten voikin mennä näin, että koko päivän haluaa vain nähdä toisen ja lähelle. Sitten aivan salamana mieleen tulee kaikk
      Ikävä
      22
      3142

    6. Mitä kaikkea sä

      Olisit valmis tekeen mun eteen vielä? Vai oletko mitään?
      Ikävä
      72
      2896

    7. "Mielipide: Äärivasemmiston uhka on otettava vakavasti"

      Demokratia näyttäisi olevan Halla-aholle enemmänkin välttämätön paha kuin tavoiteltava asia. Väkivallan ihannointi ja m
      Maailman menoa
      45
      2770

    8. Raisionkaaren koira hyökkäys

      Taas nähtiin että koiriin ei voi luottaa. Eilen illalla vapaana ollut koira hyökkäsi Raisionkaarella kolmen henkilön kim
      Raisio
      61
      2721

    9. Tapa jolla kohtelit minua viimeksi miellytti erityisesti

      Osaat huomioida kauniisti ja katsot aina tilanteita yhteisen hyvän kannalta. Sitä arvostan erityisesti.
      Ikävä
      85
      2539

    10. Ei me saada toisiamme

      Ei vaan saada. On vain haaveita ja uunelmia
      Ikävä
      33
      2384
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt