DSC02947

1 (yersion 1 ).xls - [Arkuszl (Codę)]

szytl fvcl

^©bfecte¹

Wuscl>

tefcuS£2)rii

^fcjjssS-M

iook«-

szytl)

JSub nacH O '

Dii» t (±

For i t t(i)

^{Wexc 1} '

For i x p

Rangę (^r,al"j) *Qf:£sI] Next. i

For i | l Ipp

_s = | + *ii

Next i | s = s / 2 0 Rangę ("e.2 ") = 1 End Sub

aRfestricti

ia