- Katılım
- 25 Ağustos 2006
- Mesajlar
- 16
- Excel Vers. ve Dili
- Office 2000 profesyonal
selam arkadaşlar,
Win 98 yüklü Bilgisayarıma office 2000 kurdum.fakat exceldeki makrolarımdan birini çalıştırmıyor.hata mesajı veriyor. "Compile error in hidden module1''
aşağıdaki kod çalışmıyor.sorun nedir.yardımlarınız için şimdiden çok teşekürler.
Kod:
Function ortalamavade(Tarihler, Tutarlar)
Çarpımtoplam = 0
TutarToplam = 0
f = 1
For Each i In Tarihler
Çarpımtoplam = Çarpımtoplam + (i * Tutarlar(f))
TutarToplam = TutarToplam + Tutarlar(f)
f = f + 1
Next i
ortalamavade = (Çarpımtoplam / TutarToplam)
End Function
Function ortalamavadegün(Tarihler, Tutarlar, bazalınacaktarih)
Çarpımtoplam = 0
TutarToplam = 0
f = 1
For Each i In Tarihler
Çarpımtoplam = Çarpımtoplam + ((i - bazalınacaktarih) * Tutarlar(f))
TutarToplam = TutarToplam + Tutarlar(f)
f = f + 1
Next i
ortalamavadegün = (Çarpımtoplam / TutarToplam)
End Function
Win 98 yüklü Bilgisayarıma office 2000 kurdum.fakat exceldeki makrolarımdan birini çalıştırmıyor.hata mesajı veriyor. "Compile error in hidden module1''
aşağıdaki kod çalışmıyor.sorun nedir.yardımlarınız için şimdiden çok teşekürler.
Kod:
Function ortalamavade(Tarihler, Tutarlar)
Çarpımtoplam = 0
TutarToplam = 0
f = 1
For Each i In Tarihler
Çarpımtoplam = Çarpımtoplam + (i * Tutarlar(f))
TutarToplam = TutarToplam + Tutarlar(f)
f = f + 1
Next i
ortalamavade = (Çarpımtoplam / TutarToplam)
End Function
Function ortalamavadegün(Tarihler, Tutarlar, bazalınacaktarih)
Çarpımtoplam = 0
TutarToplam = 0
f = 1
For Each i In Tarihler
Çarpımtoplam = Çarpımtoplam + ((i - bazalınacaktarih) * Tutarlar(f))
TutarToplam = TutarToplam + Tutarlar(f)
f = f + 1
Next i
ortalamavadegün = (Çarpımtoplam / TutarToplam)
End Function