???
... it's alive! ... it's alive! ...
![]()
Sub allee_kiha() Dim i&, RndNbr$, strtxt$ strtxt = String(44, ".") Debug.Print strtxt Randomize For i = 1 To 6 RndNbr = Format(Round((Int(90 - 9 + 1) * Rnd + 9) / (Int(9 - 2 + 1) * Rnd + 2), 2), "#,##0.00") RSet strtxt = RndNbr Debug.Print strtxt Next End Sub
Bookmarks