Note: The other languages of the website are Google-translated. Back to English

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


ok mavi sağ balon 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 değerine göre doc renk sayfası

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

2 değerine göre doc renk sayfası

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.


ok mavi sağ balon 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

3 değerine göre doc renk sayfası

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:

4 değerine göre doc renk sayfası


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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (23)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayın.
lütfen tarih/güne göre sayfa sekme rengini nasıl değiştireceğime yardım edin.

Örneğin: -
1 numaralı sayfa Pazar ise - sayfa sekmesi 'KIRMIZI'
2 numaralı sayfa Pazartesi ise - sayfa sekmesi 'Yeşil'
3 numaralı sayfa Salı ise - sayfa sekmesi 'Yeşil'
4 numaralı sayfa Çarşamba ise - sayfa sekmesi 'Yeşil'
5 numaralı sayfa Perşembe ise - sayfa sekmesi 'Yeşil'
6 numaralı sayfa Cuma ise - sayfa sekmesi 'Yeşil'
7 numaralı sayfa Cumartesi ise - sayfa sekmesi 'Yeşil'

lütfen yukarıdaki excel sorunu için bana yardım edin.

Teşekkür ve Saygılarımızla
Faiz ibn Uvaiz P.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Açıklamanız, gerçekte ne yapmaya çalıştığınız konusunda biraz belirsiz. Çalışma kitabı yalnızca bir haftalıksa, sekmeleri renklendirin. Süre bir haftadan uzunsa, çözüm biraz daha karmaşıktır. Sorunu detaylandırana kadar, mevcut birkaç çözüm var. Ben ve birçok insan, sizin için 2,000 çözümü ücretsiz olarak kodlamak için zamanımızı harcamayacağız. Ancak, 1 çözüm sağlayabileceğimiz sorunu detaylandırıyorsunuz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
hava durumuna bağlı olarak bir sekme rengini nasıl değiştirebilirim, bir dizi hücrenin içinde metin var
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formül 'Doğru' için çalışıyor - sayfa sekmesi KIRMIZI, bu harika ama 'Doğru'dan 'Yanlış'a değiştirirsem, sayfa sekmesinin 'renksiz' olmasını istiyorum. 'Doğru' seçili değilse, sayfa sekmesinde renk olmamasının formülü nedir? Ayrıca formülün bir hücre grubu için olmasını istersem, örneğin. A1:A30 Kullandığım kod nedir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Shannon:
Aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen deneyin:

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Aralık olarak Dim xRg
xRg'yi ayarla = Kesişme(Hedef, Aralık("A1:A30"))
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
Vaka Hedefi Seçin.Değer
"Doğru" vakası
Me.Tab.Color = vbRed
Dava "Yanlış"
Me.Tab.Color = Yanlış
Select End
End Sub

Umarım bu size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sekme renginin aşağıdakilere göre değişmesini sağlamanın bir yolu var mı: 3-7. satırların mavi renkle renklendirildiği ve karşılık gelen 3-7 sekmelerine karşılık geleceği bir ana sekmem var (bunlar, bu satırlar) mavi renkli olmasını isterim. Ardından 8-12 sıraları yeşil renktedir ve ayrıca 8-12 sekmelerine karşılık gelir ve bu şekilde devam eder.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika bir numaraydı.
Sekme rengini A1 hücresinin değerine göre bağladım (<>0 KIRMIZI ve =0 Yeşil), ancak makro yalnızca A1'i seçip F2'ye ve ardından enter'a basarsam çalışır. Bunu yapmadan, sekmenin renginin (değerine göre) Kırmızı olması gerekir, ancak yeşil kalır.
excel 2007 kullanıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
A1 hücresinin 3 yanıtı da hücre içindeki ayrı satırlarda alabildiğinde bunu yapmak mümkün müdür? Yani KTE, KTO ve KTW, bir açılır listeden birden çok seçime izin verdiği için hücrede bulunur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu kullanmaya ve bir onay kutusuna uygulamaya çalışıyorum, bu yüzden kutuyu işaretlediğimde renk değişiyor, işareti kaldırırsam tekrar değişiyor (true=green, false=red ,else=red aldım) . Ancak işaretleyip işaretini kaldırdığımda 'nesne gerekli' hatası veriyor


