makronun çalışması

[recep]

makronun a1 hücresindeki sayı 0 olana kadar çalışmasını nasıl sağlayabilirız.
sub yaz()
RANGE("A1")=RANGE("A1")-1
yaz
end sub

 

[Zeki Gürsoy]

A1 hücresine 1000 yazıp aşağıdaki kodu çalıştırın.

Sub sıfır()
Do Until [a1] = 0
[a1] = [a1] - 1
Loop
End Sub