Belirli Bir Metne Sahip Hücreleri Vurgulama
03 Eylül 2019
14 Ekim 2021
863
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 | |
|---|---|
| Açılır Listeden Seçim Yapma | Alt ↓ |
| Anlık Sistem Saatini Yazma | Ctrl Shift : |
| Bitişik Olmayan Hücrelerde Sağa Gitme | Ctrl Alt → |
| Seçimi Ekle veya Kaldır | Shift F8 |
| Özel Yapıştır Penceresini Açma | Ctrl Alt V |