Do While döngüsü (Makro Yardım)

[eraybektas]

Kullanıcının girdiği sayıya kadar olan sayıların faktöriyelini ve toplamını veren programı önce for döngüsü ile yaptım; şimdi de Do-While döngüsü ile yapacağım

Sub faktop()
n=inputbox("n değerini gir")
Faktor=1
Topla=0
For a=1 to n
Faktor=Faktor*a
Topla=Topla+a
Next
Range("A1").Value=Faktor
Range("B1").Value=Faktor
End Sub

Bunu Do-While döngüsünde yapacağım.Eğer bunu Do While döngüsüne çeviremeseniz bile ufak bir örnek üzerinde veya örneksiz açıklarsanız çok işime yarayacak

Akşam 7'ye kadar bunu halletmem lazım.Lütfen yardım edin

 

[Zeki Gürsoy]

Merhaba,

do while n > 0
.
.
n=n-1
loop

veya,

do until n = 0
.
.
n=n-1
loop

 

[eraybektas]

İlginiz için çok teşekkürler

Acaba tam kodu atabilir misiniz?
Çünkü daha önceden yapmaya çalışmıştım.Sub'da bile hata verdiği oldu

 

[Zeki Gürsoy]

Sub faktop()
n = InputBox("n değerini gir")

Faktor = 1
Topla = 0

    Do Until n = 0
        Faktor = Faktor * n        
        n = n - 1
    Loop
    
   [COLOR=DarkGreen] '//////////////////////
    'Do While n > 0
    '    Faktor = Faktor * n   
    '    n = n - 1
    'Loop
    '/////////////////////[/COLOR]
    
Range("A1").Value = Faktor
Range("B1").Value = Faktor
End Sub

 

[eraybektas]

Çok Teşekkürler Çok işime yarayacak
Mantığınıda anlamış oldum

 

[Dark Templars]

Aslında benimde böyle bir sorum olacaktı.
n sayısına kadar olan cıft sayıları hucereye yazdıran program

Sub Örnek5()
Dim Hak As Integer
n = InputBox("Sayiyi Giriniz")
t = 1
c = 0
For a = 1 To 20
İf a Mod 2 = 0 Then
c = t * a
End If
Cells(a, 1).Value = c
Next
End Sub

Bunu do while ile yapmam lazım.Çok acil
Yardım edeceklere şimdiden teşekkür ederim

 

[eraybektas]

Keşke yeni konu açsaydın.Daha rahat yanıt alırdın

 

[Dark Templars]

Keşke yeni konu açsaydın.Daha rahat yanıt alırdın

Haklısın öyle yapayım

 

[Orion1]

Aslında benimde böyle bir sorum olacaktı.
n sayısına kadar olan cıft sayıları hucereye yazdıran program



Bunu do while ile yapmam lazım.Çok acil
Yardım edeceklere şimdiden teşekkür ederim

Aşağıdaki kodlar işinizi görür.:cooL:

Sub dowhile()
Dim n, sat As Long, j As Long
sat = 1
Range("A:A").ClearContents
n = InputBox("Bir sayı giriniz", "evrengizlen@hotmail.com")
If n = "" Then Exit Sub
j = 2
Do While j <= n
    Cells(sat, "A").Value = j
    j = j + 2
    sat = sat + 1
Loop
End Sub