Belirli Metni Vurgulama

27 Temmuz 2019 14 Ekim 2021 858

Bu kod ile Belirli Metni Vurgulama işlemini hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub MetinVurgulama()
Dim myStr As String
Dim myRg As Range
Dim myTxt As String
Dim myCell As Range
Dim myChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
    myTxt = ActiveWindow.RangeSelection.AddressLocal
Else
    myTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput: Set myRg = Application.InputBox("Veri aralığı seçiniz!:", "Zorunlu İşlem", myTxt, , , , , 8)
If myRg Is Nothing Then
Exit Sub
If myRg.Areas.Count > 1 Then
    MsgBox "çoklu sütun desteklenmez"
GoTo LInput
End If
If myRg.Columns.Count <> 2 Then
    MsgBox "seçilen aralık yalnızca iki sütun içerebilir"
GoTo LInput
End If
For I = 0 To myRg.Rows.Count - 1
    myStr = myRg.Range("B1").Offset(I, 0).Value
    With myRg.Range("A1").Offset(I, 0)
        .Font.ColorIndex = 1
        For J = 1 To Len(.Text)
            Mid(.Text, J, Len(myStr)) = myStrThen
            .Characters(J, Len(myStr)).Font.ColorIndex = 3
        Next
    End With
Next I
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.
50 Farklı Hazır Makro (VBA) Kodu
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Toplu Sütun Silme
Birden Çok Sütun Ekleme
Açıklama İçeren Tüm Hücreleri Vurgulama
Excel Kapanırken Otomatik İşlem Yaptırma
Hesap Makinesini Açma
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Seçili Sütunların Sayısını Bulma
Hücre Aralığını Görüntüye Dönüştürme
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Aktif Çalışma Sayfası Dışında Tümünü Silme
Belirli Bir Metne Sahip Hücreleri Vurgulama
Hücredeki Değişikliklerin Kaydını Tutma
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Bir Aralıktaki Minimum Değeri Renklendirme
UserForm Kapatma Kodu
Gizlenmiş Makro Örnekleri
Excel Üzerinden Klasör Açma Kodu
Şeffaf UserForm Oluşturma Kodu
Seçili Hücrenin Sütun Harfini Bulma
Bilgisayar Bilgilerini Özetleme
Boş Hücreleri Sıfırlarla Değiştirme
Makrolar ile Klasör Kopyalama
Dizinde Klasör Araması Yapma
Bilgisayardaki Sürücü Sayısını Bulma
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Grafiği Görüntü Olarak Yapıştırma
Excel Menüsüne Ekleme Yapma Kodu
Yanlış Yazılmış Hücreleri Vurgulama
Excel Tam Ekran Yapma
Tek Hücreyi Kes Kopyala ve Yapıştır
Bağlantılı Resim Ekleme
Yanıp Sönme Efekti Verme Kodu
Negatif Sayıları Poztif Sayıya Çevirme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Tek Sütunu Kes Kopyala ve Yapıştır
Makrolar ile Txt Dosyası Oluşturma
Bir Çalışma Kitabında Kaç Sayfa Var
Hoş Geldiniz Mesajı Ekleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
56 Renk Kodunu Sıralama
PDF Dosyalarını Birleştirme
Tüm Çalışma Sayfalarını Gösterme
Excel Hücresini Seçme Makrosu
Api ile Bilgisayar Adını Bulmak
Google Üzerinde Arama Yapma
Grafik Türünü Değiştirme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Hücre Aralığını Kes Kopyala ve Yapıştır

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...