|
Login

Chi è online

We have 58 guests online

Ricerca Tips

Incrementare un valore all'apertura di un file
Tips and Tricks - VBA: mini progetti

Alle volte è utile che una procedura aumenti un certo valore in una cella, in modo da tener conto delle differenti modifiche apportate dagli utenti.

Per il lancio automatico di una macro all'apertura di un file (in cui essa è contenuta), basta dare alla macro il nome Auto_open.

 

Immaginiamo che in A1 ci sia il numero progressivo. Per aumentarlo basterà registrare il contenuto in una variabile (es. X), aumentare di uno e restituire il risultato a A1:

X = sheets("foglio1").range("a1") + 1

sheets("foglio1").range("a1").value = X

 

Ovviamente il foglio deve essere foglio1 o bisogna cambiare un po' la macro. Per salvare il comando è:

ActiveWorkbook.Save

 

Per salvare con nome il comando è:

ActiveWorkbook.SaveAs Filename:= "C:\Cartel1.xls"

 

Il nome con cui si salva è una stringa di testo che può includere per esempio l'ora o il giorno di salvataggio usando il comando DATE.

 

Ricapitolando:

- - -
Sub Auto_Open


Dim X as integer


X = sheets("foglio1").range("a1")+1

sheets("foglio1").range("a1").value = X


ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:= "C:\Cartel1.xls"


End Sub
- - -

 

Tags: Macro e VBA
 

Tips & Tricks

Creare presentazioni collegate a Excel - 2

Scorciatoie & produttivita'

I vantaggi di collegare i dati nel Foglio Dati del grafico di Powerpoint sono diversi. In primo luogo, il collegamento verso Powerpoint include solo dati e non immagini come nel caso del grafico di Excel collegato presentato sia nel tip Creare presentazioni collegate a Excel - 1 che nel tip Usare i grafici di Excel in...

Leggi tutto...