セルが追加される毎に背景色つきセルの数を数え、とあるセルに入力したいです。

Question

①とある情報を入力
↓
②入力情報に応じて行が１行ずつ増え、増えた行の中から条件に該当するセルに背景色がつく
（背景色は無色orオレンジの二択）
↓
②で増えた行のひとつ下の行のとあるセルに背景色オレンジセルの個数を入力

上記のようなコードを書きたい場合のヒントを下さい。
よろしくお願い致します。

Answer 1

質問が漠然としているので、一旦オレンジを数えるところだけ。

Function Orange(rng As Range) As Long
    Dim o As Range
    For Each o In rng
        If o.Interior.Color = rgbOrange Then Orange = Orange + 1
    Next
End Function

Comments

[Shou1142]

ご教示頂きました内容で機能しました！
漠然とした質問内容にも関わらず的確な回答をありがとうございます。

今後もまたよろしくお願い致します。