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.501
LoryOne  un gioiello raroLoryOne  un gioiello raroLoryOne  un gioiello raro
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