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

852

    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. kenen näköinen

      kaivattusi on ?
      Ikävä
      74
      1185
    2. 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
      458
      971
    3. Muistatko Mikkelin panttivankidraaman?

      Uusi draamasarja järkyttävästä tapauksesta on tulossa. Tositapahtumiin perustuva sarja ammentaa vuoden 1986 Mikkelin pan
      Maailman menoa
      78
      959
    4. Iäkäs Jämsäläinen mies kuoli poliisiautoon matkalla Jyväskylän putkaan

      Iäkäs vanhus humalassa niin huonossa kunnossa, ettei pystynyt huolehtimaan itsestään niin ainoa apu sillä hetkellä oli
      Jämsä
      78
      910
    5. Mitä haluaisit kysyä tänään

      Kaivatultasi? Anna jokin tunniste itsestäni tai hänestä.
      Ikävä
      72
      844
    6. En välitä sinusta yhtään

      Olet pelkkä itsestään liikoja luuleva ämmä. Kierrän sinut kaukaa nyt ja aina. Olit mulle pelkkä lelu vaan.
      Ikävä
      52
      783
    7. Ei se nainen edes oo

      mitenkään nätti 🤣🤣🤣🤣🤣
      Ikävä
      67
      757
    8. Ernest Lawson täräytti erikoisen heiton TTK-lehdistötilaisuudessa: " Onko tässä tarkoituksena...?"

      Ernest Lawson esitteli uudet TTK-tähtioppilaat ja opettajat torstaina 6.8. lehdistölle. Tulevalla kaudella on yksi hausk
      Kotimaiset julkkisjuorut
      10
      748
    9. Olen luovuttanut

      Välimme menivät niin pahasti solmuun, ettei niitä voi enää korjata. On aika jatkaa elämässä eteenpäin. Toivon sulle kaik
      Ikävä
      35
      682
    10. Mersumies201

      Oli tänään hyrskällä melekoosen tehokas 124 liikenteessä. Ei paljon vastamäki haitannu....
      Hyrynsalmi
      16
      580
    Aihe