În VBA, puteți crea un fișier Buton rotire care permite unui utilizator să incrementeze un număr în celulă într-un interval definit. De fiecare dată când un utilizator face clic pe un buton, numărul va crește sau scădea. În acest tutorial, veți afla cum să creați un buton de centrifugare și să îl utilizați în Excel și VBA.
Dacă doriți să aflați cum să utilizați un buton Opțiune, faceți clic pe acest link: buton Opțiune Excel VBA
Creați un buton de rotire
Pentru a insera un buton de rotire în foaia de lucru, trebuie să accesați Fila dezvoltator, faceți clic pe Introduce și sub ActiveX Controls alegeți Buton rotire:
Imagine 1. Introduceți un buton de rotire în foaia de lucru
Când selectați butonul de rotire pe care l-ați introdus, puteți face clic pe Proprietăți sub Fila dezvoltator:
Imagine 2. Schimbați Proprietățile butonului de centrifugare
Aici puteți seta diferite proprietăți ale butonului de centrifugare. Pentru început, am schimbat atributul Nume la spbSpinButton. Acum, putem folosi butonul de rotire cu acest nume în codul VBA. Alte atribute importante sunt Min și Max, care definesc un interval de numere și SmallChange care definește un pas de incrementare.
Setați un buton de centrifugare folosind VBA
Mai întâi vom vedea cum să setăm proprietățile unui buton de rotire în VBA și să obținem o valoare în Foaia de lucru. Codul trebuie să fie în eventualitate Schimbare a obiectului spbSpinButton. Puteți introduce acest eveniment făcând clic dreapta pe butonul de rotire și alegând Vizualizați codul opțiune. Iată codul:
| 1234567891011 | Sub privat spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueSfârșitul Sub |
Mai întâi, setăm limita inferioară pentru intervalul de numere:
| 1 | Sheet1.spbSpinButton.Min = 100 |
După aceea, stabilim limita superioară pentru intervalul de numere:
| 1 | Sheet1.spbSpinButton.Max = 200 |
De asemenea, trebuie să setăm pasul pentru creșterea numărului:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
În cele din urmă, atribuim valoarea curentă a butonului de centrifugare celulei B2. Această valoare se află în Valoare atributul obiectului Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Acum, ori de câte ori facem clic pe butonul Rotire, valoarea va crește sau scădea cu 10 în intervalul 100-200:
Imagine 3. Măriți un număr folosind butonul de rotire din VBA
Setați un buton de rotire în Excel
O altă modalitate de a seta un buton de centrifugare este folosirea Proprietăților. Click pe Proprietăți sub Fila dezvoltator:
Imagine 4. Setați un buton de rotire în Excel
Aici putem seta toate atributele dorite: Min este 10, Max este 100 și SmallChange este 2. Dacă doriți să puneți rezultatul butonului de rotire în celula B2, trebuie să puneți această celulă în atribut LinkedCell.
