Excel VBA に関する質問

質問

ExcelのVBA初心者です。

同じ列にランダムに配置された黄色のセルの「数」をカウントするために以下のようなコードを見つけました。確かにこれで列内の黄色のセルをカウントできるのですが、カウントした後でその列内の黄色のセルの数を変える（黄色であったセルを違う色にしたり、新たに黄色のセルにしたり）と、その結果が反映されません。どのようにコードを書きなおせば、随時列内の黄色のセルの個数が変わるたびにちゃんとカウントできるのでしょうか？

Function color6(a As Range)
Dim c As Range, cu As Long
Application.Volatile
For Each c In a
If c.Interior.ColorIndex = 6 Then cu = cu + 1
Next
color6 = cu

End Function

でやっています。

回答No.2

mitarashi · ベストアンサー

#1さんご指摘に対する対策として、選択セルの変更イベントで、再計算させるというのはいかがでしょうか。
目的のシートのシートモジュールに記述します。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
色を変更した後、別のセルを選択する時に再計算されて数値が変わるのが難ですが、ご参考まで。
なお、シート全体の再計算が重ければ、Range("B1").Calculateという様に、式の入った範囲のみ再計算させる事も可能です。
イベントマクロについては、下記ページをご参照下さい。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

回答No.1

ASIMOV

本来は、「Application.Volatile」が再計算をするためのおまじないなんですが

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1016254395

色の変更では、再計算のイベントが発生しないので、再計算が行われないようです

その都度「F9」キーを押すしかなさそうです．．