VBA galite sukurti a Sukimo mygtukas kuris leidžia vartotojui padidinti skaičių ląstelėje nustatytame diapazone. Kiekvieną kartą vartotojui spustelėjus mygtuką, skaičius padidės arba sumažės. Šioje pamokoje sužinosite, kaip sukurti sukimo mygtuką ir naudoti jį „Excel“ ir VBA.
Jei norite sužinoti, kaip naudoti parinkties mygtuką, spustelėkite šią nuorodą: Parinkties mygtukas „Excel VBA“
Sukurkite sukimo mygtuką
Norėdami įterpti mygtuką „Sukimas“ į darbalapį, turite eiti į Skirtukas kūrėjas, spustelėkite Įdėti ir skiltyje „ActiveX“ valdikliai pasirinkite Sukimo mygtukas:
Vaizdas 1. Į darbalapį įdėkite sukimo mygtuką
Pasirinkę sukimo mygtuką, kurį įdėjote, galite spustelėti Savybės po Skirtukas kūrėjas:
Vaizdas 2. Keisti gręžimo mygtuko ypatybes
Čia galite nustatyti skirtingas sukimo mygtuko savybes. Pradžiai mes pakeitėme atributą vardas į spbSpinButton. Dabar VBA kode galime naudoti mygtuką „Sukimas“ su šiuo pavadinimu. Kitos svarbios savybės yra Min ir Maks, kurie apibrėžia skaičių diapazoną ir Smulkūs pinigai kuris apibrėžia didinimo žingsnį.
Naudodami VBA nustatykite sukimo mygtuką
Pirmiausia pamatysime, kaip nustatyti „Spin“ mygtuko ypatybes VBA ir gauti vertę darbalapyje. Kodas turi būti įvykio atveju Keisti nuo objekto spbSpinButton. Galite įeiti į šį įvykį, dešiniuoju pelės mygtuku spustelėdami mygtuką „Sukimas“ ir pasirinkdami Peržiūrėti kodą variantas. Čia yra kodas:
| 1234567891011 | Privatus sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValuePabaiga Sub |
Pirma, mes nustatome apatinę skaičių diapazono ribą:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Po to mes nustatome viršutinę skaičių diapazono ribą:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Taip pat turime nustatyti skaičių didinimo žingsnį:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Galiausiai mes priskiriame dabartinę mygtuko „Sukimas“ vertę langeliui B2. Ši vertė yra Vertė objekto atributas Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Dabar, kai spustelėsime mygtuką „Sukti“, vertė padidės arba sumažės 10 intervale 100–200:
3 paveikslas. Padidinkite skaičių naudodami VBA mygtuką „Sukimas“
„Excel“ nustatykite sukimo mygtuką
Kitas būdas nustatyti sukimo mygtuką yra ypatybių naudojimas. Spustelėkite Savybės po Skirtukas kūrėjas:
Vaizdas 4. „Excel“ nustatykite sukimo mygtuką
Čia galime nustatyti visus norimus atributus: Min yra 10, Maks yra 100 ir Smulkūs pinigai yra 2. Jei norite įvesti langelio B2 mygtuką Sukimo rezultatas, turite įterpti šį langelį į atributą „LinkedCell“.
