Discussione: Corso VBA
Visualizza messaggio singolo
Vecchio 15-04-2015, 10.33.08   #76
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.400
LoryOne ha un'aura spettacolareLoryOne ha un'aura spettacolareLoryOne ha un'aura spettacolare
Rif: Corso VBA

Il codice seguente è ancora meglio:
Codice:
Function Max2 (Value1, Value2) 
Max2=Value1
If Value2 > Value1 Then Max2 = Value2
In pratica, impostate già un valore il quale cambia solo al verificarsi della condizione specifica.

Qualora il loop impegnasse tanto il processore da rendere il S.O. meno reattivo, aggiungete DoEvents nel ciclo for...next
Codice:
For i = 1 To 1000000
...
DoEvents
Next
In ultimo, nei sistemi a 32 bit utilizzare long invece di integer risulta più performante.
___________________________________

Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice
LoryOne non è collegato