必要な関数

設定条件

設定する数式

条件付き書式

条件付き書式の中に、前述の数式を入力します。

動作確認

現在と異なるセルを選択して、ファンクションキーの[Ｆ９]を押します。
[Ｆ９]はワークシート内を再計算するショートカットキーです。


エクセルファンクションキー一覧

選択セルを含む行列がハイライトされるさることを確認します。
右隣の「今の時刻」が変化することにより、セル内が再計算されたことがわかります。





ただし・・・・・・・・・・・・・・・・

いちいち[Ｆ９]キーを押すのも面倒ですね！

CELL関数は現在アクティブなセルの情報を返してくれるのですが、
残念なことに、アクティブセルが変更された場合に自動では再計算してくれません

そこで、セルを選択しただけ自動でハイライトされるように、少しだけマクロ（ＶＢＥ）を使用することにします。
すなわち、選択セルが変更されたときに再計算されるようにすることです。

エクセルのＶＢＥはイベントドリブン方式（事象型駆動）で、事象が発生したときに該当プログラムが呼び出される）となっています。
この場合、イベント（選択セルが変更された）は　SelectionChange　となりますので、 この中にコードを書きます。

１．「開発」タブからＶＢＥ（Visual Basic Editor）を起動

　　「開発」タブ　→　「開発」リボン　→　VisualBasic



　　「開発」タブがリボンメニューに無い場合　→　開発タブの表示方法

２．Worksheet サブルーチン作成

コンボボックス（オブジェクトの選択）から、Worksheet　を選択



Worksheet_SelectionChange というサブルーチンが生成されました。

３．コード記述

自動で追加されたコードの中に、
　　　ActiveSheet.Calculate
を追加します。下図参照

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

Worksheet_SelectionChang は、ワークシートの選択セルの場所が変化したときに呼び出されます。

そして、呼び出されたときに、　　

ActiveSheet.Calculate

を実行（これは選択シートを再計算する命令）。

すなわち、選択位置が変わる度に、シート内の計算式（条件付書式や入力規則内の式を含む）が再計算され、書式が変更されることになります。

Application.ScreenUpdating = True

でも似た様な動作をしますが、画面の再表示（同時に再計算）の命令なので、画面全体がちらつく場合があります。
グラフなどの図形がある場合は特に気になります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("Table")) Is Nothing Then
        ActiveSheet.Calculate   'シート再計算
    End If

End Sub

Application.Intersect メソッド (Excel)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("Table")) Is Nothing Then
        Range("選択行") = ActiveCell.Row
        Range("選択列") = ActiveCell.Column
    End If
End Sub