VBA: ssa voit luoda Linkouspainike jonka avulla käyttäjä voi kasvattaa solun lukua määritetyllä alueella. Aina kun käyttäjä napsauttaa painiketta, määrä kasvaa tai pienenee. Tässä opetusohjelmassa opit luomaan spin -painikkeen ja käyttämään sitä Excelissä ja VBA: ssa.
Jos haluat oppia käyttämään Vaihtoehto -painiketta, napsauta tätä linkkiä: Vaihtoehto -painike Excel VBA
Luo linkouspainike
Jos haluat lisätä pyöräytyspainikkeen laskentataulukkoon, sinun on siirryttävä kohtaan Kehittäjä -välilehti, klikkaus Lisää ja valitse ActiveX -komponentit -kohdasta Linkouspainike:
Kuva 1. Lisää linkouspainike laskentataulukkoon
Kun valitset lisäämäsi linkouspainikkeen, voit napsauttaa Ominaisuudet alla Kehittäjä -välilehti:
Kuva 2. Muuta linkouspainikkeen ominaisuuksia
Tässä voit asettaa Linkous -painikkeen eri ominaisuudet. Aluksi muutimme määritettä Nimi kohteeseen spbSpinButton. Nyt voimme käyttää tämän nimen spin -painiketta VBA -koodissa. Muita tärkeitä ominaisuuksia ovat Min ja Max, jotka määrittävät numeroalueen ja Pieni muutos joka määrittelee lisäyksen askeleen.
Aseta linkouspainike VBA: n avulla
Katsotaan ensin, kuinka asetetaan spin -painikkeen ominaisuudet VBA: ssa ja saadaan arvo laskentataulukosta. Koodin on oltava tapahtumassa Muuttaa esineestä spbSpinButton. Voit osallistua tähän tapahtumaan napsauttamalla Spin-painiketta hiiren kakkospainikkeella ja valitsemalla Näytä koodi vaihtoehto. Tässä on koodi:
| 1234567891011 | Yksityinen osa spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Ensinnäkin asetamme alarajan numeroalueelle:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Tämän jälkeen asetamme numeroalueen ylärajan:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Meidän on myös määritettävä vaihe numeron lisäykselle:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Lopuksi määritämme Spin -painikkeen nykyisen arvon solulle B2. Tämä arvo on Arvo objektin attribuutti Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Nyt kun napsautamme Linkous-painiketta, arvo kasvaa tai pienenee 10: llä alueella 100-200:
Kuva 3. Suurenna numeroa VBA: n Spin -painikkeella
Aseta linkouspainike Excelissä
Toinen tapa asettaa linkouspainike on Ominaisuudet. Klikkaa Ominaisuudet alla Kehittäjä -välilehti:
Kuva 4. Aseta linkouspainike Excelissä
Täällä voimme asettaa kaikki haluamamme ominaisuudet: Min on 10, Max on 100 ja Pieni muutos on 2. Jos haluat laittaa Spin -painikkeen tuloksen soluun B2, sinun on lisättävä tämä solu attribuuttiin LinkedCell.
