Excel'deki hücre değerine göre şekil rengini nasıl değiştirebilirim?
Şekil rengini belirli bir hücre değerine göre değiştirmek, Excel'de ilginç bir görev olabilir; örneğin, A1'deki hücre değeri 100'den küçükse, şekil rengi kırmızıdır, A1 100'den büyük ve 200'den küçükse, şekil rengi sarıdır ve A1 200'den büyük olduğunda, aşağıdaki ekran görüntüsü gibi şekil rengi yeşildir. Hücre değerine göre şeklin rengini değiştirmek için bu makale sizin için yöntemi tanıtacaktır.
VBA kodu ile hücre değerine göre şekil rengini değiştirin
VBA kodu ile hücre değerine göre şekil rengini değiştirin
Aşağıdaki VBA kodu, şekil rengini bir hücre değerine göre değiştirmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Şekil 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, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boşluğa kopyalayıp yapıştırın modül pencere.
VBA kodu: Hücre değerine göre şekil rengini değiştirin:
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. Ve sonra A1 hücresine değeri girdiğinizde, şekil rengi tanımladığınız hücre değeriyle değiştirilecektir.
not: Yukarıdaki kodda, A1 şekil renginizin temel alınarak değiştirileceği hücre değeridir ve Oval 1 eklediğiniz şeklin şekil adıdır, bunları ihtiyacınıza göre değiştirebilirsiniz.
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!