Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excell - Comando "calculate"

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excell - Comando "calculate"

Postdi acquario » 08/06/11 12:10

Buon giorno a tutti ;)
di tanto in tanto mi rifaccio vivo per qualche problemino, vado al dunque, ho letto da qualche parte che per far eseguire una formula che crea riferimento circolare, bisogna spuntare la voce "Interazione" nella sezione calcolo del menu Strumenti - Opzioni e disattivare il calcolo automatico a vantaggio di quello manuale, per una mia esigenza ho seguito questa indicazione, (anche se so che sicuramente ci saranno altri metodi) e in effetti funziona.
Però, siccome la mia necessità è quella di avere una cella che si incrementa del valore inserito manualmente nella cella sottostante, ma subito dopo il ricalcolo con il tasto "F9", il valore inserito deve essere cancellato, ho registrato una macro che esegue esattamente ciò, ma quando ho copiato il codice della macro, sotto un pulsante di comando, il ricalcolo non lo esegue più, copio qui di seguito il piccolo codice in questione, premesso che di VB sono allo stato embrionale, sono grato a coloro che vorranno darmi una dritta
Calculate
Range("C2:J8").Select
Selection.ClearContents
Range("C2").Select

acquario
acquario
Utente Junior
 
Post: 44
Iscritto il: 04/03/09 12:57

Sponsor
 

Re: Excell - Comando "calculate"

Postdi Avatar3 » 08/06/11 18:08

Se è la cella C2 che viene cambiata manualmente e deve essere cancellata evitando di impostare excel in calcolo manuale (anche perché così facendo tutti i file di excel che aprirai saranno con calcolo manuale)

inserirei questo codice in
ThisWorkbook
Codice: Seleziona tutto
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub


In questa maniera il calcolo automatico si blocca all'apertura del file
e si ripristina alla chiusura

Inoltre inserendo questo codice nel foglio contenente la cella "variabile"
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
If Range("C2").Value <> "" Then Call Calcolo
End Sub

Ad ogni variazione della cella C2 viene controllato il contenuto della cella C2 se non c'è nulla non succede niente altrimenti si attiva la macro con questo codice che inserirai (questa volta) nel modulo
Codice: Seleziona tutto
Sub Calcolo()
Application.Calculation = xlCalculationAutomatic
Range("C2:J8").ClearContents
Application.Calculation = xlManual
End Sub


Se ho interpretato bene il tuo problema dovrebbe funzionare
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04


Torna a Applicazioni Office Windows


Topic correlati a "Excell - Comando "calculate"":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti