V VBA lahko ustvarite datoteko Gumb za vrtenje ki uporabniku omogoča povečanje števila v celici v določenem obsegu. Vsakič, ko uporabnik klikne gumb, se bo število povečalo ali zmanjšalo. V tej vadnici se boste naučili ustvariti gumb Spin in ga uporabiti v Excelu in VBA.
Če želite izvedeti, kako uporabljati gumb Možnosti, kliknite to povezavo: Gumb Možnosti Excel VBA
Ustvarite gumb za vrtenje
Če želite v delovni list vstaviti gumb Spin, pojdite na Zavihek za razvijalce, kliknite Vstavi in pod možnostjo Kontrolniki ActiveX izberite Gumb za vrtenje:
Slika 1. V delovni list vstavite gumb Spin
Ko izberete gumb Spin, ki ste ga vstavili, lahko kliknete na Lastnosti pod Zavihek za razvijalce:
Slika 2. Spremenite lastnosti gumba Spin
Tu lahko nastavite različne lastnosti gumba Spin. Za začetek smo spremenili atribut Ime do spbSpinButton. Zdaj lahko v kodi VBA uporabimo gumb Spin s tem imenom. Drugi pomembni atributi so Min in Maks, ki določajo obseg številk in Majhna sprememba ki opredeljuje korak povečevanja.
Nastavite gumb za vrtenje z uporabo VBA
Najprej bomo videli, kako nastaviti lastnosti gumba Spin v VBA in dobiti vrednost na delovnem listu. Koda mora biti v vsakem primeru Spremenite predmeta spbSpinButton. V ta dogodek lahko vstopite tako, da z desno miškino tipko pritisnete gumb Spin in izberete Poglej kodo možnost. Tukaj je koda:
1234567891011 | Zasebna podrejena spbSpinButton_Change ()List1.spbSpinButton.Min = 100List1.spbSpinButton.Max = 200List1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Najprej smo določili spodnjo mejo za obseg številk:
1 | List1.spbSpinButton.Min = 100 |
Po tem smo določili zgornjo mejo za obseg številk:
1 | List1.spbSpinButton.Max = 200 |
Določiti moramo tudi korak za povečanje števila:
1 | List1.spbSpinButton.SmallChange = 10 |
Končno dodelimo trenutno vrednost gumba Spin celici B2. Ta vrednost je v Vrednost atribut predmeta Sheet1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Zdaj, ko kliknemo gumb Spin, se vrednost poveča ali zmanjša za 10 v območju 100-200:
Slika 3. Povečajte število z gumbom Spin v VBA
V Excelu nastavite gumb Spin
Drug način nastavitve gumba Spin je uporaba lastnosti. Kliknite na Lastnosti pod Zavihek za razvijalce:
Slika 4. V Excelu nastavite gumb Spin
Tu lahko nastavimo vse atribute, ki jih želimo: Min je 10, Maks je 100 in Majhna sprememba je 2. Če želite rezultat gumba Spin vnesti v celico B2, morate to celico vnesti v atribut LinkedCell.