Özel Alt CheckBox1_Click ()
_____If Target.Address = "$e$5" O zaman 'burada hata
__________ Vaka Hedefini Seçin.Değer
__________Durum "Yanlış"
_______________Me.Tab.Color = vbRed
__________Durum "Doğru"
_______________Me.Tab.Color = vbGreen
__________Diğer Durum
_______________Me.Tab.Color = vbRed
__________Son Seçimi
_____Son ise
End Sub

Çalıştığını görmek için kopyalayıp yapıştırdım ve sonra ihtiyacıma göre ayarladım ama çalıştırmanın bir yolunu bulamazdım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili meslektaşlarım,
Lütfen yardım isteyin. [s]:mm biçimindeki değere göre sayfa sekme rengini değiştirmem gerekiyor. Örneğin, değer 20:00'nin altındaysa - kırmızı, >20:00 yeşil.
Teşekkür ve saygılarımla!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili meslektaşlarım,
Lütfen yardım isteyin. [s]:mm biçimindeki değere göre sayfa sekme rengini değiştirmem gerekiyor. Örneğin, değer 20:00'nin altındaysa - kırmızı, >20:00 yeşil.
Teşekkür ve saygılarımla!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Victor,
Aşağıdaki VBA kodu sorununuzu çözebilir, lütfen deneyin, umarım size yardımcı olabilir!

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
xStr'yi Dize Olarak Kıs
Dize olarak xSN'yi karart
Dim xDate As Dize
Dize Olarak xAddress Dim
Dim xArr() Dize Olarak
Dim xI1 Tamsayı Olarak
Dize olarak xSM'yi karart
xDate = "20:00"
xAdres = "$A$1"
Eğer Target.Address <> xAddress ise Sub'dan Çıkın
xStr = Hedef.Metin
xArr = Böl(xStr, ":")
If (UBound(xArr) - LBound(xArr) + 1) > 2 Sonra Sub'dan Çıkın
xI1 = Int(xArr(0))
Eğer (Len(xArr(0)) - 2) < 1 O zaman
xI1 > 23 ise Sub'dan Çıkın
başka
Exit Sub
Eğer son
xSM = xArr(1)
Hatada GoTo Err01
If (Len(xSM) - 2) <> 0 Sonra Sub'dan Çık
Int(Left(xSM, 1)) > 5 ise Sub Exit
Int(Right(xSM, 1)) > 10 ise Sub Exit
xI1 >= 20 ise
Me.Tab.Color = vbGreen
başka
Me.Tab.Color = vbRed
Eğer son
Hata01:
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Skyyang,
Çok geç geri bildirim için özür dilerim. Hücredeki değeri el ile değiştirdiğimde bu formül çalışıyor. Ama ihtiyacım olan bu değildi.
Hücre değeri, fark sayfalarından alınan bir formülün sonucudur. Örneğin, "O13-'520'!AD3" hücresindeki formül budur. Bu, bu hücredeki değerin, deferent sayfasındaki deferent hücrenin değerine bağlı olarak değiştiği anlamına gelir. İhtiyacım olan şey, "O13-'520'!AD3" hücresindeki değer değiştiğinde, "O13-'520'!AD3" hücresindeki değer 05:00'in altında olduğunda sayfa renginin otomatik olarak değişmesi - kırmızı , >20:00 yeşil, 05:00 ile 20:00 arası kahverengi.
Şimdiden teşekkür ederim ve saygılarımla!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese merhaba, çoklu sayfaların sütunundaki belirli bir değere göre sekme rengini nasıl değiştirebilirim? teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sekmeyi farklı bir sekmedeki bir değere nasıl bağlarsınız? Örneğimde, çeşitli sekmelere otomatik olarak filtre uygulayan tüm bilgileri içeren bir sekmem var. Ancak, ana sekmede bekleyen bir bakiye olup olmadığına bağlı olarak her sekme yeşil veya kırmızı olarak görünecektir. Bu, bu kod kullanılarak yapılabilir mi ve eğer öyleyse, bu kodun içindeki ana sayfanın bağlantısını nereye yazarım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Daha önce excel'de hiç kod yazmadım. Bu kodun yaptığını yapan bir koda ihtiyacım var ama başka bir parametreye ihtiyacım var.

Yani ihtiyacım olan şey:

Hücre değeri 0 değilse ve/veya başka bir hücrenin içinde sayılar varsa, sayımı kullanarak rengi kırmızıya çevirin

Hücre değeri 0 ise ve diğer hücreler boşsa, sayımı kullanarak rengi yeşile çevirin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Burada Tracking adlı ayrı bir sayfadaki değere göre sekme rengi değiştirmeye çalışmak denedim ama çalışmıyor gibi görünüyor. teşekkürler




Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)

'güncelleme Extendoffice 20160930

Target.Address = "İzleme!$C$2" ise

Vaka Hedefi Seçin.Değer

"ip" vakası

Me.Tab.Color = vbRed

"w" vakası

Me.Tab.Color = vbYellow

"c" durumu

Me.Tab.Color = vbGreen

Else Kılıf

Me.Tab.Color = vbBlue

Select End

Eğer son

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Brad,
Kodun doğru çalışması için, sayfa adını koda eklememelisiniz, lütfen aşağıdaki kodu ekleyin: (bu kodu çalıştırmak istediğiniz sayfa adına tıklayın ve ardından sayfa adına sağ tıklayın ve Kodu Görüntüle'yi seçin, ardından kodu modüle yapıştırın)

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)

'güncelleme Extendoffice 20160930

Target.Address = "$C$2" ise

Vaka Hedefi Seçin.Değer

"ip" vakası

Me.Tab.Color = vbRed

"w" vakası

Me.Tab.Color = vbYellow

"c" durumu

Me.Tab.Color = vbGreen

Else Kılıf

Me.Tab.Color = vbBlue

Select End

Eğer son

End Sub

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir formülün 2 sonucundan birine dayanarak sekmenin rengini değiştirmek istiyorum =IF((AND(AA1="Occupied",AA2="Occupied",AA3="Occupied",AA4=") formülüne sahibim İşgal edildi")),"İşgal Edildi","Boş")
Sekmenin "Dolu" ise kırmızı ve "Boş" ise yeşil olmasına ihtiyacım var. Ancak, ana gönderideki yukarıdaki kod, If Than'in çıktısını tanımıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba ,
biraz yardıma ihtiyacım var
Sayfa sekme rengini yalnızca belirli bir hücre aralığında bugünün tarihi varsa değiştirmem gerekiyor
Örneğin, söyle
Sütun L biçiminde bazı tarihler var (13-Mayıs-22)
Hücre değerlerinden biri bugünün tarihidir, ardından sekme sayfası rengi kırmızıya dönmelidir
Lütfen yardım et
Şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
O veya P sütunundaki herhangi bir hücrenin içinde bir değer varsa, sekmemin rengini değiştirmesini istiyorum. Mümkün mü?

Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Her sayfadaki j4 hücresinin rengine göre sayfa sekme rengini ayarlamak istiyorum. 18+ Sekme var ve çalışma kitabı açıldığında sekme renklerini güncellemek istiyor. Açıldığında güncelleme yapamıyorsam takımlar sayfaları güncelledikten sonra makroyu çalıştırabilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba, ahşap
Sorununuzu çözmek için lütfen aşağıdaki kodu uygulayın: (not: Aşağıdaki kodu kopyalayıp içine yapıştırın. Bu Çalışma Kitabı kod modu)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Lütfen bir deneyin, umarım size yardımcı olabilir!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır