Fonkiyon problemleri için yadım lütfen

[maqpo]

Merhaba arkadaşlar, elimde bir fonksiyon var. Yalnız bu fonksiyonu vba koduna donusturemiyorum yardımcı olabilir misiniz ?

Vi=(Vi-1+m)-(Vi-1+m)*0.4

i imgesi gün sayısını belirtiyor.
m = 5

Bunu vba 'da yazmak için hangi kodları kullanmamız gerekiyor.

 

[Ömer BARAN]

Merhaba.

Bence sorunuzu bir örnek belge üzerinden sormanızda yarar var.

Örnek belgenin;
-- gerçek belgeyle aynı yapıda olmasına (sayfa/satır/sütun yapısı, veri başlangıç satırı gibi),
-- gerçek verileri temsil edebilecek nitelikte veriler içermesine (tarih/sayı/metin gibi veri türü önemli)
-- farklı durumlar/seçenekler varsa, bunların tümünü içermesine,
-- olması gereken sonuçları, olması gereken konumlarına elle yazarak, bunları nasıl bulduğunuzu kısaca açıklamaya,
-- varsa belgede kullanılan userform ve makroların dosya içerisinde olmasına
özen gösteriniz.

Örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.

Anladığım kadarıyla i değişkenine belli aralıkta değerler vererek işlem sonucunu elde etmek istiyorsunuz.
Aşağıdaki gibi düşünülebilir.
-- Kod'daki mavi satırlardan birini kullanarak, i değişkenine 1'den 10'a kadar sırayla verilecek değerlere göre bulunan işlem sonucunu ekranda görüntüleyebilir,
-- Kod'daki kırmızı satırlardan birini kullanarak, i değişkenine 1'den 10'a kadar sırayla verilecek değerlere göre bulunan işlem sonucunu A sütununda listeleyebilirsiniz.
.

[B]Sub FONKSIYON()[/B]
m = 5
For i = 1 To 10
[COLOR="Blue"]    MsgBox (i - 1 + m) * 0.6
    MsgBox (i - 1 + m) - (i - 1 + m) * 0.4[/COLOR]
[COLOR="Red"]    Cells(Cells(Rows.Count, "A").End(3).Row + 1, "A") = (i - 1 + m) * 0.6
    Cells(Cells(Rows.Count, "A").End(3).Row + 1, "A") = (i - 1 + m) - (i - 1 + m) * 0.4[/COLOR]
Next
[B]End Sub[/B]

 

[maqpo]

Çok teşekkür ederim. Çok işime yaradı.

 

[Ömer BARAN]

Çok teşekkür ederim. Çok işime yaradı.

Estağfurullah, kolay gelsin.
.