Pitäisi saada makron sisään toiminto, joka jää odottamaan näppäimen painallusta ja tämän jälkeen sijoittaa painetun näppäimen johonkin muuttujaan.
Olen joskus ohjelmoinut vähän C:llä ja siellä oli valmis funktio GetKey(). Löytyyköhän Excelistä tai VBA:sta samanlaista ,ja jos löytyy, niin mitenkähän toimii?
Olen joskus ohjelmoinut vähän C:llä ja siellä oli valmis funktio GetKey(). Löytyyköhän Excelistä tai VBA:sta samanlaista ,ja jos löytyy, niin mitenkähän toimii?
Vastaukset 5
Vanhimmat
Kerro vahan enemman miten haluat sen toimivan.
Siis yritetäänpä tarkentaa.
Tällainen on ohjelma, johon kyseistä toimintoa tarvitsisin. Excel arpoo taulukosta jonkun tuoteryhmän ja näyttää tämän käyttäjälle. Käyttäjän olisi tämän jälkeen painettava oikeaa näppäintä (tuoteryhmäkoodia). Kyseessä on siis opetusohjelma meidän puhelinmyyjille. kaikki tuoteryhmäkoodit ovat yksimerkkisiä, joten Excelin pitäisi vain odottaa painettua näppäintä ja tämän jälkeen tarkistaa vastaako painettu merkki tuoteryhmää.
Kaiken muun olen jo saanut tehtyä, mutta se, että Excel jäisi odottamaan näppäinpainallusta puuttuu. Ja tietysti tallentaisi painetun näppäimen johonkin muuttujaan / soluun.
Omat VBA taidot rajoittuu makrojen nauhoitukseen ja koodin muokkaamiseen office-helpin avulla.
voiko tuotekoodi olla mika merkki tahansa - vai esim numerot 1-9 tai esim funktionappaimet F1-F9 tai kirjaimet?
helpottaa demon tekoa...
Tuotekoodi on välillä 0-9.
helppo harjoitellla nappaimen painalluksia
tee komentopainike taulukkoon ja liita siihen koodi
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
tee lomake(Userform1) ja siihen
4 textboxia ja 4 labelia oletusnimineen
laita labeleille otsikot esim.
Tuoteryhma
Anna tuoteryhma
Oikeita vastauksia
Vaaria vastauksia
ja liita allaoleva koodi lomakkeeseen
Dim Paivita As Boolean
Private Sub TextBox2_Change()
If Paivita Then
If TextBox2 = TextBox1 Then
TextBox3 = Val(TextBox3) 1
Else
TextBox4 = Val(TextBox4) 1
End If
End If
Arvonumero
End Sub
Private Sub UserForm_Initialize()
Arvonumero
End Sub
Sub Arvonumero()
Dim Tuoteryhma As Integer
Paivita = False
Tuoteryhma = Int((9 * Rnd) 1)
TextBox1 = Tuoteryhma
TextBox2.SetFocus
TextBox2 = ""
Paivita = True
End Sub
ohjelma arpoo tuoteryhman 1-9 textbox1:een ja siirtaa kohdistuksen textbox2:een ja kun syotat merkin niin tarkistaa onko sama kuin arvottu ja siirtaa tulokset textbox3:een(oikein) ja textbox4:een(vaarin)