9999 a kadar kaç tane 5 vardır ?

[muhasebeciyiz]

arkadaşlar takıldığımız bir husus var yardım ederseniz çok sevinirim.şöyle ki:

1 ile 9999 arasında kaç tane 5 kullanılmıştır.ben 4000 adet buldum.
bunu excele nasıl formüle edebiliriz.

mesela 5+15+25+35+45+50+51+52+53+54+55+56+57+58+59+65+75+85+95 =20 adet 5 kullanılmıştır.

mesela:500 ile 505 arasında 7 tane 5 vardır.

mesela :5000 ile 6000 arasında sadece soldaki basamakta 1000 adet 5 vardır


Hem baş hemde sonundaki tüm beşleri sayacağız.

10000/10 = 1000 tane 5 olur
onlar basamağında da
10000/10 = 1000 tane etti 2000
yuzler de de aynı
binler de de
4x1000 = 4000 bin adet 5 rakamı kullanılmıştır.

her basamak için 1000 tane 5 kullanılmış oluyor bu sayı 4 basamaklı bir sayı olduğu için 4 ile çarparsak 4000 rakamını bulmuş oluyoruz.

formülü beceremedim

Public Sub n()
adet = 0
For i = 1 To 9999
s = Str(i)
For j = 1 To Len(s)
If Mid(s, j, 1) = "5" Then adet = adet + 1
Next
Next
MsgBox adet

End Sub

bunu excele nasıl formüle edebiliriz bilemiyorum.saygılarımı sunuyorum.

veyahutta a1 sutunundan a9999 sutununa kadar rakamları yazdık bunu excele nasıl saydırabiliriz.kaç tane var bu sutunda diye.

 

[Metin Karaağaç]

4000 adet..

 

[Korhan Ayhan]

Selamlar,

Bende makrolu çözümü sunuyorum. Umarım işinize yarar.

 

[muhasebeciyiz]

her iki arkadaşımızada teşekkürlerimi sunuyorum.saygılarımla.

 

[mehmett]

Sn COST CONTROL'un makrosunu biraz değiştirdim ekte gönderiyorum.

Bu sefer alt ve üst sınırları verilen bir aralıkta kriter olarak belirlenen rakamı sayıyor.

 

[veyselemre]

Böyle biraz daha hızlı hesaplıyor.