Tein sovelluksen, jonka avulla ilmoitetaan tuotannon virheitä ja aina kun tulee uusi virhe, klikataan "Lisää" -painiketta, joka laskee viereiseen soluun virheitä (1,2,3,4 jne)
Painikkeen koodi on siis tällainen:
Sub lisaysc()
Static iluku As Variant
iluku = iluku 1
Range("c9") = iluku
End Sub
Mutta miten jos kentässä oleva luku pitäisi "nollata" tai virhepainallus pitäisi kumota(iluku -1)? Onko mitenkään mahdollista tehdä viereen toinen painike, joka toimisi resettinä, tai painike, joka vähentäisi aina yhden(step -1) "iluvusta"?
Nythän solun laskuri nollautuu vain jos taulukko suljetaan ja avataan uudestaan.. Vaikka luvun poistaisi deletellä niin laskuri jatkaa siitä mihin jäi.
Kiitos
Painikkeen koodi on siis tällainen:
Sub lisaysc()
Static iluku As Variant
iluku = iluku 1
Range("c9") = iluku
End Sub
Mutta miten jos kentässä oleva luku pitäisi "nollata" tai virhepainallus pitäisi kumota(iluku -1)? Onko mitenkään mahdollista tehdä viereen toinen painike, joka toimisi resettinä, tai painike, joka vähentäisi aina yhden(step -1) "iluvusta"?
Nythän solun laskuri nollautuu vain jos taulukko suljetaan ja avataan uudestaan.. Vaikka luvun poistaisi deletellä niin laskuri jatkaa siitä mihin jäi.
Kiitos
Vastaukset 1
Vanhimmat
Eli ota tuo staattisen muuttujan esittely pois ja kirjoita funktio vaikkapa seuraavasti:
Sub lisaysc()
Dim iLuku As Integer
iLuku = Range("c9").Value
iLuku = iLuku 1
Range("c9") = iLuku
End Sub
Eli tuolla Value:lla saat solun arvon talteen. Tuostahan on sitten helppo muokata mainitsemasi toiminnot.