Belirli Bir Metne Sahip Hücreleri Vurgulama
03 Eylül 2019
14 Ekim 2021
824
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 | |
|---|---|
| Binlik Ondalık Ayırıcı Ekleme | Ctrl Shift 1 |
| Hücreyi Sola Yaslı Hale Getirmek | Alt Ş SO |
| Ortası Çizgili Yazdırma | Ctrl 5 |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Hücreyi Üste Yaslı Hale Getirmek | Alt Ş ÜS |