ＥＸＣＥＬでビンゴゲームのようなものを作りたいのですが・・・

質問

すみません。お知恵を拝借したく存じます。
ＥＸＣＥＬ２００３にて、ビンゴゲームのようなものを作りたいと思っています。
例Ｃ１～Ｇ５に１から２５までの数字をランダムに入力し、
　Ａ１～Ａ５に抽選番号（１～２５）を入力すると、
　Ｃ１～Ｇ５に入力した番号を検索し、そのセルに色を塗りたいのですが、
　ＥＸＣＥＬ２００３では条件付書式が３つまでしか使えないため、
　例のように４つ以上の条件がある場合での方法はないものでしょうか？
　何か関数があるのでしょうか？ＶＢＡを使えばできるのでしょうか？
よろしくお願いいたします。

回答No.1

MackyNo1 · ベストアンサー

>ＥＸＣＥＬ２００３では条件付書式が３つまでしか使えないため、
>例のように４つ以上の条件がある場合での方法はないものでしょうか？

Excel2003まででできないのは条件付き書式の「種類」を3種類までしかできないということですので、同じセルの色でよければ、数式を使った条件付き書式１つだけで問題なく該当セルを色分けすることができます。

たとえば、C1セルからG5セルを選択して「書式」「条件付き書式」で「数式が」にして「=COUNTIF($A$1:$A$5,C1)」のように設定して「書式」からセルの色を設定すればOKです。

ところで、ご質問には、25マスに乱数で数字を入れるところは聞いていないなのでしょうか？

お礼

できました！このようにすればできるとは、わかりやすく回答いただき、誠にありがとうございました！

補足

丁寧な回答ありがとうございます。２５マスへの乱数というのはランダムに２５マスに１～２５までの数字を入力してくれるとのことでしょうか？都度、自分で入力することしか考えなかったので、それはまったく頭が回らなかったです。そんなこともできるのでしょうか？

回答No.3

MackyNo1

>２５マスへの乱数というのはランダムに２５マスに１～２５までの数字を入力してくれるとのことでしょうか？

ビンゴゲームだと１から25ではなく、もう少し大きい数字もあると思うのですが、仮に１から25の範囲の乱数を簡単に表示させるなら以下のような運用が簡単だと思われます。

たとえば、空白列のJ1セルからN5セルに「=RAND()」と入力します。

その下のJ6からN10セルに「RANK（J1,$J1:N5)」と入力し右方向と下方向にオートフィルコピーします。

これで、このJ1:N5セルに１から25の乱数が表示されますが、このままではセルに数値を入力するたびに乱数が作成されてしまいますので、この範囲を選択して、右クリック「コピー」し、乱数を表示するC1セルを選択して右クリック「形式を選択して貼り付け」で「値」とします。
別の乱数が必要な時は、この数式範囲を「値」でコピー貼り付けします。

お礼

なんと、そんなこともできるとは、重ね重ねありがとうございました。

回答No.2

imogasi

変える色数を１色にすれば出来る。
ーーー
>何か関数があるのでしょうか？
関数は「セルの値」を扱うもので、セルの色（書式）など扱えないのは常識。
条件付書式の条件で関数式を使える場合があるが、それは３条件までの制約でが優先するのだから、考えても無駄。
＞ＶＢＡを使えばできるのでしょうか？
中級以上の熟練度ならできるでしょう。
でも
・Å1-A5の値が変わったことを捉えるイベントの考え方
・直前のセット色をクリアする方法（２５セルしかないので毎回全セルの色を一度クリアが良いかも）
など知れば、あとは初等的なスキルで出来る。
一部マクロの記録というもので、勉強できる。
少しVBAが出来れば直感的に出来るかどうか、何処が難しいか判る。
それらを聞いているということは、現在は経験なしだろうが、前提知識や経験をつむのは、まず人によること、疑問を聞ける人が周りに居るか、だが、多少時間がかかると思う。