総当たり表のエクセルマクロ

総当たり表のエクセルマクロ
エクセルで総当たり表を作るとします。分かりやすくするため，アからオの５人で，BからF列の１行目にアからオ，A列の２から６行目にアからオと入力された総当たり表だとします。
総当たり表の外のセルの２箇所をそれぞれ対戦者入力セルとして，そこに対戦者の名前（ア～オ）を入力すると，自動的に総当たり表に○をつけてくれるマクロを作成したいと思っています。１回の組み合わせで自動的に２箇所に○をつけるマクロです。
そんな面倒なことをしなくても表に直接○をつければいいと思われるかもしれませんが，実は対戦者が膨大なので１回の組み合わせで２箇所に○をつけるのが手間なのです。

それと，対戦者入力セルの１箇所に名前を入力すると，他のセルにまだ対戦していない名前が表示され（リストのような形で）クリックで他の対戦者を入力できるようにしたいと思っています。

エクセルは昔ちょこっとだけVBAをかじったことがある程度で，今は忘れてしまいました。
仕事で急遽依頼されており，困却しております。
心やさしい方，ご教示願います。

No.1 回答者： end-u 回答日時： 2010/08/24 12:19

　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ

１　　　ア　イ　ウ　エ　オ
２　ア　＊
３　イ　　　＊
４　ウ　　　　　＊
５　エ　　　　　　　＊
６　オ　　　　　　　　　＊

こんな対戦表は作るんですよね。
>１回の組み合わせで２箇所に○をつけるのが手間なのです。
という事であれば、対戦表自体、ダブルクリックで１箇所に○をつけたら
もう一方にも○がつくようにしたほうが簡単かと。

・シートModuleのWorksheet_BeforeDoubleClickイベントを使う。
・IntersectメソッドでダブルクリックしたTargetが
　Range("B2").Resize(5, 5)範囲に含まれるかどうか判定する。
含まれている時だけ以下の処理。
・Cancel = True
・Target.Valueが空白だったら"○"にする。
・同時にCells(Target.Column, Target.Row)も"○"にする。
やり直すケースもあるなら
・Target.Valueが"○"だったらClearContentsする。
・同時にCells(Target.Column, Target.Row)もClearContentsする。