Komentopainike

Tärkeä juttu

Löytyykö OpenOfficesta komentopainiketta?
Pitäisi seurata alla olevaa ohjetta

Näytä - Työkalurivit - Ohjausobjektit. Valitse sieltä Komentopainike ja piirrä ohueksi ristiksi muuttuneella korsorilla haluttun kohtaan neliö, josta sitten muodostuu se painike. Klikkaa sitä hiiren oikealla ja makrot tulee näkyviin. Kirjoita Private Sub CommandButton1_Click() ja End Sub väliin tuo Range("A1") = Range("C1"). Ja vaikkapa myös ActiveWorkbook.Save, joka tallettaa työkirjasi.
Sitten tätä nappia painamalla hoituu lopputoimet.

http://keskustelu.suomi24.fi/node/9019698

3

853

    Vastaukset 3

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Ohjausobjektit, kuten painike, saadaan Lomakkeen ohjausobjektit -työkalupalkista asiakirjaan. Suunnittelu tila pitää olla käytössä-asennossa ko. palkissa muokattaessa ja poissa käytöstä käytettäessä painiketta.

      Aloittelijan kannattanee nauhoittaa makro ensin vaikkapa uuteen moduuliin Main-nimellä ja sitten liittää se ohjausobjektiin Tapahtumat-välilehdellä. Edellä kuvattu tapaus mennee Suorita-kohdalle.

      VBA-koodi ei ainakaan kaikin osin ole Openoffice.orgin Basicin kanssa yhteensopiva.

      Tässä esimerkkinä nauhoitus, joka tekee vain tallennuksen aiemmin nimetylle Calc-taulukolle (ehkäpä muillekin asiakirjatyypeille):

      REM ***** BASIC *****


      sub Main
      rem ----------------------------------------------------------------------
      rem define variables
      dim document as object
      dim dispatcher as object
      rem ----------------------------------------------------------------------
      rem get access to the document
      document = ThisComponent.CurrentController.Frame
      dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

      rem ----------------------------------------------------------------------
      dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())


      end sub

      • Hankala homma?

        Osaisitko sinä kertoa kuinka OpenOfficella saisi seuraavan taulukon toimimaan.

        Solussa A1 on luku joka lisätään solun A2 lukuun ja tulos siirretään soluun A3
        Tämän jälkeen tehdään jotain ?
        ja solun A3 arvo on loikannut solun A1 arvoksi ja kehä jatkuu.

        Makroista en ymmärrä paljon mitään, mutta uskoisin tämän olevan mahdollista
        jollain konstilla.


    • Onkohan tämä vielä ajankohtainen, mutta jos on, niin ...

      Koskapa tuolla toisaalla käy ilmi, ettet ole makroihin perehtynyt, niin vähemmällä vaivalla pääsen, kun teen Calc-laskenta-asiakirjan, jossa on ko. toiminto painikkeineen ja makroineen.

      Kun Suomen OpenOffice.orgilla ei tietääkseni ole keräystiliä, niin ehkäpä teet lupauksen pienestä lahjoituksestasi KUA:lle, LKA:lle, Pelastusarmeijan joulupataan tai sopimaksi katsomallesi hyväntekeväisyysorganisaatiolle ja ilmoitat tästä minulle sähköpostiin: vieras.m ät suomi24.fi. Paluupostin liitteenä saat Calcin laskentataulukon, joka toimii (G1:n kohdalla olevasta) painikkeesta niin, että A1 ja B1 solujen summa C1:stä siirtyy A1-solun ja taulukko tallentuu.

      Näin toimien et menetä rahojasi, jos vaikka laskentataulukko ei toimisikaan toivotusti. Vaatii kuitenkin Asetukset - Makrojen suojaukset Keskitaso-valintaa.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Tässä ovat Elämäni biisi -vieraat lauantai 3.10. - Yksi vieras on todellinen suomalaisten suosikki

      Jos menisit Elämäni biisiin, mikä olisi elämäsi biisi ja miksi? Elämäni biisi tulee suorana lähetyksenä Tampereelta. K
      Viihde ja kulttuuri
      11
      833
    2. Kylypylä mätänee

      Kuka sotki uimaaltaan bakteereilla
      Suomussalmi
      43
      804
    3. Huomenta

      Sinulle! Olen miettinyt sinua paljon yön aikana. 🫂
      Ikävä
      62
      768
    4. Mikä kaivatullesi

      On tärkeintä elämässään?
      Ikävä
      60
      750
    5. En voi kertoa meistä kenellekään

      Minulla on ikävä sinua mies.. Oon yrittänyt taas unohtaa, mutta silti tulet mieleeni lähes päivittäin. Eihän meitä voi o
      Ikävä
      42
      743
    6. 51
      647
    7. Onko mulla vielä mahkuja saada sinut M nainen

      Sano joku prosenttiluku?
      Ikävä
      60
      597
    8. Kadutko mies sitä miten reagoit?

      ..siihen sotkuun, jonka jälkeen mikään ei ole ollut kuin ennen. 🥺
      Ikävä
      49
      597
    9. Mitä ihmettä pitäisi tapahtua

      Että me kohdataan ja saadaan tämä tilanne etenemään?
      Ikävä
      67
      566
    10. Suutuin lähinnä itselleni

      Kun irl juttujen takia näyttää erittäin epätodennäköiseltä, että olisin millään tavoin toivottu henkilö sulle.
      Ikävä
      28
      508
    11. Jos mies naisen prinsessakohtelu

      on sinulle liikaa, älä valitse prinsessaa 🦋🧚🏼‍♀️👸🏼
      Ikävä
      104
      507
    12. Hei. Ilmeisesti tässä saa unohtaa sen

      että meistä joskus jotain tulisi? M
      Ikävä
      29
      495
    13. SuMetKu konkursissa

      Asiakastiedon sivulla oli, SuMetKu asetettu konkurssiin. Tulihan se seinä vastaan lopultakin suuruudenhulluudessa.
      Suomussalmi
      18
      487
    14. Miksi olet niin hankala?

      Miksi toimit miten toimit?
      Ikävä
      44
      475
    15. Ei voi mittään

      Tykkään sinusta, vaikka miten typerän jutun suustasi päästät😅
      Ikävä
      32
      469
    16. Miten voit tykätä

      Jos samaan aikaan haluat pysyä mahdollisimman kaukana?
      Ikävä
      40
      437
    17. En usko enää

      rakkauteen.
      Ikävä
      58
      431
    18. Tykkään sinusta

      Vaikka en vastailekaan!
      Ikävä
      17
      420
    19. Mitä sulle

      Kuuluu?
      Ikävä
      24
      419
    20. Jos kohtaisimme niin

      Olisitko ilkeä ja kostonhaluinen?
      Ikävä
      43
      407
    Aihe