Szunaj85
Nowicjusz
- Dołączył
- 15 Lipiec 2010
- Posty
- 65
- Punkty reakcji
- 1
Witam,
Problem dotyczy programu Excel.
Mam tu makro, które ma losować jakąś liczbę całych wierszy z większej puli. W zasadzie działa jedynym problemem jest to, że powtarza wyniki. Jak zmienić kod aby pozbyć się tego problemu?
Problem dotyczy programu Excel.
Mam tu makro, które ma losować jakąś liczbę całych wierszy z większej puli. W zasadzie działa jedynym problemem jest to, że powtarza wyniki. Jak zmienić kod aby pozbyć się tego problemu?
Kod:
Sub Losowanie()
Dim a&, i&
Randomize
a = InputBox("Podaj liczbę")
For i = 1 To a
x = Int(1 + 50 * Rnd)
Worksheets("Arkusz2").Range("A" & i & ":G" & i).Value = Range("A" & x & ":G" & x).Value
Next i
End Sub