エクセルのＶＢＡで条件付でフォントを変更したいのですがその2

質問

前回、教えていただきD19に関数が入っていてもきちんと動くようになったのですが同じシート内の入力によってD19の計算結果が表示されるときには良いのですが別のシートの入力内容をD19が参照する時にはうまくゆきません。自動記録されたマクロの内容を手直しするレベルの私にはここまでくるとどうして良いのかさっぱりです。どなたか助けてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D19").Value > 20 Then
Range("E19").Font.Size = 20
Else
Range("E19").Font.Size = 11
End If
End Sub

回答No.1

merlionXX · ベストアンサー

D19が他のシートのセルを参照しているのであれば、Worksheet_Changeイベントははたらきませんね。
こうしてみてください。

Private Sub Worksheet_Calculate()
If Range("D19").Value > 20 Then
Range("E19").Font.Size = 20
Else
Range("E19").Font.Size = 11
End If
End Sub

お礼

早速ありがとうございました。おかげで解決しました。