Uzamčeno - nelze přidávat nové příspěvky.
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
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
RSS nejnovější články