MS Excel

Téma: Nahodné generování znaku

Zaslal/a Skoky 2.5.2012 14:56

Ahoj, potřeboval bych poradit s náhodným generování.
Příklad:
v oblasti A1:J10
chci náhodně vygenerovat 10 krát znak "X".
a to s jedinou podmínkou. Jestliže buňka NENÍ prázdná, tak tam NEvkládat.

Bylo by tohle nějak možný?
Děkuji
Skoky

Uzamčeno - nelze přidávat nové příspěvky.

Jeza.m(2.5.2012 15:17)#008344

Public Sub nahodnex()
Dim min, max, radek, sloupec As Single
min = 1
max = 10
If Application.WorksheetFunction.CountA(Range("A1:J10")) >= 100 Then
MsgBox "Již není 10 volných pozic", vbCritical
Exit Sub
End If

For cc = 10 To 1 Step -1
Randomize
radek = Round(Rnd * (max - min) + min, 0)
Randomize
sloupec = Round(Rnd * (max - min) + min, 0)
If Cells(radek, sloupec) = "" Then
Cells(radek, sloupec) = "X"
Else
cc = cc + 1
End If
Next
End Sub

M@citovat

Skoky(2.5.2012 15:37)#008345

Klobouk dolu funguje to parádně! Dík moc Jezo, zítra budu muset kouknout jak si to dal dohromady.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.