Hücre değerine göre sayfa sekmesi rengi nasıl değiştirilir?
Normalde, sekme rengini Excel'de kolayca ve hızlı bir şekilde değiştirebilirsiniz, ancak sekme rengini çalışma sayfasındaki hücre değerine göre değiştirmeyi hiç denediniz mi? Bu göreve ilgi duyuyorsanız, Excel'deki belirli bir hücre değerine göre sayfa sekmesini renklendirmeniz için bazı kodlardan bahsedeceğim.
VBA kodu ile hücre değerine göre bir sayfa sekme rengini değiştirin
VBA kodu ile hücre değerine göre birden çok sayfa sekmesini değiştirin
VBA kodu ile hücre değerine göre bir sayfa sekme rengini değiştirin
Örneğin, A1'deki hücre değeri "DOĞRU" ise geçerli sayfa sekme renginin yeşil olmasını, A1'deki metin "YANLIŞ" ise sekme renginin kırmızı olmasını ve eğer sekme renginin mavi olmasını istiyorum. A1 hücresindeki değer, aşağıdaki ekran görüntüsü gibi başka herhangi bir metindir:
1. A1 hücresindeki verilere göre rengini değiştirmek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden.
2. In Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki VBA kodunu kopyalayıp modül pencere.
VBA kodu: Hücre değerine göre bir sayfa sekme rengini değiştirin:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Not: Yukarıdaki kodda, A1 sekmeyi temel alarak renklendirmek istediğiniz hücre referansıdır, "Gerçek""Yanlış"İhtiyacınız olan metinlerdir, bunları ihtiyacınıza göre değiştirebilir ve koddaki rengi istediğiniz gibi değiştirebilirsiniz.
3. Ardından bu kod penceresini kaydedin ve kapatın, şimdi A1 hücresine "True" metnini girdiğinizde, mevcut sekme rengi yeşil olacak ve A1 hücresine "False" metnini girdiğinizde sekme rengi kırmızı olacak, ve A1 hücresine başka bir metin girilirse, sekme rengi otomatik olarak mavi olur.
VBA kodu ile hücre değerine göre birden çok sayfa sekmesini değiştirin
Bir hücre değerine göre birden fazla sayfa sekmesinin rengini değiştirmeniz gerekirse, burada bir kod da size yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere, açılan pencerede çift tıklayın Bu Çalışma Kitabı altında VBAProjesi bölümünü, ardından aşağıdaki kodu kopyalayıp boşluğa yapıştırın modül:
VBA kodu: Hücre değerine göre birden çok sayfa sekmesini değiştirin:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Not: Yukarıdaki kodda, A1 ve Master, sekmeyi temel alarak renklendirmek istediğiniz hücre ve çalışma sayfasıdır. Sheet1, Sheet2, Sheet3 sekmeleri renklendirmek istediğiniz çalışma sayfalarıdır. KTE, KTW'ye, KTO A1'deki sekmeleri temel alarak renklendirmek istediğiniz hücre değerleridir, koddaki referansları ve renkleri ihtiyaç duyduğunuz şekilde değiştirebilirsiniz.
2. Ardından, bu kod penceresini kaydedin ve kapatın, şimdi Ana sayfanın A1 hücresine KTE metnini girdiğinizde, Sayfa1 sekmesi kırmızı renkte olacak, A1 hücresine KTO girdiğinizde, Sayfa2 yeşil renkte olacak ve ne zaman KTW'yi A1 hücresine girerseniz, Sheet3 mavi renkte olacaktır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
