Tekrar eden kelime sayısını bulma...

[jackal_jackal]

Dostlar merhaba, bana yapması zor gibi gelen (belki çok kolaydır da ben göremiyorumdur bilemiyorum) ama şu an oldukça da gerekli olan bir durumum var. bir Excel çalışma sayfası içerisinde binlerce kelime var. bu kelimelerin neler olduğunu ve hangisinden kaçar adet olduğunu bulmam lazım(istatistiki tabiriyle her bir kelimenin frekansını hesaplamam lazım). bununla ilgili bir excel fonkisyonu var mı, yoksa makro mu yazmak lazım.

 

[uzmanamele]

merhaba
EĞERSAY fonksiyonunu kullanabilirsiniz.
sorunuzu örnek dosya ile destekleyiniz.

 

[jackal_jackal]

kelime sayılarını bulma...

hocam merhaba, eğersay fonksiyonunu kullanabilmek için arayacağımız kelimelerinde ne olduğunu bilmemiz gerekiyor. elimde binlerce kelimelik bir liste var. buradan hangi kelimleri arayacağımı bilemediğim için, hepsinin sayılarını bulup, en çok tekrar edenleri incelemek istiyorum mesela.
küçük bir örnek dosya ektedir.
şimdiden teşekkürler...

 

[Orion1]

Dosyanız ekte.

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
            If Liste(j, 1) > Liste(i, 1) Then
            'If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
                x = Liste(j, 1)
                Liste(j, 1) = Liste(i, 1)
                Liste(i, 1) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

Private Sub UserForm_Activate()
Dim hcr As Range, a As Long
ReDim myarr(1 To 2, 1 To 1)
For Each hcr In Range("A1:A" & Cells(65536, "A").End(xlUp).Row)
    If WorksheetFunction.CountIf(Range("A1:A" & hcr.Row), hcr.Value) = 1 Then
        a = a + 1
        ReDim Preserve myarr(1 To 2, 1 To a)
        myarr(1, a) = hcr.Value
        myarr(2, a) = WorksheetFunction.CountIf(Range("A1:A65536"), hcr.Value)
    End If
Next hcr
ListBox1.Column = myarr
Liste = ListBox1.List
ListBox1.List = Sirala(Liste)
Label1.Caption = "Toplam : " & ListBox1.ListCount
End Sub

 

[veyselemre]

Birçok yöntemden sadece birtanesi, örneği inceleyin.

 

[S.Yiğit]

Sy hocalarım elinize sağlık..

 

[Orion1]

Sy hocalarım elinize sağlık..

Rica ederim.
İyi çalışmalar.

 

[jackal_jackal]

dostlar yaptıklarınız için teşekkürler... bu kadarı da işime yarar doğrusu.
ancak şöyle bir sorum daha olacak.
Yapılan makrolar tek sütundaki değerlerin sayılarını hesaplıyor. bunu daha fazla sütun olduğunda da sayıları bulacak şekilde veya seçtiğimiz bir alandaki kelimelerin sayısını bulacak şekilde geliştirebilir miyiz? örneğin excel'de bir şeyi arama veya değiştirme işlemini tüm çalışma sayfasında değil de seçtiğimiz bir alanda yaptırabildiğimiz gibi. bu şekilde olursa mükemmel olur.
Desteğiniz için şimdiden teşekkürler....

 

[ersoyalan]

Merhaba,

Başka stunda kullanma ile ilgili olarak böyle birşeymi istiyorsunuz.

E.ALAN

 

[jackal_jackal]

ersoyalan hocam, şunu istiyorum.
Kelimler a, b ,c, d gibi sütunlarda olsun. sadece a sütunun da değil. bende buradan mesela sadece a sütununu seçersem, a sütunundaki kelimelerin sayılarını versin. a ile c sütununu seçersem, bu iki sütundaki kelime sayısını versin. sütun seçmezsem alan seçersem, mesela a6:c36 alanını seçtiğimde, o alandaki kelime sayısın versin. kelime sayılarını isterse yeni bir sayfada versin, ama seçtiğim bir alandaki kelime sayısı versin.

 

[veyselemre]

Örneği seçili alana göre düzenledim.

 

[jackal_jackal]

veyselemre öncelikli olarak emeği geçen herkese çok teşekkür ederim. gayet güzel bir çalışma oldu. ellerinize bilginize sağlık...

 

[samedemo]

sayfadaki verileri yenileyebilir misiniz? İyi çalışmalar.

 

[samedemo]

ss

Örneği seçili alana göre düzenledim.

verileri yenileyebilir misin. teşekkürler.

 

[gozeten]

Hayırlı Akşamlar

Teşekkürler

 

[tahsinanarat]

Sn. gozeten örnek bir dosya eklemeniz mümkünmü

 

[samedemo]

ben burda en çok tekrar eden kelimeyi bulmak istiyorum. bunu sayılar için mode farmulüyle bulabiliriz. ancak kelimelerde hangi formül acaba. Bu dosyayı örnek amaçlı hazırladım. bu formulu daha geniş dosyalarda kullanmak için soruyorum. Teşekkürler.

 

[tahsinanarat]

Sn. samedemo örneğinizden pek birşey çıkartamadım. Buradaki öreneğinizde olduğu gibi her hücrede bir kelime mi var, ve bu kelimelerden öreneğin şükran en fazla geçen olarak saadece şükran kelimesinin sayısı olan 11 mi bulmasını istiyorsunuz, yoksa diğer kelimelerin sayısı da bulunacakmı, ayrıcı bu kelimeler tek sutunda mı yoksa birden fazla sutunda mı olacaklar, en azından örneğinizde sonuç olarak ne istediğiniz yazabilirseniz mutlaka yardımcı olacak arkadaşlarımız olacaktır. Teşekkürler.

 

[samedemo]

Sn. samedemo örneğinizden pek birşey çıkartamadım. Buradaki öreneğinizde olduğu gibi her hücrede bir kelime mi var, ve bu kelimelerden öreneğin şükran en fazla geçen olarak saadece şükran kelimesinin sayısı olan 11 mi bulmasını istiyorsunuz, yoksa diğer kelimelerin sayısı da bulunacakmı, ayrıcı bu kelimeler tek sutunda mı yoksa birden fazla sutunda mı olacaklar, en azından örneğinizde sonuç olarak ne istediğiniz yazabilirseniz mutlaka yardımcı olacak arkadaşlarımız olacaktır. Teşekkürler.

efendim, birden fazla sutunda olan sayıları düşünün. ben burda en çok tekrar edeni bulucam. ne yaparım. mode kullanırım. en çok tekrar edeni bulurum. ne kadar tekrar ettiği önemli değil. en çok hangi kelime tekrar etmişse onu öğrenmek istiyorum. Teşekkür ediyorum ilginiz için.

 

[samedemo]

çözüm

nette aradım buldum. sizin de işinizi görebilir. fakat ingilizce. siz onu ayarlarsınız... son bir şey ,, formulu girdikten sonra sadece enter ' a değil. ctrl + shift + enter ı kullanın.