『第三希望までの決定マクロ』(ノムノム)

先日、学校で文化祭の行事の希望参加行事を、第三希望まで調べました。200人の希望を聞いて、調整します。そこでエクセルで何か便利なものは無いかと探したら、以下のマクロをこちらで発見しました。

[[20070730142309]]『クラブの希望調査表』（fuki）
 
　ためしに、自分のパソコンにコピーして表示のとおり野球部などで入力し、マクロを実行したら、とてもうまくテストできました。

　そこで、部活名を全て入力するのが大変なので、「野球部」なら「1」、「バレー部」なら「2」と、データをテンキーからの数字での入力をして、このマクロで試したところ、数字での入力をした場合は、全員の名前欄が黄色に染められてしまいます。
　せっかくなので以下のマクロをしようしたいのですが、部活名を全て入力すると入力作業が大変です。実用化のために、数字対応していただきたい、もしくは自分で修正したいのですが、どこをどのようにすれば、部活名を数字でもマクロが正常に動作しますか?教えていただけると、助かります。
----
一番下のスクリプトを削除すれば、黄色に染められないんじゃないかな？

    For i = 2 To UBound(tbl, 1) + 1
        If Not dic.exists(Cells(i, 1).Value) Then
            Cells(i, 1).Interior.ColorIndex = 6
        End If
    Next i

そんなに簡単な話じゃなかったらゴメン！

（十六茶）
----
　↑
確かにその部分削除でセル背景は変わらなくなりますが、振り分け自体が出来ないから
全部黄色くなるということなので、その部分消しても問題解決にならないですよね。

数字入力したいセル範囲の書式設定の表示形式を文字列に設定する。

また、H1〜のクラブ名の書式設定の表示形式を文字列に設定する。
また、この部分はクラブ名ではなくて、
＞「野球部」なら「1」、「バレー部」なら「2」
のように、入力に見合った数字を入力しておきます。

上記のようなセルの設定をした上で実行すると、
クラブ名入力の場合と同じ結果を得ることが出来ました。

（ただし、私なら入力の段階で入力規則を使い部活名を入力するでしょう）
（みやほりん）
----
解決方法、ありがとうございます。

「入力の段階で入力規則を使って部活名を入力する」とは、発想の転換というか、皆さんがエクセルを使いこなしていらっしゃるのを感じ、関心してしまいました。私はクオリティの低い利用のしかたでした。

　今、以下の環境でセル範囲の書式設定の表示形式を文字列にしましたが、クラブ名入力と同じ結果が得られませんでした(振り分けが表示されません)。みやほりんさんは、同じ結果が得られたようなので、私の作業の何かが悪いはず。
　今からExcel2010のパソコンに移動してもう1度試してみます。。

　Excel 2003
　Windows Vista

(ノムノム)
----
数字を入力してから表示形式を文字列にした場合は、「文字列」として扱ってくれません。
おそらくこれが原因。

もうすでに入力してしまった場合は、
「第？希望」の部分で列単位で選択して「データ＞区切り位置」
「次へ」「次へ」として「文字列」にチェックを入れて「完了」とすると
「正式な文字列」？として扱ってくれるようになります。

これを第３希望の列まで、繰り返して処理してください。

H1〜の見出し部分もいちど入力しなおしてください。

（みやほりん）
----
みやほりんさん、丁寧な助言を、ありがとうございます。

再度、教えていただいたよう入力したら、できました!!!

また、入力の段階で入力規則を使って部活名を入力するの、今まで調べて試みましたが、まだまだ未熟で何がなにやら・・・。私の知識がなくて。
　今日、このサイトを発見しエクセルの可能性と、自分の知識の無さ、使いこなせていない能力を実感しています。お恥ずかしいかぎりです。
　日々の必要な簡単表計算に満足せず、より効率的な使い方を知ること、使いこなすことを考えねばと感じました。がんばってみます。
　
　今日は、とても助かりました。どうもありがとうございました。