Makro açıklaması

[airborne]

[TR][TD]
s.a.

Sub Düğme1_Tıklat()
For i = 10 To 22 Step 4
For j = 3 To 9
Cells(i, j) = Cells(6, j) * Cells(i - 3, j) / ((100 - Cells(i - 2, j)) / 100)
Next
Next
MsgBox "Bitti"

End Sub



Selametle.............................
[/TD][/TR]
[TR][TD]

[/TD][/TR]

 

[ÖmerFaruk]

Sub Anlat()
    For i = 10 To 22 Step 4 'i=10 dan 22 ye kadar döngüye gir, 4 er 4er atla
        For j = 3 To 9 'j=3 ten 9 a kadar döngüye gir, 1er 1er atla
        Cells(i, j) = Cells(6, j) * Cells(i - 3, j) / ((100 - Cells(i - 2, j)) / 100)
        'Mesela i=10 j=5 olduğunda
        'Cells(10,5)=E10
        'Cells(6,j)=E6
        'Cells(i-3,j)=E7
        'Cells(i-2,j)=E8
        'Yukarıdaki satırda bu hücre değerlerine göre bir değer hesaplayıp E10 hücresine yazıyor
        Next 'İçteki döngü
    Next
    MsgBox "Bitti" 'Bitti diye ekrana mesaj çıkar
End Sub

 

[airborne]

s.a.

Allah razı olsun..................,