istenilen sayıda çalışsın

[kan-nas]

Sub Button1_Click()
Do While (True)
Range("a1").Select
a = (Int(100 * Rnd) + 1)
Range("a1").Font.Size = a
DoEvents
Loop
End Sub

Merhaba,
Yukarıdaki kodu çalıştırınca sürekli çalışıyor.Bunu sınırlayabilir miyiz.?
50 kere çalışsın diye

Teşekkürler.

 

[hamitcan]

Bu şekilde deneyin.

Sub Button1_Click()
Do While (True)
[color=red]k = k +1
if k = 50 then exit sub[/color]
Range("a1").Select
a = (Int(100 * Rnd) + 1)
Range("a1").Font.Size = a
DoEvents
Loop
End Sub