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
- 981067
- 50902
- 119883
- 145857
- 70667
En haluaisi sanoa tätä
Mutta olet sokea sille, mitä sinulla jo on! Jos minä olisin sinä, pyrkisin tekemään kaikkeni kohentaakseni nykyistä pari40649Koska Sofia kertoo totuuden, että ovat eroneet miljonääri miehen kanssa?
Eikö olisi hänelle itselleen helpotus, kun voisi kertoa totuuden. Miksi salata asiaa ja pitkittää sitä harmaan tulevaisu184601- 32559
Muistelen lämmöllä
Se oli vaikein päätös, jonka olen joutunut tekemään. En pidä valehtelusta, mutta näin sait päätöksen asioille. Rakasti47548- 67537
Vasemmiston aloite
Pyhäjärvellä, ihan hyvä aloite. Toteutus ja puhdistus pitäisi alkaa ihan omasta pesästä. Näkeehän tuon sokeakin mitä ja62534- 80530
- 39489
Onko suhtautuminen kaivattusi
Fyysiseen vetovoimaan muuttunut? Jos, mihin suuntaan? Tunnetko enemmän vai vähemmän vetoa häneen fyysisesti kuin silloin35484Maajussille morsian: Farmiviikon voittajat ja häviäjät - Itkua ja pettymystä ei salattu
Maajussille morsian -suosikkisarjassa farmiviikolla selviää, onko ilmassa "sitä jotakin". Rakkauden etsintä on täynnä i3464- 45463
Näyttää siltä ettet edes sinä.
Kukaan ei uskalla kohdata aitoa ja syvää sielun rakkautta. Hyvin harvat vain. Ihmisten on turha tavoitella sitä oikeaa31456- 41456
Jos olen aiheuttanut pahaa, pyydän anteeksi
Jos olen omalla kirjoittelullani aiheuttanut täällä jollekin pahaa mieltä tai sotkenut asioita, niin pyydän sitä anteeks61450Hei, alettaisko oleen yhdessä?
Miltä tuntuisi jos joku ihminen josta tykkäät sanoisi haluavansa yhteen asumaan? Ajattelisitko menettäväsi vapauden, pys74446