Aliohjelman käynnistys

Pasi

Hei,

miten voin käynnistää VBA:ssa jonkin koodin suorituksen toisen koodin suorituksen aikana?

Tarkoitan sitä että kun minulla on vaikkapa kaksi oliota ja tapahtumaa; CommandButton1.Click ja ComboBox1.Change, niin miten voin käynnistää CommandButton1.Click -koodissa olevalla käskyllä ComboBox1.Change -koodin suorituksen välittömästi?

Nyt teen kyseisen tempun lukemalla comboboxin arvon muistiin ja kirjoittamalla ensin comboboxiin tyhjän arvon ja edelleen äsken muistiin luetun arvon. ComboBox1.Change -ohjelman alussa koodin suoritus keskeytetään jos combon arvo on tyhjä. Toimii kyllä, mutta ei kovin fiksua...

-Pasi-

3

323

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • TSwiGH

      käy ihan vaan:
      ComboBox1.Change(kenties jotain parametria)

    • vbguru

      En ole ihan varma, mitä tarkoitit, mutta jos suunnilleen...
      Yleensäkin kannattaa tehdä siitä suoritettavasta jutusta funktio, aliohjelma, jota sitten kutsutaan milloin mistäkin, vaikka Command-painikkeesta tai ComboBoxin Change:sta.
      Eli itse nappuloihin tai muihin objekteihin ei kannata paljoa koodata, ei tarvitse toistaa samaa koodia moneen kertaan kun sen kirjoittaa funktioksi, aliohjelmaksi.
      esimerkissä funktiota "tulosta" kutsutaan aina kun Combo1 arvo muuttuu, paitsi jos se on tyhjä,
      ja Command1-painikkeella kutsutaan samaa funktiota.

      Function tulosta()
      Label1.Caption = Combo1.Text
      End Function

      Private Sub Combo1_Change()
      If Combo1.Text "" Then Call tulosta
      End Sub

      Private Sub Command1_Click()
      Call tulosta
      End Sub

      • Pasi

        vastasit juuri siihen mitä tarkoitinkin, kiitos!

        -Pasi-


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

    Luetuimmat keskustelut

    1. Huomenna teen sen

      Se on nyt päätetty. Pääsen pois tästä epätietosuudesta.
      Ikävä
      80
      3389
    2. Hakkarainen: persut Venäjän ja Pohjois-Korean tiellä

      Hakkarainen entisenä persujen kärkipoliitikkona tietää, mitä puhuu. https://www.is.fi/politiikka/art-2000010422614.html
      Maailman menoa
      200
      1992
    3. Ilouutinen! Anniina Valtonen heitti jymy-yllätyksen - Tämä ei jätä kylmäksi!

      Ohhoh, tämäpä ylläri! Anniina Valtonen sai puolisonsa kanssa lapsen viime vuoden lopulla. Lue lisää: https://www.suomi2
      Suomalaiset julkkikset
      25
      1901
    4. Fuengirola.fi: Kohuissa rypenyt Jari Sillanpää, 58, harvinaisessa haastattelussa: "Minä haluan..."

      Ex-tangokuningas on kertonut kuulumisiaan Espanjan Aurinkorannikolta. Että ei muuta kuin elämässä etiäpäin, Jari Sillanp
      Kotimaiset julkkisjuorut
      27
      1558
    5. Ootko muuten vieläkään hiffannut

      Että en kuulu sinun maailmaasi? On meissä samaa, ja samaa aaltopituutta oli, mutta tunsin oloni usein hyvin vaivautuneek
      Ikävä
      166
      1405
    6. Miten nyt sanoisin

      tämän sinulle. Oletko mielessäni päivittäin, kysyin itseltäni ja vastaus oli, kyllä olet. Yllätyin, päädyin oudoille tei
      Ikävä
      88
      1395
    7. Susta on tullut

      Ihana nainen. ❤️
      Ikävä
      52
      1109
    8. Mistä vuodesta

      lähtien olet ikävöinyt kaivattuasi?
      Ikävä
      97
      1048
    9. Tämä ei voi jatkua

      Näin. Eilisen jälkeen tulin siihen tulokseen.
      Ikävä
      55
      854
    10. Voitko vain unohtaa

      Minut. En ole sinun arvoisesi
      Ikävä
      59
      840
    Aihe