Nuolinäppäinohjaus VBA:lla

Worra

Millä koodinpätkällä saadaan nuolinäppäimet määriteltyä tekemään jotain tapahtumaa? Esim. NuoliYlös-painallus aiheuttaa tietyn tapahtuman jne. Normistihan nuolinäppäimillä Excell-taulukon soluvalinta liikkuu, eli normikäytös pois ja tilalle oma koodi.

5

218

Äänestä

    Vastaukset 5

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      taulukon moduuliin...

      Option Explicit

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.OnKey "{RIGHT}", "Oikealle"
      Application.OnKey "{LEFT}", "Vasemmalle"
      Application.OnKey "{UP}", "Ylös"
      Application.OnKey "{DOWN}", "Alas"
      End Sub

      tavalliseen moduuliin...(koodin pätkät resetoinnille ja käytöstä poistoon kanssa)

      Option Explicit

      Sub Oikealle()
      MsgBox "oikealle"
      End Sub
      Sub VAsemmalle()
      MsgBox "vasemmalle"
      End Sub
      Sub Ylös()
      MsgBox "ylös"
      End Sub
      Sub Alas()
      MsgBox "alas"
      End Sub
      Sub Poistaakäytöstä()
      Application.OnKey "{RIGHT}", ""
      Application.OnKey "{LEFT}", ""
      Application.OnKey "{UP}", ""
      Application.OnKey "{DOWN}", ""
      End Sub
      Sub Resetoi()
      Application.OnKey "{RIGHT}"
      Application.OnKey "{LEFT}"
      Application.OnKey "{UP}"
      Application.OnKey "{DOWN}"
      End Sub

      Keep EXCELing
      @Kunde

      • Worra

        Kiitos! Hetken sovellettuani koodia se toimii juuri kuten halusin. :)

      • Worra
        Worra kirjoitti:

        Kiitos! Hetken sovellettuani koodia se toimii juuri kuten halusin. :)

        Lisään vielä.. soluvalinta liikahtaa kerran ennenkuin omat nuoliohjaukset alkavat toimimaan, mutta kun resetointikoodiin lisää esim.

        ActiveSheet.Range("A1").Select

        niin nuolinäppäimet pelittävät heti ekasta painalluksesta omalla koodilla. "A1" paikalla voi tietty olla mikä muu solu tahansa.

    • Worra

      Ettei lisäykset lopu ..

      Soluvalinta täytyykin tehdä kahdesti, että nuolet pelittää heti, eli esim..

      ActiveSheet.Range("B1").Select

      ActiveSheet.Range("A1").Select

    • kunde

      ei tartte kikkailla kun lisäät

      ThisWorkbook moduuliin...

      Sub Auto_Open()
      Application.OnKey "{RIGHT}", "Oikealle"
      Application.OnKey "{LEFT}", "Vasemmalle"
      Application.OnKey "{UP}", "Ylös"
      Application.OnKey "{DOWN}", "Alas"
      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. 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
      705
      3050

    2. Käviskö tällainen suhde

      Tutustutaan, fyysistä kontaktia, mutta ensijaisesti tarkoituksena ei ole aloittaa mitään virallista tai rikkoa mitään? E
      Ikävä
      71
      943

    3. Raiskausyritys

      Eilen laajallakankaalla lenkkipolulla.
      Kajaani
      42
      817

    4. Mihin kiinnitit ensimmäisenä

      huomiota kaivatussasi?
      Ikävä
      69
      766

    5. Niin kauan tätä

      Onko vuotesi menneet hukkaan
      Ikävä
      88
      637

    6. Olen pahoillani

      Olen mokannut pahasti ja pilannut sinun ja monen muun ihmisen maineen. Anteeksi. Muutan toiselle paikkakunnalle. Hyvästi
      Ikävä
      43
      559

    7. Poutalan onnettomuus

      https://www.mtvuutiset.fi/artikkeli/ministeri-mika-poutala-vakavassa-onnettomuudessa/9375980 Kumma kun jutussa ei manit
      Maailman menoa
      48
      526

    8. Harvinaisin persoonallisuustyyppi

      Vihdoin löytyi selitys sille mitä olen. En olisi uskonut että löytyisi. Signs You Are the Rarest Personality Type o
      Sinkut
      80
      475

    9. Missä on Sofia Virta? Loistaa poissaolollaan Erikoisjoukot uudelta kaudelta

      Vihreiden puheenjohtaja, kansanedustaja Sofia Virta pääsi otsikoihin, kun tieto hänen osallistumisestaan Erikoisjoukot-k
      Kotimaiset julkkisjuorut
      25
      470

    10. Taisin vihdoin saada sinut ulos luuristani stalkkeri

      Et selvästikään ole niin pätevä kuin luulet. Tai minä niin huono.
      Ikävä
      82
      461
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt