エクセル セルをクリックすると色が変わる

質問

セルをクリックするとそのセルの色が変わるといったようなマクロが組めるでしょうか。
色を変えたいのは、C2をクリックする「色あり」となり、D2は「色なし」、逆にD2をクリックすると「色あり」となり、C2は「色なし」にしたいです。

予定ではB2に氏名を入れておき、C2に在席、D2に不在といった感じで、社員の在席表を作成したいと考えております。ですから、コードの対象範囲を増やせるようにもお願いしたいのですが、不可能であれば、20人くらいの管理可能なコードを宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

クリックじゃなく，Ｗクリックで行います

手順：
シート名タブを右クリック、コードの表示を選ぶ
現れたシートの記載内容を全て消して，下記をコピー貼り付ける

private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, cancel as boolean)
　if application.intersect(target, range("C:D")) is nothing then exit sub
　cancel = true
　target.interior.colorindex = iif(target.interior.colorindex = 4, xlnone, 4)
　target.offset(0, iif(target.column = 3, 1, -1)).interior.colorindex = xlnone
end sub

ファイルメニューから終了してエクセルに戻る
Ｃ列またはＤ列のセルをＷクリックすると色が付き，隣の色を消す
既に色塗られているセルをＷクリックすると色が消える。

＃非常に良く寄せられるご相談の一種ですが，エクセルには「セルをクリックしてどーこーするマクロ」はありません。

＃参考
範囲を限定したいときは
range("C:D")
の部分を
range("C2:D20")
とかに書き換えます

お礼

早々に回答いただき本当にありがとうございます。
希望していたそのものです。助かりました。
この度は勉強不足ですみませんでした。
今後とも宜しくお願いいたします。