ia$k - Zeszyt2 [i unning] - [Arkuszl (Code)]^
m*k
^(General)
zadl
szyt^ >łQbiectsrli 2«tozi) Ą *rfeLi5z2-)va( ^jjsz3)B mmi*
[-^ufo izSdlff (■$: -
^1 " H j **£ ’/' 3.-fajfetf ftftl
D irii' 't '(• 1 -iFa ^:Oilr:iLs' "Int©gfer -•»»■—■ For"'i^= |||M0 -20 121522:11 ^ :t“f 1) = Rnd : 10 ...
Rangę' (rMil^)isl©f fsfe't';^ ~~=±, -:G) Next i ::
:i = 1 I
Fo^-Ji fear^o^2;D^
t (i)
lt t (i)i^lO -Theri
3 = i i For
t (j) 1
Wext D i = 1 :
MoPestncb
Bi
End If Wext i |
For i * 1 To 20
Rangę("Cl").Offset(i - 1, 0) = t(i)
Next i End Suto
i
f.SheetVisib