laused Range("tabas") = Range("tabas") + 1 auk.Fill.ForeColor.SchemeColor = Rnd() * 70 plats.Fill.ForeColor.SchemeColor = Rnd() * 70 End If paus 0.5 Loop Katkestamine! End Sub ahvid Ctrl + Break nd-lause teises eduuris ✘ Näita skripti Miks pall läheb mõnikord välja? Lõputu kordus. Näide Foor_1 Tööle Stopp Sub Tööle() Sub Aitab() Do Muuda 0, 1 ' must Muuda 2, 5 ' punane End Muuda 5, 2 ' kollane End Sub
laused Range("tabas") = Range("tabas") + 1 auk.Fill.ForeColor.SchemeColor = Rnd() * 70 plats.Fill.ForeColor.SchemeColor = Rnd() * 70 End If paus 0.5 Loop Katkestamine! End Sub ahvid Ctrl + Break nd-lause teises eduuris Näita skripti Miks pall läheb mõnikord välja? Lõputu kordus. Näide Foor_1 Tööle Stopp Sub Tööle() Sub Aitab() Do Muuda 0, 1 ' must Muuda 2, 5 ' punane End Muuda 5, 2 ' kollane End Sub Muuda 3, 4 ' roheline
annaabi.ee 
