Un buton de rotire poate fi utilizat pentru a crește un număr într-o celulă. Pentru a crea un butonul de rotire în Excel VBA, executați pașii următori.
1. În fila Dezvoltator, faceți clic pe Inserare.
2. În grupul ActiveX Controls, faceți clic pe Butonul de rotire.
3. Trageți un buton de rotire pe foaia de lucru.
4. Faceți clic dreapta pe butonul de rotire (asigurați-vă că este selectat Modul de proiectare).
5. Faceți clic pe Vizualizare cod.
Notă: puteți schimba numele unui control făcând clic dreapta pe control (asigurați-vă că este selectat Modul de proiectare) și apoi faceți clic pe Proprietăți. Deocamdată, vom lăsa SpinButton1 ca numele butonului de rotire.
6. Pentru a lega acest buton de rotire la o celulă, adăugați următoarea linie de cod.
Gama („C3”). Valoare = Butonul Spin1.Value
7. Puteți seta un maxim și un minim adăugând următoarele linii de cod.
SpinButton1.Max = 100
SpinButton1.Min = 0
8. Pentru a modifica valoarea incrementală, utilizați proprietatea SmallChange.
SpinButton1.SmallChange = 2
9. Faceți clic pe săgețile butonului de rotire (asigurați-vă că Modul de proiectare este deselectat).
Rezultat:
Notă: în loc să modificați proprietățile butonului de centrifugare în timpul rulării, puteți schimba proprietățile la momentul proiectării. Pentru a realiza acest lucru, faceți clic dreapta pe butonul de rotire (asigurați-vă că este selectat Modul de proiectare) și faceți clic pe proprietăți.
