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.
Vastaukset 5
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 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ä.
Luetuimmat keskustelut
Taas uusi PS:n rasismiKOHU!
Nyt Mauri Peltokangas on taas huuliaan lepattanut. Suomen rasistisin puolue - PS! https://www.iltalehti.fi/politiikka/a6491434- 1151416
Naisten liian suuret vaatimukset?
Palstalla näkee usein vlituksia siitä, että naisilla on miehille liian suuria vaatimuksia. Haluankin nyt mielenkiinnosta198949Jarruton, viritetty ja kilvetön mopo
Ajo-oikeudeton ja uppiniskainen kuski. Tuloksena vääntynyt aita, rusinaksi muuttunut mopo ja pari pipiä.327885Olen henkisesti väsynyt. Takki tyhjä.
Olen joutunut elämään yksin liian kauan. Työttömänä ja somepaskaa. Työpaikoilla joudun kiusatuksi. En enää tiedä, mitä233830- 58733
Peräti 12 000 ihmisen toimeentulo leikattiin puoleen kun eivät ilmoittautuneet työkkäriiin!
Peräti 12 000 ihmisen (useimmat nuoria miehiä) toimeentulo leikattiin puoleen kun eivät ilmoittautuneet työkkäriiin! ht233697Onnittelut taktiikan vaihdoksesta mies!
Esität nykyisin varattua, ettei naiset jää roikkumaan , mutta sinä saat haluamasi. Oletpa sinä hieno mies. 👏🏻 Osasin o175671Katotaan miten jaksat tätä
Olen valmis pelaamaan tätä seuraavat 10v. Voit kysyä tutuilta miten olen erittäin kärsivällinen.88630Tiedätkö mitä mies
Sinulla ei ole kaikki kunnossa päänupissa! Älä pilaa sitä, mitä sinulla on oikeassa elämässä. Tämä ei ole mitään rakkaut21601