エクセル クリックでセルの色を変えるには？

質問

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

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

　なお、以上が１試合目で、２試合目のチーム分けをそれぞれのメンバーの行の、E、F、Gの列を使って、同様に行えるようにできれば完璧なのですが…。

　文章がつたなく申し訳ありません。ぜひ教えてください。

回答No.3

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選び，下記をコピー貼り付ける

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim s As Range, c As Integer
　If Target.Column = 1 Then Exit Sub

’位置決め
　Set s = Target.Offset(0, -(Target.Column + 1) Mod 3)
　c = Target.Column Mod 3

’クリア
　s.Resize(1, 3).ClearContents
　s.Resize(1, 3).Interior.ColorIndex = xlNone

’記入
　Target.Interior.Color = Array(vbBlue, vbYellow, vbRed)(c)
　Target.Font.Color = Array(vbWhite, vbBlack, vbWhite)(c)
　Target = Array("B", "C", "A")(c)
　Cancel = True
End Sub

Ｂ列以降をＷクリックする。

お礼

ありがとうございました。希望どうりのものができあがりました。

回答No.5

Cupper-2

自分ならフォームを使うかな。

　A列に名前
　B～D列にボタン
　A列のセルには条件付き書式でセルの色が変わるように設定
　B～D列のボタンの下に隠れるセルに選ばれたボタンに該当する値
　各行にこれらを作成

こんな方法で作ります。
あとは好みに応じて多少いじりますね。

回答No.4

imogasi

質問の内容に関して補足のこと。
セルの色や文字色を変えるのは、エクセルの関数では出来ません。そんなことを考えてないでしょうね。
するとＶＢＡか条件付書式の利用になる。
もうひとつ、セルをクリックする、ことを捉えるのはＶＢＡのイベントという仕組みを使わないとできないと思う。
ＶＢＡなど経験があるのかな。実力以上の勝手にやりたことだけ言っているのでは。
ーーー
質問の意味や状態がわからないのだが、
（１）９人を３チームに分けるのは、人間が判断して決め（て人間がクリック）るのですか。
自動でセットするのか。
（２）３人ずつ３組なのか？
Ｂ，Ｃ、Ｄ列に１とか入れるとか、Ｂ列にＡ，Ｂ、Ｃの文字を入れるではダメなのか。なぜ凝ったことをするのか。
ーーーー
質問に実例的なものを示して説明できないのか。
Ａ列ーＢ列ーＣ列ーＤ列
山田
・・
その人を、Ａチームに所属させるときは、その人の行のＢ列セルをクリックし、
その人を、Ｂチームに所属させるときは、その人の行のＣ列セルをクリックし、
その人を、Ｃチームに所属させるときは、その人の行のＤ列セルをクリックする。
＞それぞれの行が干渉しないようにする
一人の人ではＢ，Ｃ，Ｄ列複数クリックはしない（出来ない）ようにする、ということか。
＞２試合目のチーム分けをそれぞれのメンバーの行の、E、F、Gの列を
第２試合で終わりか。第３，４試合も考えているのか

、

回答No.2

TinyPine

通常の関数だけでは出来ないと思います。
マクロを使えば出来ますけど、エクセルマクロの知識はおありでしょうか。

http://kokodane.com/macro_kouza.htm

回答No.1

yone-bou

「書式」→「セル」→「パターン」ではなくてですか？