sayı adeti bulma

[mesudiye_052]

Selamlar;

A1 hücresinde mesela 112 rakamında kaç adet 2 olduğunu nasıl saydırabiliriz


Saygılar

 

[hamitcan]

Ktf ile yaptım ama işinizi görür mü bilmem ?

Function Say(Hedef As Range, ArananSayi As Integer)
    For i = 1 To Len(Hedef)
        If Mid(Hedef, i, 1) = ArananSayi Then s = s + 1
    Next
    Say = s
End Function

 

[uzmanamele]

merhaba
syn hamitcan çözmüş, benimki biraz uzun oldu ama alternatif olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a65536")) Is Nothing Then Exit Sub
ss = Range("a65536").End(3).Row
For i = 1 To ss
u = Len(Cells(i, 1))
adet = 0
y = 0
For j = 1 To u
y = y + 1
sayı = Mid(Cells(i, 1), y, 1)
If sayı = 2 Then adet = adet + 1
Cells(i, 2) = adet
Next j
Next i
End Sub

 

[Ali]

A1 hücresinde sayınız olsun.

B1 hücresine ise saymak istediğiniz sayıyı yazın.

C1 hücresinede

=TOPLA.ÇARPIM((UZUNLUK(A1)-UZUNLUK(YERİNEKOY(KÜÇÜKHARF(A1);KÜÇÜKHARF(B1);"")))/MAK(1;UZUNLUK(B1)))

yazınız.

 

[mesudiye_052]

Selamlar;

cevaplar için teşekkürler
mesela 22 sayısı olduğu düşünelim
22'de 2 sayısının adetini bulacağız



2-12-20-21-22ye ulaşıncaya kadar adetler aşağıdaki gibi olacak

1-2-3-4-5 =sonuç 15 olacak gibi

 

[Ömer]

Merhaba,

Verinin A1 hücresinde olduğu düşünülmüştür.

=(BAĞ_DEĞ_SAY(BUL([COLOR=red]2[/COLOR];SATIR(DOLAYLI("1:"&A1))))*(BAĞ_DEĞ_SAY(BUL([COLOR=red]2[/COLOR];SATIR(DOLAYLI("1:"&A1))))+1))/2

Dizi formülüdür.

Formüldeki 2 değerini hücreden de alabilirsiniz..

.

 

[mesudiye_052]

Sayın Ömer

Çok teşekkürler
tam istediğim gibi olmuş

 

[Ömer]

Rica ederim, iyi çalışmalar..