Sayıları toplamak hk.

[DESPERADO_HAKAN]

Tekrar selam hocam,ben bu tek hücre icerisinde olan virgüllü sayıların,toplanmalarını yapmak istiyorum,size gönderdiğim taploda A-B-C-D hücrelerinde,(A ila B) deki hücrelerde,kactane 1 sayısı varsa, tekrar (A ila B) de, kaç tane 2 sayıları varsa , 3-4-5-.... gibi ,aynı şekildede, (C ila D) dede, kaç tane 1 ler varsa,2-ler varsa 3-ler varsa ... gibi toplamlarını yapabilmek istiyorum.şimdiden yardımlarınız için tşk ederim. ALLAH razı olsun.CUMA nızda hayırlı olsun temennilerimle.Hocam.

 

[YUSUF44]

Böyle egzantrik konuları nerden buluyorsunuz merak ediyorum

İşin esprisi bir yana, neden hücredeki değerleri sütunlara ayırıp, her değeri ayrı hücreye yazdırıp da istediğiniz değerlendirmeleri yapmıyorsunuz?

 

[Korhan Ayhan]

Merhaba,

Bu tarz veriler için kullanıcı tanımlı fonksiyon kullanmak daha mantıklıdır.

Aşağıdaki kodu boş bir modüle uygulayın.

Function AYIR_SAY(Alan As Range, Kriter As Integer)
    Dim Veri As Range, Data As Variant, X As Integer
 
    Application.Volatile True
 
    For Each Veri In Alan
        If Veri.Text <> "" Then
            If InStr(1, Veri.Text, Kriter) > 0 Then
                Data = Split(Veri.Text, ",")
                    For X = 0 To UBound(Data)
                        If CLng(Data(X)) = Kriter Then
                            AYIR_SAY = CLng(AYIR_SAY) + 1
                        End If
                    Next
            End If
        End If
    Next
End Function

Daha sonra F2 hücresine aşağıdaki formülü uygulayın.

=AYIR_SAY($A$2:$B$11;1)

Kırmızı renkli değerleri satır bazında değiştirin.