• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre içerisinde belirli yeri biçimlendirme

  • Konbuyu başlatan Konbuyu başlatan eksiel
  • Başlangıç tarihi Başlangıç tarihi
E

eksiel

Katılım
17 Ekim 2022
Mesajlar
16
Excel Vers. ve Dili
2007 Türkçe
Merhabalar çok basit çözümü de olabilir ama bulamadım hücre içerisinde
Adı Soyadı: x
Yaş: y
Şehir: z yazıyor ben bu hücre içerisinde Adı Soyadı: Yaş: ve Şehir: kısımlarının kalın ve altı çizili yazmak istiyorum. Bul ve değiştir ile yapıyorum ama hepsi kalın oluyor Adı Soyadı: seçince falan yardımlarınızı bekliyorum teşekkür ederim
 
Koşullu biçimlendirme özelliği ile hızlıca yapabilirsiniz. Biçimlendirmek istediğiniz hücre aralığı seçin daha sonra koşullu biçimlendirme alanından hücre vurgulama kurallarından metin içeriğine gelin. Biçimlendirmek istediğiniz yazı örneğin Ad Soyad ise oradaki alana Ad Soyad diye yazın ve biçimlendirme türlerinden kalın ve alt yazıyı seçin. Bundan sonra seçili hücre aralığında Ad Soyad geçen tüm kelimeler istediğiniz biçimde gözükecektir.
 
Bunlar tek hücre içinde yazıyorsa makro ile yapılabilir.
 
statist' Alıntı:
Koşullu biçimlendirme özelliği ile hızlıca yapabilirsiniz. Biçimlendirmek istediğiniz hücre aralığı seçin daha sonra koşullu biçimlendirme alanından hücre vurgulama kurallarından metin içeriğine gelin. Biçimlendirmek istediğiniz yazı örneğin Ad Soyad ise oradaki alana Ad Soyad diye yazın ve biçimlendirme türlerinden kalın ve alt yazıyı seçin. Bundan sonra seçili hücre aralığında Ad Soyad geçen tüm kelimeler istediğiniz biçimde gözükecektir.
Genişletmek için tıkla ...
Hepsi öyle gözüküyor hocan
 
Hepsi öyle gözüküyor derken tüm hücre mi gözüküyor. Koşullu biçimlendirmeyi doğru yaptıysanız metin vurgu alanına ne yazılırsa sadece o kısım istediğiniz gibi görünür.
 
statist' Alıntı:
Hepsi öyle gözüküyor derken tüm hücre mi gözüküyor. Koşullu biçimlendirmeyi doğru yaptıysanız metin vurgu alanına ne yazılırsa sadece o kısım istediğiniz gibi görünür.
Genişletmek için tıkla ...
Evet hocam metin vurgu derken neyi kastediyorsunuz içeren metin esitse ile olmuyor dediğiniz nedir
 
Bu verileri içeren bir hücrenin gorselini paylaşınız. Böylece durum daha net anlaşılır.
 
Korhan Ayhan' Alıntı:
Bu verileri içeren bir hücrenin gorselini paylaşınız. Böylece durum daha net anlaşılır.
Genişletmek için tıkla ...

resimyukle.io - This website is for sale! - resimyukle Resources and Information.

This website is for sale! resimyukle.io is your first and best source for all of the information you’re looking for. From general topics to more of what you would expect to find here, resimyukle.io has it all. We hope you find what you are searching for!
resimyukle.io resimyukle.io
Adı Soyadı: ve Şehir: kısımları kalın ve altı çizili olsun istiyorum
 
Merhaba,

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz. Paylaştığınız görsele göre düzenledim.

Modül ekleme ve makro işlemleri için linkleri inceleyebilirsiniz.


C++: 
Option Explicit

Sub Bold_And_Underline_Search_Data()
    Dim Rng As Range, All_Find_Text As Object, X As Long
    Dim Find_Text As Object, My_Pattern As Variant

    Application.ScreenUpdating = False

    Range("C2:C" & Rows.Count).Font.Bold = False
    Range("C2:C" & Rows.Count).Font.Underline = False

    With VBA.CreateObject("VBScript.RegExp")
        For Each Rng In Range("C2:C" & Cells(Rows.Count, "C").End(3).Row)
            For Each My_Pattern In Array("(Adı Soyadı:)", "(Şehir:)")
                .Pattern = My_Pattern
                .Global = True
            
                Set All_Find_Text = .Execute(" " & Rng.Value & " ")
            
                For Each Find_Text In All_Find_Text
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Bold = True
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Underline = True
                Next
            Next
        Next
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Korhan Ayhan' Alıntı:
Merhaba,

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz. Paylaştığınız görsele göre düzenledim.

Modül ekleme ve makro işlemleri için linkleri inceleyebilirsiniz.


C++: 
Option Explicit

Sub Bold_And_Underline_Search_Data()
    Dim Rng As Range, All_Find_Text As Object, X As Long
    Dim Find_Text As Object, My_Pattern As Variant

    Application.ScreenUpdating = False

    Range("C2:C" & Rows.Count).Font.Bold = False
    Range("C2:C" & Rows.Count).Font.Underline = False

    With VBA.CreateObject("VBScript.RegExp")
        For Each Rng In Range("C2:C" & Cells(Rows.Count, "C").End(3).Row)
            For Each My_Pattern In Array("(Adı Soyadı:)", "(Şehir:)")
                .Pattern = My_Pattern
                .Global = True
           
                Set All_Find_Text = .Execute(" " & Rng.Value & " ")
           
                For Each Find_Text In All_Find_Text
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Bold = True
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Underline = True
                Next
            Next
        Next
    End With
   
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Genişletmek için tıkla ...
İşte bu ya çok teşekkür ederim basit bir şey ama yapması işkence oldu benim için maşallahnz var hocam bu seviyeye gelmek için ne yapmak lazım:)
 
Çok çalışmak gerekir... ;)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst