Excel'de şekil rengini hücre değerine göre nasıl değiştirebilirsiniz?
Bir şeklin rengini belirli bir hücre değerine göre değiştirmek, Excel’de oldukça etkileyici bir görev olabilir. Örneğin, A1 hücresindeki değer 100’den küçükse şekil kırmızı, 100 ile 200 arasında ise sarı, 200’den büyükse yeşil olsun—tam da aşağıdaki ekran görüntüsünde gösterildiği gibi. Bu makale, bir hücre değerine göre şeklin rengini akıllıca değiştirmeniz için size pratik bir yöntem sunuyor.
Hücre değerine göre şekil rengini VBA koduyla değiştirme
Hücre değerine göre şekil rengini VBA koduyla değiştirme
Aşağıdaki VBA kodu, bir hücrenin değerine göre şeklin rengini değiştirmenize olanak tanır. Lütfen aşağıdaki adımları uygulayın:
1. Şekil rengini değiştirmek istediğiniz sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle seçeneğini seçin. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın.
VBA kodu: Hücre değerine göre şekil rengini değiştirme:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Bundan sonra A1 hücresine bir değer girdiğinizde, şekil rengi belirttiğiniz şekilde hücre değerine göre değişecektir.
Not: Yukarıdaki kodda, A1, şeklinizin renginin dayandığı hücre değeridir; Oval 1 ise eklediğiniz şeklin adıdır. Bunları ihtiyacınıza göre değiştirebilirsiniz.
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