シートの再計算を自動で

質問

シートの再計算を自動で

先日こちらでお世話になりまして
Private Sub Worksheet_Calculate()
If WorksheetFunction.CountIf(Range("A1:A10"), 3) > 0 _
Or WorksheetFunction.CountIf(Range("A1:A10"), 5) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.ColorIndex = -4142
End If
End Sub
というコードでA1からA10の範囲の数字が3か5になるとシート見出しが赤くなるという方法を教えていただきました。http://okwave.jp/qa/q5745367.html

おかげさまでそのシートでは3か5になった時、自動でシート見出しが赤くなったのですが、他のシートに同じコードを記述した時に、自動で同じ変化が起こらず、ツール→オプション→計算方法→シートの再計算をしたところシート見出しが赤くなりました。このシートの再計算いちいち行わず、自動で行う事は可能でしょうか？どなたかご教授いただけますと幸いです。

回答No.2

KURUMITO · ベストアンサー

Visual Basicをクリックしてからプロジェクトエクスプローラを選択して表示し、This Workbookを選択します。右の窓には次のコードを入力することでよいでしょう。
Private Sub WorkBook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If WorksheetFunction.CountIf(Range("A1:A10"), 3) > 0 _
Or WorksheetFunction.CountIf(Range("A1:A10"), 5) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.ColorIndex = -4142
End If
End Sub

お礼

KURUMITO様、ありがとうございます。おかげさまで、自動で赤くなるようになりました。
とても助かりました。本当にありがとうございましたm(__)m。

回答No.1

nattocurry

ツール　－　オプション　－　計算方法　で、計算方法が手動になっていないか確認してください。
手動になっていたら、自動に変更してください。

お礼

nattocurry様、ありがとうございます！計算方法は自動になっていました。でも何故か自動で計算されないので困っていました。