質問: mycolor end if end sub 上記の表記で行単位の変更は出来たのですが、セル単位での変更方法が分かりません。 変更の条件として、 ・アクティブなセルの色のみを変える ・アクティブからノンアクティブになった場合、前回指定されていた色へ戻す。 といった風にする事は可能でしょうか? 可能であればぜひご教授お願いいたします。
回答: ★(1)を追加すればどうでしょうか。 private sub worksheet_selectionchange(byval target as range) '選択したセルに色を付ける if target.count > 1 then exit sub '★(1) if target.row > 1 then '2行目以降を対象とする '変更前の色に戻す if m_row <> "" then range(m_row).interior.colorindex = m_iro end if '変更前のセル番地と色を記憶 m_row = target.address m_iro = target.interior.colorindex '色を変更 target.interior.colorindex = mycolor end if end sub