aranan harfler renklensin

[gencoglu27]

Merhaba arkadaşlar.
Çalışma sayfamda diyelim bir metin var. ben K1 hücresine yazdığım kelimeyi yada harfı metin içinde aramak ve bulunca ilgili harf yada kelime arkaplanı yada harfın kendisi renklensin istiyorum.Örneğin K1 e M yazdık,bütün sayfadaki/metindeki M harfleri yada arka planı sarı olsun.. Teşekkür ederim.

 

[Ömer]

Merhaba,

A1:H19 arasında koşullu biçimlendirmeye yazarak renk belirleyin ve işlemi tamam ile bitirin.

=VE($K$1<>"";MBUL($K$1;A1)>0)

.

 

[gencoglu27]

Değerli Ömer dostum. yanıtın için teşekkürler.Formülünüz güzel çalışıyor.Fakat sanırım arka plan değil de ilgili harfler renklense daha iyi olacak..Bütün hücre değil. sadece harfler..
Çok teşekkür ettim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz.

K1 hücresi değiştikçe çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
    
    Range("A1").CurrentRegion.Font.ColorIndex = xlAutomatic
    If Target.Value = "" Then Exit Sub
    Dim Hucre   As Range
    Dim i       As Integer
    Dim Bas     As Integer
    Dim Uzunluk As Integer
    Application.ScreenUpdating = False
    
    Uzunluk = Len(Target.Value)
    
    For Each Hucre In Range("A1").CurrentRegion
    
        Bas = 1
        i = 0
        Do
            i = InStr(Bas, Hucre, [K1], 1)
            If i > 0 Then
                Bas = i + 2
                Hucre.Characters(i, Uzunluk).Font.ColorIndex = 3
            End If
        Loop While Not i = 0
    Next Hucre
    
    Application.ScreenUpdating = True
    
End Sub

 

[gencoglu27]

Eline sağlık Necdet hocam, güzel çalışıyor.
Sizden bir ricam daha olacak.Örneğin "yellow" kelimesinde geçen "yel" harflrini buluyor.yani ardaşık olanları buluyor. fakat ilk harf "y" ve son harf "w" içerenleri bul dediğimde bulmuyor. mutlaka ardaşık olması gerekmesin.Yani içinde "yw" gibi ardaşık olmayan harf yada heceleri yazınca da hem"y" ve hem "w" renklendirsin istiyorum.
Teşekkürler.

 

[Necdet]

Eline sağlık Necdet hocam, güzel çalışıyor.
Sizden bir ricam daha olacak.Örneğin "yellow" kelimesinde geçen "yel" harflrini buluyor.yani ardaşık olanları buluyor. fakat ilk harf "y" ve son harf "w" içerenleri bul dediğimde bulmuyor. mutlaka ardaşık olması gerekmesin.Yani içinde "yw" gibi ardaşık olmayan harf yada heceleri yazınca da hem"y" ve hem "w" renklendirsin istiyorum.
Teşekkürler.

Merakımı mazur görün de böyle birşey neden istenir ki? merak ettim gerçekten

İlk denemede duvara tosladık, yanlış anlama yüzünden, bakalım bu denemede ne olacak. Üzerinde düşününce olasılık o kadar fazla ki.

Çözümde yazılan harflerden hücre içinde hangisi varsa renklendirdim. Tamamı var mı diye kontorl etmedim.

Örneğin yazılan harf : "ok"

o ve k harfi ocak içinde var, fakat "kiraz" içinde ise sadece "k" var.

ben ocaktaki o ve "k" yi, kiraz içinde de "k" yi renklendirdim.

Aşağıdaki kodlar yine ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
    Range("A1").CurrentRegion.Font.ColorIndex = xlAutomatic
    If Target.Value = "" Then Exit Sub
    Dim Hucre   As Range
    Dim i       As Integer
    Dim j       As Integer
    Dim Bas     As Integer
    Dim Uzunluk As Integer
    Application.ScreenUpdating = False
 
'    Uzunluk = Len(Target.Value)
 
    For Each Hucre In Range("A1").CurrentRegion
 
        For j = 1 To Len([K1])
            Bas = 1
            i = 0
            Do
                i = InStr(Bas, Hucre, Mid([K1], j, 1), 1)
                If i > 0 Then
                    Bas = i + 2
                    Hucre.Characters(i, 1).Font.ColorIndex = 3
                End If
            Loop While Not i = 0
        Next j
    Next Hucre
 
    Application.ScreenUpdating = True
