エクセル クリックで色をつけるには？（4）

質問

１５人をA、B、C、D、Eの５チームに分ける表をエクセルでつくりたいと考えています。

　(1)１行目に１人目のデータ。A１列に氏名。
　(2)１人目がAチームなら、B１をクリックすると赤に変わり、かつ「A」とそのセルに表示。
　(3)Bチームに変更したければ、C１をクリックすると青に変わり、かつ「B」とそのセルに表示。その際、B1の色を消す。
　(4)Cチームの場合は、D1をクリック、黄色に変わり、かつ「C」と表示。その際、B１もしくはC1の色を消す。
　（5）Dチームの場合はオレンジ、Eチームの場合は緑、でそれぞれ同様にE1、F1に「D」「E」と表示。
　（6）２人目以降は同様に、２行目以降に表示。それぞれの行が干渉しないようにする。

　以上が1試合目で、２試合目、３試合目も行う。
　ただし、２試合目以降は、３チームに分ける。
　（１）２試合目はG、H、Iのセル、３試合目はJ、K、Lセルを使う。
　（２）２試合目、３試合目のチーム名はA、B、Cではなく、ア、イ、ウとする。（２試合目、３試合目共にア、イ、ウ）
　（３）１試合目はそのままで、２試合目、３試合目は別の色に変える。（Aチームは薄い赤、Bチームは薄い青、Cチームは薄い黄色）→細かな色の違いにはこだわりません。
　（４）４試合目以降は行わない。

回答No.1

keithin · ベストアンサー

失礼しました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim s As Range, c As Integer
　Dim a1, a2
　If Target.Column = 1 Or Target.Column > 12 Then Exit Sub
　a1 = Array("A", "B", "C", "D", "E")
　a2 = Array("ア", "イ", "ウ", "", "")

'位置決め
　if target.column < 7 then
　’Ｂ列群
　　Set s = cells(target.row, "B")
　　c = target.column - 2
　elseif target.column < 10 then
　’Ｇ列群
　　set s = cells(target.row, "G")
　　c = target.column - 7
　else
　’Ｊ列群
　　set s = cells(target.row, "J")
　　c = target.column - 10
　end if

'クリア
　s.Resize(1, iif(s.column = 2, 5, 3)).ClearContents

'記入
　Target = IIf(s.Column = 2, a1(c), a2(c))
　Cancel = True
End Sub

＃ご質問のたび色の話題をされるってのは，条件付き書式は絶対使いたくないって意思表示なんでしょうか。
最初のご質問で色の塗り方は少しお話ししてありますが，それとは別に「新しいマクロの記録」で実際に好みの色を塗ってみて，記録されたマクロを参考にしてマクロに組込んでみてください。

お礼

条件付き書式を使ってやってみました。
思い通りの仕上がりでした。
何度も何度も、たいへんに失礼いたしました。
本当にありがとうございました。