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. Ne katseet, ei niitä

      Voi unohtaa. Se, miten molemmat katsoi
      Ikävä
      68
      1102

    2. Miten jotkut kehtaa aikuisiällä kiusata

      Ihmisiä? Eikö se ole aika noloa?
      Ikävä
      140
      869

    3. Mitä haluaisit sanoa hänelle juuri nyt!?

      🤗
      Ikävä
      77
      814

    4. Rydmanin lista lääkkeistä joista poistetaan Kela-korvaus julkisen potilailla

      Rydmanin lista lääkkeistä joista poistetaan Kela-korvaus julkisen potilailla (yksityisen asiakkaille Kela-korvaus jätetä
      Maailman menoa
      423
      741

    5. Onko kaivattusi seksipommi?

      Minun kaivattuni on😅😍
      Ikävä
      38
      668

    6. Mies miksi me ei voida aloittaa salaista suhdetta

      Pakkoko siitä olisi kenellekään kertoa? Voitaisiin nähdä salaa jossain eri paikkakunnalla.
      Ikävä
      72
      624

    7. Salassapito ja kunnan hommat

      Hyryllä alkanut olla ihmeellinen tapa että minä kuulen kunnan tapahtumista kylältä yhden henkilön toimesta. Tiedotusta h
      Hyrynsalmi
      13
      609

    8. Milloin mies aloitetaan

      Joku kiihkeä romanssi tai vakavampi suhde..? En jaksa enää olla yksin. Sä taidat haluta olla yksin.
      Ikävä
      37
      584

    9. Hyvää yötä kivalle miehelle!

      Samasta kylästä! 😊
      Ikävä
      94
      559

    10. En enää mies ikävöi sinua niin paljon

      Jos nyt vain pysyttelisit pois näköpiiristäni vielä kesän yli näiden useiden kuukausien jatkeeksi, niin luulen että kaik
      Ikävä
      55
      543
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt