muhasebeciyiz
Altın Üye
- Katılım
- 10 Şubat 2006
- Mesajlar
- 564
- Excel Vers. ve Dili
-
Office 2016
64 Bit
- Altın Üyelik Bitiş Tarihi
- 21-12-2027
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.
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.
Son düzenleme: