2016-04-05 8 views
0

VBAコードを作成しようとしています。これは、左側に隣接するセルとの違いに基づいてセルに背景色を割り当てることができます。セルとの違いに基づく背景色

私が説明することを許可する: http://imgur.com/UUfaFRA

あなたが見ることができる上に画像を見てみると:それは価値がB3よりも大きいですので、

  • C3は赤です。それは価値が、それは価値が私はVBAコードにこれを入れてみましたが、成功しない未満B5

ありますので

  • C5が緑色であるB4に等しいだとして
  • C4
  • は何色がありません。

    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))" 
    

    別の試みは、IF関数を記録していました

    私は誰も正しい方向に向けることができると私は(明らかに)VBAの達人であることを望んでいる。

    +2

    なぜ条件付き書式設定を使用しないのですか? –

    +0

    "End if"で終わり、C3とD3が必要なセルで終わると、書いた2番目のオプションが有効になります。それの問題は何ですか? – Vityata

    +0

    私はスコットと一緒です。とにかくあなたの "IF"関数の試みはうまくいくはずです:あなたはそれにどのような問題がありますか? – user3598756

    答えて

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

    このコードは機能します。元来、このコードが失敗したいくつかの範囲の問題がありました。

    ありがとうございます。

    関連する問題