DSC02945

oft Visual Basic - Zeszyt 1 • [Arkuszl (Codę)]

¹¹

.••Edit a?®eW3fcinsert    WW*WtMĘm

H

		2rad2^łJ»
^Jroject-fZes2y11) &£		■■3)1 w 111 *To ' 2;(D|' lt.3 -Dotltoie'
!icr^§8ft€xte1©biects^j		vFor -i * I* :Tp: 20 .
F) |ArkuSil 1 (Arkusz 1)		it|i) = Rnd ***
| Arkuśz2<Arkusz2)..il		:Next i
| AtkuszS (Atkusz3) d } ThisWorkbbbk **»		Min * t(łh’-'
		For i = 1 To 20
		If t(i) < Min Then

Min = t(i)

End |i

| I t (i) j

Range ("a 1®') .Offset (i - 1, O) Next i

	BTxJ
sheet itegorized j	j

Rangę("cl") = Min End Suto

B Arkusz 1 aNFalse _: efiFalse r jFalse inllrue^ _ iFalse egfialse

% -yjNoResbricU fflrkuszl

;l

Sil

^ ^xl5heetVisib Ln