[Yardım]  Buton İle İstenilen Kelimeleri Kalın Yapmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#1)  Metin1981 » 23 Haz 2018 10:30

İyi günler;
ekli örnek dosyadaki D16 ve D17 hücre içerisindeki verilerin içerisinde bulunan ORMAN SAYILMAYAN YERLERDEN ve ORMAN SAYILAN YERLERDEN yazılı kelimeleri buton ile makro kullanarak kalın punto yapabilir miyiz ?.Yardımcı olur musunuz ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 41
İleti: 771
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#2)  Tarkan VURAL » 23 Haz 2018 11:02

Selamlar
ActiveCell nesnesinin Characters özelliğinden faydalanarak bulunan metnin font özelliklerini değiştirebilirsiniz.
Koddaki evn dizisi ve i döngüsü değerlerini arttırarak değiştirebilirsiniz. Deneyiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
evn = Array("ORMAN SAYILAN YERLERDEN", "ORMAN SAYILMAYAN YERLERDEN")
For i = 16 To 17 ' satırlar
    kelime = Range("d" & i).Text
    For x = LBound(evn) To UBound(evn) ' aranacak parça cümlenin dizisi
    bul = evn(x)
        If kelime Like "*" & bul & "*" Then
            ayir = Split(kelime, evn(x))
            hedef = Len(ayir(0))
            parca = Len(evn(x))
            Cells(i, "d").Characters(hedef, parca).Font.Bold = True
        End If
    Next x
Next i
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26985
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#3)  Metin1981 » 23 Haz 2018 11:53

Tarkan bey çok teşekkür ederim.Yalnız Orman Sayılmayan Yerlerden,Orman Sayılan Yerlerden sonundaki "N " harfi kalın punt olmuyor.Birde makro küçük harfe de duyarlı olabilir mi ?.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 41
İleti: 771
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#4)  Tarkan VURAL » 23 Haz 2018 12:25

Merhaba,
Metin1981 yazdı:sonundaki "N " harfi kalın punt olmuyor.

parca = Len(evn(x)) +1 olarak deneyiniz.

Metin1981 yazdı:Birde makro küçük harfe de duyarlı olabilir mi ?.

Kod sayfasının en üstüne ( ilk satıra ) Option Compare Text ekleyerek deneyiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26985
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#5)  Metin1981 » 23 Haz 2018 14:54

Tarkan bey Çok teşekkür ederim.Ellerinize sağlık.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 41
İleti: 771
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#6)  aarslantr » 15 May 2019 09:01

Merhaba aşağıdaki kodu kullandım çalışıyor fakat belirlediğim kelimeler aynı cümle içerisinde birden fazla ise ilki hariç diğerlerini bold yapmıyor.


Tarkan VURAL yazdı:Selamlar
ActiveCell nesnesinin Characters özelliğinden faydalanarak bulunan metnin font özelliklerini değiştirebilirsiniz.
Koddaki evn dizisi ve i döngüsü değerlerini arttırarak değiştirebilirsiniz. Deneyiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
evn = Array("ORMAN SAYILAN YERLERDEN", "ORMAN SAYILMAYAN YERLERDEN")
For i = 16 To 17 ' satırlar
    kelime = Range("d" & i).Text
    For x = LBound(evn) To UBound(evn) ' aranacak parça cümlenin dizisi
    bul = evn(x)
        If kelime Like "*" & bul & "*" Then
            ayir = Split(kelime, evn(x))
            hedef = Len(ayir(0))
            parca = Len(evn(x))
            Cells(i, "d").Characters(hedef, parca).Font.Bold = True
        End If
    Next x
Next i
End Sub
Kullanıcı avatarı
aarslantr
 
Kayıt: 14 May 2019 11:57
Meslek: Yönetici
Yaş: 48
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#7)  Tarkan VURAL » 15 May 2019 09:12

Merhaba, sitemize hoş geldiniz. Örneğiniz farklı, aynı işlemleri yapması beklenemez. Aynı kelimelerin işleme girmesi için bir döngüye girilip ilkten sonra işlem alması gerekebilir. Örnek bir dosya (rar, zip, 7z.. sıkıştırarak) yüklerseniz yardımcı olmaya çalışalım.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26985
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Buton İle İstenilen Kelimeleri Kalın Yapmak

İleti#8)  aarslantr » 15 May 2019 15:12

Merhaba Tarkan Bey,

Her sözleşmede değişen bazı değerleri tek bir seferde değiştirmek için excel ortamına taşıdığım dosyanın kısa bir bölümünü iletiyorum. Aslında dosya sözleşme olduğu için yaklaşık 24 sayfa oluşturacak kadar uzun. Kod içerisinde belirlediğim kelimeler, komutu çalıştırdığımda hücre içerisinde ilk ise bold oluyor. Ancak devamındakiler bold olmuyor. Belirttiğiniz gibi tekrar işlem alması gerekiyor olabilir. Ancak buna da benim kod bilgim yeterli gelmiyor.

Bu arada evn = Array satırında kaç tane kelime yazabiliriz? Bold olmasını istediğim kelime sayısı 3'ten fazla. Buraya istediğimiz kadar kelime yazabilir miyiz?

İlginiz için teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
aarslantr
 
Kayıt: 14 May 2019 11:57
Meslek: Yönetici
Yaş: 48
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe