Sütundaki İlk Kelimeleri Seçmek

[moonwalker]

1000 kelimelik KPDS sözlüğü hazırlıyorum.Kelimelerin ingilizcesini seçip kalınlaştırmak ve boyamak istiyorum.İngilizce kelimelerin tamamı A sütununda olduğu için yapılabilir görünüyor ama seçme işlemi nasıl yapılır bilmiyorum.Dosya ektedir.İlgilenenlere şimdiden teşekkür ederim.

 

[Ömer]

1000 kelimelik KPDS sözlüğü hazırlıyorum.Kelimelerin ingilizcesini seçip kalınlaştırmak ve boyamak istiyorum.İngilizce kelimelerin tamamı A sütununda olduğu için yapılabilir görünüyor ama seçme işlemi nasıl yapılır bilmiyorum.Dosya ektedir.İlgilenenlere şimdiden teşekkür ederim.

Merhaba,

Örnek dosyayı incelermisiniz..

.

 

[Necdet]

Merhaba,

Sayın espiyonajl sorunu çözümüş, bana da bir fikir verdi, bakalım siz ne diyeceksiniz.
Yine koşullu biçimlendirme ile yapıldı fakat uzun uzun sözcük girmeye gerek kalmadan ister ingilizce ister türkçe, ister sözcüğün bir parçasını girin renklendirir.

Koşullu Biçimlendirme Formül

=BUL($J$1;A1)>0

 

[moonwalker]

Teşekkürler arkadaşlar iksi de güzel olmuş

 

[tahsinanarat]

1. abandon = (1) (birini) terk etmek (= leave) (2) bir şeyden vazgeçmek (= give up)
2. abbreviate = (1) kısaltmak, özetlemek (2) (matematikte) sadeleştirmek
3. abolish = (toplumdaki tabuları) yıkmak, sona erdirmek (= do away with)


Bu şekilde olacağını anlamıştım. Uğraşmaktan vazgeçiyorum o halde.

 

[Necdet]

1. abandon = (1) (birini) terk etmek (= leave) (2) bir şeyden vazgeçmek (= give up)
2. abbreviate = (1) kısaltmak, özetlemek (2) (matematikte) sadeleştirmek
3. abolish = (toplumdaki tabuları) yıkmak, sona erdirmek (= do away with)


Bu şekilde olacağını anlamıştım. Uğraşmaktan vazgeçiyorum o halde.

Bende ilk önce öyle anlamıştım ve makroyla koyu yapmıştım. Sonra Sayın espiyonalj'ın çözümünü görünce buraya eklemekten vazgeçtim.

 

[moonwalker]

1. abandon = (1) (birini) terk etmek (= leave) (2) bir şeyden vazgeçmek (= give up)
2. abbreviate = (1) kısaltmak, özetlemek (2) (matematikte) sadeleştirmek
3. abolish = (toplumdaki tabuları) yıkmak, sona erdirmek (= do away with)


Bu şekilde olacağını anlamıştım. Uğraşmaktan vazgeçiyorum o halde.

Sayın Tahsinanarat aslında tam olarak o şekilde istiyorum,eğer kolaysa yaparmısınız?

 

[Necdet]

Merhaba

Aşağıdaki kodları kullanabilirsiniz. Baştaki ingilizce sözcükleri kalın ve kırmızı yapar. Renkleri kırmızı koyu yazılan rakamı değiştirerek kendinize göre ayarlayabilirsiniz.

Sub KoyuYap()
Dim i As Long
Dim Baslama, Uzunluk As Integer
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To [A65536].End(3).Row
    Baslama = Application.WorksheetFunction.Find(".", Cells(i, "A")) + 2
    Uzunluk = Application.WorksheetFunction.Find("=", Cells(i, "A")) - 1 - Baslama
    Cells(i, "A").Characters(Baslama, Uzunluk).Font.Bold = True
    Cells(i, "A").Characters(Baslama, Uzunluk).Font.ColorIndex = [B][I][U][COLOR=red]3[/COLOR][/U][/I][/B]
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam.... "
End Sub

 

[tahsinanarat]

Altarnatif olarak

ilk okuduğumda yapmaya çalışmıştım, boşa gitmesin, başka bir altarnatif olarak ekliyorum. Kolay gelsin.