Hücre içindeki bazı kelimeri bold yapma!

[ofbalki]

Arkadaşlar, d9 hücresine "Burası excel web tr, gerekirse excelde mangal bile yapılır." şeklinde bir cümle yazalım. Bu cümlenin birkaç kelimesini bold yapabilirmiyiz?

Ya kusura bakmayın ama, insan merak edince sormadan duramıyor. Sanırım diğer arkadaşlarımızda bunlardan faydalanıyor.

Benimde bir programım var, basit bişey ama, bu işi ayrıca uğraşmadan otomatik yapmak istiyorum.

Ustalarıma ayrıca çoook teşekkür ederim. Şimdiye kadar cevabını alamadığım soru olmadı.

 

[ofbalki]

Arkadaşlar yardım edecek kimse yok mu? Bulduğum örneklerle sabahtan beri uğraşıyorum olmuyor.

 

[Necdet]

Merhaba,

Benzer soru aşağıdaki linkte incelenmişti.

http://www.excel.web.tr/showthread.php?t=51412

 

[ofbalki]

Sayın Necdet Yeşertener o linki ve sizin dosyanızı inceledim ama, buraya uygulamayı beceremedim.

Benim istediğim, yukarıdaki gibi hücre içindeki metinde bazı kelimeleri bold yapmak.

Benim taklitçiliğim bunu yapmaya yetmedi.

 

[Ayhan Ercan]

Merhaba Sn ofbalki

Aşağıdaki Kodları İnceleyiniz....

Private Sub CommandButton1_Click()
With Range("D9")
    .Characters(8, 12).Font.Bold = True
    .Characters(32, 7).Font.Bold = True
End With
End Sub

Burada dikkat edilmesi gereken;
Characters(8, 12) satırındaki rakamlardır.

8 cümlenin içinde başlanacak karakteri, 12 ise başlanan karakterden itibaren kaç karakterin hedef alındığıdır.

Özetelersek, "Burası excel web tr,..." cümlesinde 8.karakter excel'in "e" harfidir. "e" harfinden itibaren 12.nci Karekter tr kelimesinin "r" harfidir.

Dolayısıyla bu iki karekterin arasında kalan diğer karekterler hedef alınmış oldu.

Not: Boşluklarda Karakterlere dahil edilir...

 

[Necdet]

Sayın ofbalki,

Bu tür işlemlerde characters fonksiyonunu kullanmak gerekir. Bunu kullanabilmek içinde hücre içindeki başlangıç ve uzunluk bilgilerine gereksinim var. Sözcük yada sözcükler değil, örneğin hücrenin 5. karakterinden itibaren 4 karakter uzunluğundaki yeri koyu, renk vs yap demek gerekir.

Yani Başlangıç karakter ve Uzunluk bilinirse gerisi kolay.

Not : Açıklamayı yapana kadar Sayın Ercan yanıtlamış.

 

[ofbalki]

Arkadaşlar teşekkür ederim. Böylece yeni bişey daha öğrenmiş oldum.

Peki bu değişken bir veri olursa. Yani bold olacak kelimenin karakter sayısı ya da öncesindeki kelimelerin karakter sayısı değişirse, bu işlemi uygulatma imkanı var mı?

 

[Ayhan Ercan]

Merhaba,

Characters([B]Range("a1"), Range("a2")[/B])

A1 hücresi = Başlangıç karakter sayısı
A2 hücresi = Başlangıçtan sonraki karakter sayısı

 

[ofbalki]

Sayın Ayhan Ercan, son yazdığınız kodu,hücre birleştir durumundamı kullanacağız, tam anlayamadım da, kusura bakmayın. İki kodu birleştirerek yazabilirmisiniz?

Benim çok fazla bilgim yok, yukarıda da belirttiğim gibi, sadece siz değerli ustalarımı taklit etmeye çalışıyorum.

 

[Ayhan Ercan]

Ek Dosyayı DENEME-YANILMA yöntemi kullanarak inceleyiniz....

Değişkenler ilk satır için A1 ve A2 hücresi,
ikinci satır için B1 ve B2 hücresidir.

Private Sub CommandButton1_Click()
With Range("D9")
    .Characters(Range("A1"), Range("A2")).Font.Bold = True
    .Characters(Range("B1"), Range("B2")).Font.Bold = True
End With
End Sub

 

[ofbalki]

Sayın Ayhan Ercan çok teşekkürler, saygılar.

 

[Ayhan Ercan]

Sayın Ayhan Ercan çok teşekkürler, saygılar.

Rica ederim.
İyi Çalışmalar...

 

[yeniyetme]

Sayın Ayhan Ercan bu kod benimde çok işime yarayacak..
İlgi ve alakanıza çok teşekkür ederim...

 

[m.gur]

Merhaba
Ben daha pratik bir yöntem kullanıyorum. Formül çubuğundan istediğiniz şekilde yapabiliyorsunuz.

 

[Necdet]

Merhaba,

Fikir vermesi açısından şöyle birşey yaptım.

A sütununda ad ve soyadların olduğunu varsayalım ve soyadların koyu olmasını düşünülem.

Sub SoyadiKoyuYap()
For i = 2 To [A65536].End(3).Row
    Dizi = Split(Cells(i, "A"), " ")
    Bas = Application.WorksheetFunction.Search(Dizi(UBound(Dizi)), Cells(i, "A"))
    Uzunluk = Len(Cells(i, "A")) - Bas + 1
    Range("A" & i).Characters(Bas, Uzunluk).Font.Bold = True
Next i
End Sub

 

[ofbalki]

Öneriniz için çok teşekkürler.

 

[pedasabyem]

Hücre içindeki bazı kelimeleri koyu yapmak:
Kendi istediğimiz kelimelerin bir listesi olsa ve sadece bu listedeki kelimeler koyu yapılmak istense.
Bu liste sizin verdiğiniz VBA kodunun içerisine eklenebilir mi acaba?
Verdiğiniz VBA kodu buna göre düzenlenebilir mi?

Saygılar

 

[dEdE]

...Kendi istediğimiz kelimelerin bir listesi olsa ve sadece bu listedeki kelimeler koyu yapılmak istense. Bu liste sizin verdiğiniz VBA kodunun içerisine eklenebilir mi acaba?...

Merhaba,
Liste kodun içine eklenebilir ama bu kullanışlı olmaz. Kelime sayısı çok fazla ise ve/veya zaman zaman kelimelere ekleme-çıkarma yapmak istenilirse sorun çıkabilir.
Praik bir yöntem olarak kelime listesini excelde bir sütuna yazıp, o sütun referans alarak istediğinizi yapmak daha kolaydır.
Benzer bir çalışmayı aşağıdaki linkte bulabilirsiniz.
http://www.excel.web.tr/f50/cumlenin-belli-bir-bolumunun-reklendirilmesi-t124609.html

 

[pedasabyem]

Sayın dEdE,
Verdiğiniz kod aslında ihtiyacım olan kod. Verdiğiniz linkteki duruma uygun şekilde yaptım, sanki kafasına göre sadece birkaç ismi kırmızı yaptı.
Küçük bir örnek dosyayı ekte gönderiyorum. İlgilenirseniz çok sevinirim.
Saygılarımla

 

[pedasabyem]

Sayın dEdE,
Verdiğiniz kod aslında ihtiyacım olan kod. Verdiğiniz linkteki duruma uygun şekilde yaptım, sanki kafasına göre sadece birkaç ismi kırmızı yaptı.
Küçük bir örnek dosyayı ekte gönderiyorum. İlgilenirseniz çok sevinirim.
Saygılarımla