Excel – Creare una macro per incrementare automaticamente il valore di una cella

cartelloexcel2

Impostiamo una macro che ad ogni clic del mouse sul “rettangolo blu” incrementi la cella A1 di “uno”, ad esempio dopo un primo clic la cella A1 avrà il valore “2”, al secondo clic il valore “3” ….

 

…al novantanovesimo clic il valore “100”!!!
tasto che incrementa di 1 b
1)     Lanciare l’Excel e premendo da tastiera la combinazione ALT + F11 si aprirà l’editor di Visual Basic;
2)     Cilc su “INSERISCI”, “MODULO”, … scriviamo il codice:
Sub incrementare_di_1()
ActiveSheet.Range(“A1”).Value = ActiveSheet.Range(“A1”).Value + 1
End Sub
tasto che incrementa di 1
3)     Chiudere l’editor di Visual Basic e salvare il file di Excel in formato XLSM, cioè con l’estensione che supporta le macro.
tasto che incrementa di 1 c
4)     Ora possiamo disegnare un rettangolo dalla scheda “INSERISCI” – “FORME”…
5)     Utilizzando il tasto destro del mouse sul rettangolo scegliamo “ASSEGNA MACRO”
tasto che incrementa di 1 d
6)     Nella finestra che segue clic su “incrementare_di_1()” e “OK
Ora ogni volta che cliccheremo sul rettangolo blu la cella “A1″ si incrementerà di un’unità!!!

E’ chiaro che giocando a piacere sulla stringa:

ActiveSheet.Range(“A1”).Value = ActiveSheet.Range(“A1”).Value + 1

Ad esempio trasformandola in:

ActiveSheet.Range.Value = ActiveSheet.Range.Value + 1

Farà la stessa cosa su l’eventuale cella che selezioneremo,…

Oppure potremmo modificare il “+1” in “-0,5” o “*2” otterremo diverse soluzioni

smilepiccolo
Related Posts Plugin for WordPress, Blogger...