Bir hücre içindeki sayıları ayrıştırma

[erkanfun]

A1 içine "0 8 4 0 8" şeklinde yazılmış 5 rakamın kaç tanesinin "8" kaç tanesinin "0" ve kaç tanesinin "4" olduğunu sırasıyla B1,C1 ve D1 hücrelerine yazabilir miyiz?

 

[alpi]

dediğiniz gibi A1 hücresine veri girin ve aşağıdaki kodu çalıştırın

Option Explicit

Sub RakamBul()
Dim Değer As String
Dim DeğerUzunluğu As Byte
Dim Karakter As String
Dim Sutün As Byte
Dim KarakterSayısı(10) As Byte
Dim Bak As Byte
Değer = Range("a1").Value
DeğerUzunluğu = Len(Değer)
For Bak = 0 To DeğerUzunluğu
Karakter = Left(Right(Değer, DeğerUzunluğu - Bak), 1)
Select Case Karakter
Case 0
Sutün = 2
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 1
Sutün = 3
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 2
Sutün = 4
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 3
Sutün = 5
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 4
Sutün = 6
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 5
Sutün = 7
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 6
Sutün = 8
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 7
Sutün = 9
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 8
Sutün = 10
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
Case 9
Sutün = 11
KarakterSayısı(Karakter) = KarakterSayısı(Karakter) + 1
End Select
Next
For Bak = 0 To 9
Cells(2, Bak + 3).Value = KarakterSayısı(Bak)
Next
End Sub

 

[erkanfun]

Bunun nasıl yapılacağını bilmiyorum.Yardımcı olursan sevinirim.

 

[alpi]

örnek dosya ektedir

 

[Merhum İdris SERDAR]

Bu da fonksiyonla yapılmış bir örnek.

 

[Ali]

Alternatif başka bir formül

8 için =TOPLA(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;{8};"")))

4 için =TOPLA(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;{4};"")))

0 için =TOPLA(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;{0};"")))

 

[arol11]

Sayın Alpi,
Bu konuyu şöyle ele alırsanız;
1-A sutununda n tane pozitif 3 ile 9 tane arasında 10( 0 dahil) rakamdan oluşan sayılar(135,8729364,102356, gibi.). A SUTUNUNDA n tane satır için fakat satır satır KAÇ TANE OLD.
2-Eğer değişik sayıda değilde sabit sayıda(örn. 12357,90873,13113,44244 gibi 5 li) rakamlı sayılar varsa A SUTUNUNDA n tane satır için fakat satır satır KAÇ TANE OLD.

3-Ayrıca bu uygulamada Alfabenin 29 harfinden 5 harf için nasıl kaç tane old.öğrenilebilinir.
4-Başka bir topikte bu konuyu açtım sanıyorum.Fakat sizinde fikrinizi almak istiyorum.
Yukarda hücre içindeki değişik 5 rakamın toplam ve çarpımları;B SUTUNUNDA her A sutunundaki satırda yazılı pozitif 5 li grubun karşısına nasıl yazılabilir.?
Bu konuyu ve olabilirliğini kavrarsam ,daha önceki "veri transferi "olayını daha iyi anlatabileceğim sanırım.İlginize ve emeğinize sağlık dilerim.Sağlıcakla.