2016-04-05 14 views
0

Arka plan renklerini, hücrenin sol taraftaki hücresiyle olan farkına göre ayırmamı sağlayan bir VBA kodu oluşturmaya çalışıyorum.Arka plan Rengi, hücre ile olan farka göre farklılık gösterir

açıklamama izin verin:

  • C3 kırmızıdır değerin daha yüksek B3 olduğunu çünkü: http://imgur.com/UUfaFRA

    Gördüğünüz Yukarıdaki resmin baktığınızda. o değeri değer bir VBA koduna bu koymak için çalıştı ama başarılı olmayan daha düşük B5

olduğunu çünkü

  • C5 yeşil B4 eşittir olduğu gibi
  • C4
  • rengi yoktur:

    If Sheets("x").Range("C3") > Sheets("x").Range("D3") Then 
    Sheets("x").Range("C3").Interior.ColorIndex = 3 
    
    :
    Sheets("x").Range("C3").FormulaR1C1 = 
    "=IF(RC>RC[-1],Interior.ColorIndex = 3,IF(RC<RC[-1,Interior.ColorIndex= 4))" 
    

    bir girişim bir IF kayıt fonksiyonu oldu

    Birinin bana doğru yöne işaret edebileceğini umuyorum (açıkça) hayır VBA guru.

    +2

    Neden Koşullu Biçimlendirme'yi kullanmıyorsunuz? –

    +0

    Yazdığınız ikinci seçenek, "End if" ile bitirirseniz ve C3 ve D3 ihtiyacınız olan hücreler ise çalışmalıdır. Onunla sorun nedir? – Vityata

    +0

    Scott'la birlikteyim. Her nasılsa "IF" fonksiyonunun çalışması gerekir: – user3598756

    cevap

    0
    If Sheets("x").Range("C3") > Sheets("x").Range("D3") Then 
    Sheets("x").Range("C3").Interior.ColorIndex = 3 
    

    Bu kod parçası çalışır. Bu kodun başarısız olmasına yol açan bazı aralık sorunları vardı.

    Desteğiniz için teşekkürler!