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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!