Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Fonkiyon problemleri için yadım lütfen (http://www.excel.web.tr/showthread.php?t=167984)

maqpo 08-11-2017 15:40

Fonkiyon problemleri için yadım lütfen
 
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 08-11-2017 17:04

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.
.
Kod:

Sub FONKSIYON()
m = 5
For i = 1 To 10
    MsgBox (i - 1 + m) * 0.6
    MsgBox (i - 1 + m) - (i - 1 + m) * 0.4

    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

Next
End Sub


maqpo 10-11-2017 20:03

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

Ömer BARAN 14-11-2017 22:55

Alıntı:

maqpo tarafından gönderildi (Mesaj 916991)
Çok teşekkür ederim. Çok işime yaradı.

Estağfurullah, kolay gelsin.
.


Saat 08:14

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.