
Set x1 = Nothing Set x2 = Nothing Set rigA = Nothing Set rigB = Nothing Set rigC = Nothing Set psSCA = Nothing Set pzSCA = Nothing Set cpSCA = Nothing Set pscSCA = Nothing |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
sub test
dim r as range, ws as worksheet
set r = range("A1")
set ws = Activesheet
.
.
.
set r = nothing
set ws = nothing
end sub |
Sub MisuraMe() 'la lettura viene eseguita in byte e quindi la convertiamo in kb Y = Application.MemoryUsed X = Val(Y / 1024) MsgBox "Microsoft Excel sta usando " & X & " Kb di meoria." End Sub |
