Belirli Bir Metne Sahip Hücreleri Vurgulama
03 Eylül 2019
14 Ekim 2021
831
Bu kod ile Belirli Bir Metne Sahip Hücreleri Vurgulama işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub BelirliMetin()
Dim rng As Range
Dim i As Integer
Dim c As Variant
c = InputBox("Vurgulanacak Değer")
For Each rng In ActiveSheet.UsedRange
If rng = c Then
rng.Style = "Not" 'İngilizce için "NOTE" yazabilirsiniz.
i = i + 1
End If
Next rng
MsgBox "Toplam" & i & " " & c & " vurgulama yapıldı."
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Etiketler :
- Excel koşullu biçimlendirme Simge Kümeleri formül
- Koşullu BİÇİMLENDİRME nedir
- Koşullu biçimlendirme formül
- Excel koşullu biçimlendirme Nedir
- Excel Koşullu biçimlendirme Eğer formülü
- Bir koşula bağlı olmadan veri dağılımına göre hücreleri renklendirmek için kullanılan bileşen
- Excel Koşullu biçimlendirme hücre renklendirme
- Excel başka hücre değerine göre Koşullu biçimlendirme
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| Hücreyi Sola Yaslı Hale Getirmek | Alt Ş SO |
| Tablonun Satırını Seçme | Shift Space |
| İşlemi Tamamlama/Onaylama | Enter |