手動計算時の条件付書式判定

質問

excel2010

条件付き書式の判定に制約あるのでしょうか？

A1,B1,C1セルに数値を設定し、
C2セルに=SUM(A1:C1)と設定します。

C2セルの条件付書式は、セルの値　次の値より大きい　=500
上記条件で文字色を赤

としています。

計算方法の設定は手動。

また、マクロで下記を設定しています
Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Row = 1) And (Target.Column >= 1 And _
Target.Column <= 3) Then
'セルの値に変更があったときに実行したい処理を記述
Calculate

End If

End Sub

C2セルが５００より大きくなったら、数値が赤になるはずですが、変わりません。
計算は実施しているのになぜ赤色にならないのでしょう？

下記の様にマクロを変更し、計算方法の設定を自動にすると正しく判定されます。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.Calculation = xlCalculationAutomatic '自動 xlCalculationManual

If (Target.Row = 1) And (Target.Column >= 1 And _
Target.Column <= 3) Then
'セルの値に変更があったときに実行したい処理を記述
Calculate

End If

Application.Calculation = xlCalculationManual

End Sub

上記で、とりあえずいけたのですが、計算はしているのに条件判定されないのが？？？
です。

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

> Calculate

この記述は、sheet.Calculate メソッドで
モジュールの親シートすべてを再計算させていますが、
条件付き書式の再計算をさせるには、
一旦そのセルを再計算させてからでないと反映されません。
（たぶん記述を書いた後の１回めだけは反映される筈ですが）

なので、直接再計算させたいセルだけを
range.Dependents プロパティ（rangeを参照している参照先セル範囲）で捉えて、
（sheet.Calculate メソッドではなく）
range.Calculate メソッドで、
セル範囲を再計算させます。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Row > 1 Then Exit Sub
　　If Target.Column > 3 Then Exit Sub
　　Target.Dependents.Calculate
End Sub

これなら一発で条件付き書式の再計算まで反映されます。
（※sheet.Calculate を直前に実行後、コード書換えて試した場合は
　２回目の再計算以降から正しく反映されるようになります）
sheet.Calculate メソッドを実行させる必要があるなら、
range.Calculate メソッドの直後に実行させればいいです。

お礼

回答ありがとうございます。Target.Dependents.Calculate
でばっちりでした。その様な制約があるのですね。
私のマクロでもセル自体の値は変更されるので誤解しました。

回答No.2

real beatin（@realbeatin）

＃１です。説明不足がありました。

＃１の記述は、
　_Change イベントが書かれている親シートがアクティブな状態で
　A1:C3の値が変更（確定）された場合、
という前提で書かれています。

もしも、マクロからの処理で、他のシートがアクティブな状態で
このイベントが呼び出された場合、
　　Target.Dependents.Calculate
はエラーになります（range.DependentsはActiveSheetでしか機能しない）。
対策としては、セル範囲を決め打ちして再計算させるしかありませんので、
　　Cells(2, "C").Calculate
と書いておいた方が、
却ってトラブルフリーなのかも知れません。
（もっとも、最適化を図るなら本来は、
　＜他のシートがアクティブな状態でこのシートのセル値を変更させる＞マクロ
　の側で、セル値を変更させた後にrange.Calculateさせて、
　二次的なイベント（_Change イベント）を実行させないように書くのが
　正しいやり方です。）

　　Target.Dependents.Calculate
か
　　Cells(2, "C").Calculate
実際の必要の如何に応じて、どちらかが正解、という意味ですので、
違いを理解してから選んでみてください。

お礼

追加の説明までいただきありがとうございます。
条件付書式は、同一シートで複数セルに使用します。
またこの条件付き書式判定してから自動のマクロを動作させる構成なので、Target.Dependents.Calculate
でばっちりです(*^。^*)