Cümlede, kelime kontrolü

[igultekin2000]

Merhaba;
Çok miktarda yazı yazıyorum. Bazı kelimelerin yazılışları için sürekli sözlük veya internetten bakıyorum. Kullandığım kelimeleri havuzda toplayıp, yazdığım yazıyı kelime şeklinde kontrol ettirmek mümkün olabilir mi? Şöyle ki; Ali okula geldi. şeklindeki cümle yazıp, daha sonra makro yardımı ile sayfa ikideki A-G sütunları içindeki kelimelerle kontrol ederek, cümlede olmayan kelimeyi renklendirmek istiyorum. Bayağı karış bir konu ancak böyle bir uygulama olabilir mi. Örnek cümle ve kelime öbekleri ektedir.
*büyük, küçük harf duyarsız
*nokta, virgül gibi işaretler yok kabul ediliyor

Şimdiden teşekkür ederim.

 

[askm]

Aşağıdaki kodları deneyin.

Sub ASKM()
Dim kelime As String
Dim alan As Range
Dim bul As Integer
Set alan = Sheets("Sayfa2").Range("A1:G10")
kelime = Sheets("Sayfa1").Range("A1")
KelimeSay = UBound(Split(kelime, " "))
For i = 0 To KelimeSay - 1
    YKelime = Split(kelime, " ")(i)
    If Right(YKelime, 1) = "." Or Right(YKelime, 1) = "," Then
        YKelime = Mid(YKelime, 1, Len(YKelime) - 1)
    End If
    If WorksheetFunction.CountIf(alan, YKelime) = 0 Then
        bul = InStr(kelime, YKelime)
        Sheets("Sayfa1").Range("A1").Characters(bul, Len(YKelime)).Font.ColorIndex = 3
    End If
Next i
End Sub

 

[igultekin2000]

Aşağıdaki kodları deneyin.



Öncelikle teşekkür ederim. Hızlı ve sorunsuz çalışıyor. Emeğinize sağlık. Biraz abartılı gelebilir ama böyle bir işlemi düşünmek bile bana abartılı gelirken, uygulanabilir olduğunu görmek, beni bayağı şaşırttı.
Bir çok konuda buradaki arkadaşlardan aldığım destekle bir çok işimi çözdüm. Herkese yardımlarından dolayı teşekkür ederim