U VBA možete stvoriti Gumb za okretanje što omogućuje korisniku povećanje broja u ćeliji u definiranom rasponu. Svaki put kada korisnik pritisne gumb, broj će se povećavati ili smanjivati. U ovom ćete vodiču naučiti kako stvoriti gumb Spin i koristiti ga u Excelu i VBA.
Ako želite naučiti kako koristiti gumb opcije, kliknite na ovu vezu: gumb opcije Excel VBA
Izradite okretni gumb
Da biste umetnuli gumb Spin u radni list, morate otići na Kartica Developer, kliknite Umetnuti a pod ActiveX Controls odaberite Gumb za okretanje:
Slika 1. Umetnite gumb Spin u radni list
Kada odaberete gumb Spin koji ste umetnuli, možete kliknuti na Svojstva ispod Kartica Developer:
Slika 2. Promijenite svojstva gumba Spin
Ovdje možete postaviti različita svojstva gumba Spin. Za početak smo promijenili atribut Ime do spbSpinButton. Sada možemo upotrijebiti gumb Spin s ovim imenom u VBA kodu. Ostali važni atributi su Min i Maks, koji definiraju raspon brojeva i Mala promjena koji definira korak inkrementacije.
Postavite okretni gumb pomoću VBA
Prvo ćemo vidjeti kako postaviti svojstva Spin gumba u VBA i dobiti vrijednost na radnom listu. Kod mora biti u slučaju Promijeniti objekta spbSpinButton. U ovaj događaj možete unijeti desnim klikom na gumb Spin i odabirom Prikaži kôd opcija. Evo koda:
| 1234567891011 | Privatna podmena spbSpinButton_Change ()List1.spbSpinButton.Min = 100List1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10List1.Range ("B2") = List1.spbSpinButton.VrijednostKraj podm |
Prvo smo postavili donju granicu za raspon brojeva:
| 1 | List1.spbSpinButton.Min = 100 |
Nakon toga postavljamo gornju granicu za raspon brojeva:
| 1 | List1.spbSpinButton.Max = 200 |
Također moramo postaviti korak za povećanje broja:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Konačno, dodjeljujemo trenutnu vrijednost gumba Spin ćeliji B2. Ova vrijednost je u Vrijednost atribut objekta List1.spbSpinButton:
| 1 | List1.Range ("B2") = List1.spbSpinButton.Vrijednost |
Sada, kad god pritisnemo gumb Spin, vrijednost će se povećati ili smanjiti za 10 u rasponu 100-200:
Slika 3. Povećajte broj pomoću tipke Spin u VBA
Postavite okretni gumb u Excelu
Drugi način postavljanja okretnog gumba je korištenje svojstava. Kliknite na Svojstva ispod Kartica Developer:
Slika 4. Postavite gumb Spin u Excelu
Ovdje možemo postaviti sve atribute koje želimo: Min je 10, Maks je 100 i Mala promjena je 2. Ako želite staviti rezultat gumba Spin u ćeliju B2, morate ovu ćeliju staviti u atribut LinkedCell.
