girilen değer 0 dan küçük ya da eşitse = 0
girilen değer 1 ise 1
aksi halde f(n)=f(n-2)+f(n-1) fonksiyonunu hesaplayan bir makroyu for dongüsüyle nasıl yazabilirim?


 

Selamlar,
Fonksiyon kısmından ne demek istediğini pek anlamadım ama şu aşağıdaki gibi yapılabilir. Kodu denemedim muhtemelen çalışması lazım.

Verilerin ilk sütunda (A) olduğunu ve toplam 20 satır veri olduğunu, sonuçların da B sütununa yazılacağını düşünürsek:

sub test()
for i=1 to 20
if cells(i,1)<=0 then
cells(i,2)=0
elseif cells(i,1)=1 then
cells(i,2)=1
else
cells(i,2)=cells(i,1)-2+cells(i,1)-1
end if
Next i
end sub

puc
1

mobil görünümden çık