End Sub

 

[gencoglu27]

Teşekkür ettim.. işlem tamam..
İnternette herhangi bir yazı okurken. "sayfada ara" yada "bul" sekmesi var bu sayede sayfada geçen kelimeleri bulabiliyordum..yazdığım harfleri renkli olarak "highligted" olarak gösteriyor..Aynı işlemi Excelde yapmak mümkün mü diye merak ettim. Gerçekten süper kodlama yapabiliyorsunuz. Vb basicle herşeye çözüm bulunuyor.. sayenizde..
Teşekkürler.

 

[Necdet]

Teşekkür ettim.. işlem tamam..
İnternette herhangi bir yazı okurken. "sayfada ara" yada "bul" sekmesi var bu sayede sayfada geçen kelimeleri bulabiliyordum..yazdığım harfleri renkli olarak "highligted" olarak gösteriyor..Aynı işlemi Excelde yapmak mümkün mü diye merak ettim. Gerçekten süper kodlama yapabiliyorsunuz. Vb basicle herşeye çözüm bulunuyor.. sayenizde..
Teşekkürler.

Güle güle kullanınız.

 

[gencoglu27]

Merhaba arkadaşlar,

D1 hücresine girdiğim harfleri içeren A sütünundaki kelimelerdeki harfler kırmızı olmakta..Amacım eşleşen harf sayısını B sütununa yazdırmak,ve C sütununda en çok eşlenen(sayısal değeri en yüksek olan) kelime başta olmak üzere A sütunundaki listeyi tekrar C sütununa yazdırmak istiyorum..Yada en çok eşlenen ilk 20 yı göstermek istıyorum..Yardımcı olur musunuz.Saygılarımla.

İlgili dosyam ekte verildi.

 

[gencoglu27]

Merhaba arkadaşlar.
Eşlenen harf sayısını bulmak için elimde bir kod var fakat hata veriyor.. zira ingilizce bu kodun Türkçe şekli için bir el atar mısınız.
Teşekkürler.

=SUM(ISNUMBER(MATCH(TRANSPOSE(MID(A2,ROW(INDEX(A:A,1):INDEX(A:A,LEN(A2))),1)),MID(D$1,ROW(INDEX(A:A, 1):INDEX(A:A,LEN(D$1))),1),0))+0)

Confirmed with CTRL+SHIFT+ENTER.

B2 ye yapıştırıp aşağı doğru kopyalamam lazımmış.

 

[Necdet]

Merhaba

=TOPLA(ESAYIYSA(KAÇINCI(DEVRİK_DÖNÜŞÜM(PARÇAAL(A2;SATIR(İNDİS(A:A;1):İNDİS(A:A;UZUNLUK(A2)));1));PARÇAAL(D$1;SATIR(İNDİS(A:A;1):İNDİS(A:A;UZUNLUK(D$1)));1);0))+0)


formülü yazdıktan sonra Ctrl+Shift+Enter tuş kombinasyonu ile bitirmelisiniz

 

[gencoglu27]

Değerli arkadaşlar..
yukardaki formülü ekteki dosyada B2 ye yapıştırdım ve aşağı doğru kopyaladım fakat.. eşleşen harf sayısını yazmıyor.. sadece 0 yazıyor.. sorun ne ? yardımcı olur musunuz?
teşekkürler.

 

[Ömer]

Değerli arkadaşlar..
yukardaki formülü ekteki dosyada B2 ye yapıştırdım ve aşağı doğru kopyaladım fakat.. eşleşen harf sayısını yazmıyor.. sadece 0 yazıyor.. sorun ne ? yardımcı olur musunuz?
teşekkürler.

Formüldeki boşkukları silmemişsiniz. Bu şekilde deneyin.

=TOPLA(ESAYIYSA(KAÇINCI(DEVRİK_DÖNÜŞÜM(PARÇAAL(A2;SATIR(İNDİS(A:A;1)
 :İNDİS(A:A;UZUNLUK(A2)));1));PARÇAAL(D$1;SATIR(İNDİS(A:A;1)
  :İNDİS(A:A;UZUNLUK(D$1)));1);0))+0)

Dizi formülüdür.

 

[gencoglu27]

Değerli Ömer ve diğer arkadaşlara teşekkür ederim.
son olarak sutun A da kelimelerim, sutun B de eşleşen harf sayısı var. Şimdi ise sutun Bde ki sayıların değerine göre en yüksekten aza dağru kelimeleri sutun C de sıralayabilir miyiz.?

Teşekkürler.