VBA -s saate luua a Spin nupp mis võimaldab kasutajal suurendada lahtris olevat arvu teatud vahemikus. Iga kord, kui kasutaja nupul klõpsab, suureneb või väheneb see arv. Selles õpetuses saate teada, kuidas luua pöörlemisnuppu ja kasutada seda Excelis ja VBA -s.
Kui soovite õppida suvandi nupu kasutamist, klõpsake sellel lingil: Valikunupp Excel VBA
Loo pöörlemisnupp
Töölehele spin -nupu sisestamiseks peate minema lehele Arendaja vahekaart, klõpsake Sisesta ja valige ActiveX -juhtelementide alt Pöörlemisnupp:
Pilt 1. Sisestage töölehele spin -nupp
Kui valite sisestatud nupu Spin, saate klõpsata Omadused all Arendaja vahekaart:
Pilt 2. Muuda tsentrifuugimise nuppu Atribuudid
Siin saate määrata nupu Spin erinevaid omadusi. Alustuseks muutsime atribuuti Nimi et spbSpinButton. Nüüd saame selle nimega VIN -koodis kasutada keerutamisnuppu. Muud olulised atribuudid on Min ja Max, mis määratlevad numbrivahemiku ja Väike muutus mis määrab juurdekasvu sammu.
Määrake tsentrifuugimisnupp VBA abil
Esmalt näeme, kuidas VBA -s spin -nupu atribuute seada ja töölehel väärtust saada. Kood peab olema juhuks Muuda objektist spbSpinButton. Sellele sündmusele sisenemiseks paremklõpsake nuppu Spin ja valige Vaata koodi valik. Siin on kood:
| 1234567891011 | Privaatne alam spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Esiteks määrame numbrivahemiku alumise piiri:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Pärast seda määrame numbrivahemiku ülemise piiri:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Samuti peame määrama arvu suurendamise sammu:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Lõpuks määrame lahtrile B2 nupu Spin praeguse väärtuse. See väärtus on Väärtus objekti atribuut Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Nüüd, kui klõpsame nuppu Spin, suureneb või väheneb väärtus vahemikus 100-200 10 võrra:
Pilt 3. Suurendage arvu, kasutades VBA nuppu Spin
Määrake Excelis pöörlemisnupp
Teine viis keerutamisnupu seadistamiseks on atribuutide kasutamine. Kliki Omadused all Arendaja vahekaart:
Pilt 4. Määrake Excelis spin -nupp
Siin saame määrata kõik soovitud atribuudid: Min on 10, Max on 100 ja Väike muutus on 2. Kui soovite panna nupu Spin tulemuse lahtrisse B2, peate selle lahtri atribuuti panema LinkedCell.
