Soru bir Textteki kelimeleri saydırmak.

[gimmeluck2]

Merhaba,
elimizde notepadde bir text var uzun, içindeki geçen "beyaz" kelimelerini saydırmak istiyorum.
Excel yardımı ile yapabilir miyim?

countif kullanabilmek için o textteki tüm kelimeleri, aralarında boşlukları yok edip ayrı hücrelere koymak lazım ama onun yolunu da bilmiyorum.

 

[tugkan]

Merhaba,
Notepad'de bulunan bir yazıdaki "BEYAZ" kelimesini Excel'de saydırmak için şu adımları izleyebilirsiniz:

1. Notepad'deki Yazıyı Kopyalayın:
   • Notepad dosyasını açın.
   • Tüm metni seçin ve kopyalayın (Ctrl + A ve ardından Ctrl + C).
2. Excel'e Yapıştırın:
   • Excel'i açın.
   • Bir hücreye tıklayın ve kopyaladığınız metni yapıştırın (Ctrl + V).
3. Kelime Sayma Formülü:
   • "BEYAZ" kelimesini saymak için aşağıdaki formülü kullanabilirsiniz. A1 hücresine yapıştırdığınız metni varsayıyoruz:
4. excel
   

   =(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(BÜYÜKHARF(A1);"BEYAZ";"")))/UZUNLUK("BEYAZ")

   Bu formül şu şekilde çalışır:
   • UZUNLUK(A1): A1 hücresindeki toplam karakter sayısını verir.
   • YERİNEKOYON(A1;"BEYAZ";""): A1 hücresindeki "BEYAZ" kelimelerini boşlukla değiştirir ve ardından yeni karakter sayısını hesaplar.
   • İlk karakter sayısından yeni karakter sayısını çıkararak, metinde kaç adet "BEYAZ" kelimesi geçtiğini buluruz. Ancak, kelimenin uzunluğunu dikkate almak gerektiği için "BEYAZ" kelimesinin uzunluğuna bölünür.

Örnek olarak, metin hücresi A1'de aşağıdaki gibi olsun:

BEYAZ araba, beyaz ev, beyaz kedi ve BEYAZ köpek.

Bu formülü uyguladığınızda doğru sonuç almak için büyük/küçük harf duyarlılığını göz önünde bulundurmalısınız. Bu nedenle, BÜYÜKHARF fonksiyonunu kullanarak metni ve kelimeyi büyük harfe çevirip karşılaştırma yapabilirsiniz.
Yukarıdaki formülü Excel'de uygulayarak, Notepad'den gelen metindeki "BEYAZ" kelimesinin kaç kere geçtiğini sayabilirsiniz.

 

[Haluk]

VBA ile alternatif;

Sub Test()
'   Haluk - 24/07/2024
    Dim strFile As String, strText As String, strFindWhat As String
    Const ForReading = 1
    
    strFile = ThisWorkbook.Path & "\Test.txt"
    
    strText = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFile, ForReading).ReadAll
    
    strFindWhat = "beyaz"
    
     With CreateObject("VBscript.RegExp")
        .Ignorecase = True
        .Global = True
        .Pattern = strFindWhat
        myCount = .Execute(strText).Count
    End With
    
    MsgBox myCount
End Sub

.

 

[gimmeluck2]

Merhaba,
Notepad'de bulunan bir yazıdaki "BEYAZ" kelimesini Excel'de saydırmak için şu adımları izleyebilirsiniz:

1. Notepad'deki Yazıyı Kopyalayın:
   • Notepad dosyasını açın.
   • Tüm metni seçin ve kopyalayın (Ctrl + A ve ardından Ctrl + C).
2. Excel'e Yapıştırın:
   • Excel'i açın.
   • Bir hücreye tıklayın ve kopyaladığınız metni yapıştırın (Ctrl + V).
3. Kelime Sayma Formülü:
   • "BEYAZ" kelimesini saymak için aşağıdaki formülü kullanabilirsiniz. A1 hücresine yapıştırdığınız metni varsayıyoruz:
4. excel
   

   =(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(BÜYÜKHARF(A1);"BEYAZ";"")))/UZUNLUK("BEYAZ")

   Bu formül şu şekilde çalışır:
   • UZUNLUK(A1): A1 hücresindeki toplam karakter sayısını verir.
   • YERİNEKOYON(A1;"BEYAZ";""): A1 hücresindeki "BEYAZ" kelimelerini boşlukla değiştirir ve ardından yeni karakter sayısını hesaplar.
   • İlk karakter sayısından yeni karakter sayısını çıkararak, metinde kaç adet "BEYAZ" kelimesi geçtiğini buluruz. Ancak, kelimenin uzunluğunu dikkate almak gerektiği için "BEYAZ" kelimesinin uzunluğuna bölünür.

Örnek olarak, metin hücresi A1'de aşağıdaki gibi olsun:

BEYAZ araba, beyaz ev, beyaz kedi ve BEYAZ köpek.

Bu formülü uyguladığınızda doğru sonuç almak için büyük/küçük harf duyarlılığını göz önünde bulundurmalısınız. Bu nedenle, BÜYÜKHARF fonksiyonunu kullanarak metni ve kelimeyi büyük harfe çevirip karşılaştırma yapabilirsiniz.
Yukarıdaki formülü Excel'de uygulayarak, Notepad'den gelen metindeki "BEYAZ" kelimesinin kaç kere geçtiğini sayabilirsiniz.

çok teşekkürler hocam,
Türkçe komutları direkt ingilizceye çeviren bir site vardı neydi acaba?
ing excel kullanıyorum da.

 

[Haluk]

Translator • Excel-Translator

.