In VBA, puoi creare un Pulsante di rotazione che consente a un utente di incrementare un numero nella cella in un intervallo definito. Ogni volta che un utente fa clic su un pulsante, il numero aumenterà o diminuirà. In questo tutorial imparerai come creare un pulsante Spin e usarlo in Excel e VBA.
Se vuoi imparare come usare un pulsante di opzione, fai clic su questo link: pulsante di opzione Excel VBA
Crea un pulsante di selezione
Per inserire un pulsante Spin nel foglio di lavoro, devi andare su Scheda Sviluppatore, clicca Inserire e in Controlli ActiveX scegli Pulsante di rotazione:
Immagine 1. Inserisci un pulsante Spin nel foglio di lavoro
Quando selezioni il pulsante Spin che hai inserito, puoi fare clic su Proprietà sotto il Scheda Sviluppatore:
Immagine 2. Cambia le proprietà del pulsante Spin
Qui puoi impostare diverse proprietà del pulsante Spin. Per l'inizio, abbiamo cambiato l'attributo Nome a spbSpinButton. Ora possiamo usare il pulsante Spin con questo nome nel codice VBA. Altri attributi importanti sono min e Max, che definiscono un intervallo di numeri e Piccolo cambiamento che definisce un passo di incremento.
Imposta un pulsante di selezione usando VBA
Vedremo prima come impostare le proprietà di un pulsante Spin in VBA e ottenere un valore in Worksheet. Il codice deve essere in event Modificare dell'oggetto spbSpinButton. Puoi partecipare a questo evento facendo clic con il pulsante destro del mouse sul pulsante Spin e scegliendo Visualizza codice opzione. Ecco il codice:
| 1234567891011 | Sub privato spbSpinButton_Change()Sheet1.spbSpinButton.Min = 100Foglio1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Foglio1.Range("B2") = Foglio1.spbSpinButton.ValueFine sottotitolo |
Innanzitutto, impostiamo il limite inferiore per l'intervallo di numeri:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Successivamente, impostiamo il limite superiore per l'intervallo di numeri:
| 1 | Foglio1.spbSpinButton.Max = 200 |
Dobbiamo anche impostare il passaggio per l'incremento del numero:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Infine, stiamo assegnando il valore corrente del pulsante Spin alla cella B2. Questo valore è in Valore attributo dell'oggetto Foglio1.spbSpinButton:
| 1 | Foglio1.Range("B2") = Foglio1.spbSpinButton.Value |
Ora, ogni volta che facciamo clic sul pulsante Spin, il valore aumenterà o diminuirà di 10 nell'intervallo 100-200:
Immagine 3. Aumenta un numero usando il pulsante Spin in VBA
Imposta un pulsante di selezione in Excel
Un altro modo per impostare un pulsante Spin è utilizzare le Proprietà. Clicca su Proprietà sotto il Scheda Sviluppatore:
Immagine 4. Imposta un pulsante Spin in Excel
Qui possiamo impostare tutti gli attributi che vogliamo: min è 10, Max è 100 e Piccolo cambiamento è 2. Se vuoi inserire il risultato del pulsante Spin nella cella B2, devi inserire questa cella nell'attributo LinkedCell.
