Metinde kelime sayısı ve...

[akayaloglu]

Arkadaşlar
Excel de olurmu bilmiyorum ama aklıma takıldı sormak istiyorum. Ekte açıklamalı olarak gösterdim. Buradada kısaca anlatayım. Bir kutu var ve bu kutuya metin giriliyor. istenilen ise bu metinde kaç kelime geçiyor,hedef kelime sayısı ve oranı ne. Yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.

 

[sergions]

Aşağıdaki kod işinizi görecektir.

Sub KelimeSay()
Dim Metin as String
Dim ArananKelime As String
Dim a As Long, b As Long
'
Metin = Trim(Range("A1").Value)
ArananKelime = UCase(Range("Q6").Value)
b = 1
Range("Q4").Value = 0
Range("Q8").Value = 0
'
For a = 1 To Len(Metin)
  If Mid(Metin,a,1) = " " then
  Range("Q4").Value = Range("Q4").Value + 1
    If UCase(Mid(Metin,b, a - 1)) = ArananKelime Then
    Range("Q8").Value = Range("Q8").Value + 1
    End If
  b = a + 1
  End If
Next a
Range("Q10").Value = Range("Q4").Value / Range("Q8").Value
End Sub

Not: Kodu, cevap yazma ekranına girdim, VBA editöründe yazmadım. İmla hatası v.s. varsa mesaj atın, düzeltiriz.

Kolay Gelsin.

 

[akayaloglu]

cevabın için çok teşekkür ederim kardeş ama excelde makro oluşturmayı bilmiyorum açıkçası. yardımcı olursan sevinirim

 

[sergions]

Merhaba,

Excel'de ALT ve F11 tuşlarına bas, açılan pencerede bulunan menüden Insert > Module seç.

Açılacak beyaz pencereye verdiğim kodu yapıştır. ve F5 e bas.
Excel e döndüğünde rapor gelmiş olacaktır.

 

[Levent Menteşoğlu]

Bu işlem formüllerle de kolaylıkla yapılabilir. Ekte formüllerle yapılmış dosyayı sunuyorum.

 

[akayaloglu]

herkesin eline emegine sağlık güzel bir çalışma olmuş arkadaşlar