Hücre değerine göre sayfa sekmesi rengi nasıl değiştirilir?
Normalde Excel’de sekme rengini kolayca ve hızlıca değiştirebilirsiniz; ancak bir çalışma sayfasındaki hücre değerine göre sekme rengini değiştirmeyi hiç denediniz mi? Bu görev ilginizi çekiyorsa, belirli bir hücre değerine göre Excel’de sayfa sekmesini renklendirmeniz için size bazı kodlar paylaşacağım.
VBA koduyla bir sayfa sekmesinin rengini hücre değerine göre değiştirme
VBA koduyla birden fazla Sayfa Sekmeleri'nin rengini hücre değerine göre değiştirme
VBA koduyla bir sayfa sekmesinin rengini hücre değerine göre değiştirme
Örneğin, A1 hücresindeki değer "TRUE" metniyse Geçerli çalışma sayfası sekmesi yeşil, "FALSE" ise kırmızı, A1 hücresindeki değer başka herhangi bir metinse sekme mavi olsun. Aşağıdaki ekran görüntüsünde gösterildiği gibidir:
1. A1 hücresindeki verilere göre rengini değiştirmek istediğiniz sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini seçin.
2. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu kopyalayıp Modül penceresine yapıştırın.
VBA kodu: Bir sayfa sekmesinin rengini hücre değerine göre değiştirme:
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, sekme rengini belirlemek istediğiniz hücre başvurusudur; "True" ve "False", kullanmak istediğiniz metinlerdir. Bunları ihtiyacınıza göre değiştirebilir, kodda istediğiniz renkleri ayarlayabilirsiniz.
3. Ardından bu kod penceresini Kaydet ve Kapat. Artık A1 hücresine "True" yazdığınızda geçerli sekmenin rengi yeşil, "False" yazdığınızda kırmızı olacak; A1 hücresine başka bir metin girdiğinizde ise sekme rengi otomatik olarak maviye dönecek.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
VBA koduyla birden fazla Sayfa Sekmeleri'nin rengini hücre değerine göre değiştirme
Birden fazla sayfa sekmesinin rengini bir hücre değerine göre değiştirmeniz gerekiyorsa, işte size yardımcı olabilecek bir kod. Lütfen aşağıdaki adımları uygulayın:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın. Açılan pencerede, VBAProject bölümünün altında yer alan ThisWorkbook öğesine çift tıklayın ve ardından aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın:
VBA kodu: Birden fazla Sayfa Sekmeleri'nin rengini hücre değerine göre değiştirme:
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 hücresi ve Master çalışma sayfası, sekmelerin rengini belirlemek için temel alınan öğelerdir. Sheet1, Sheet2 ve Sheet3, renk vermek istediğiniz çalışma sayfalarıdır. KTE, KTW ve KTO, A1 hücresinde sekmelerin rengini belirlemek için kullanmak istediğiniz hücre değerleridir. Kodda referansları ve renkleri ihtiyacınıza göre özelleştirebilirsiniz.
2. Ardından bu kod penceresini Kaydet ve Kapat. Artık Master sayfasının A1 hücresine KTE yazdığınızda Sheet1 sekmesi kırmızıya, KTO yazdığınızda Sheet2 yeşile ve KTW yazdığınızda Sheet3 maviye boyanacak. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar