エクセルＶＢＡ（ＩＦの使い方）

質問

エクセルにランダムに並ぶ１００以上の学校を４つに分類したいと思います。

For n = 4 To 650
a = Cells(n, 10)

If a = "＊＊学校" Then
Cells(n, 9) = "ＡＡＡ"
End If

自分なりに以上のように書き込みました。
＊＊学校とかいてあったら、左のセルにＡＡＡと記入
したいと思います。

”＊＊学校”の部分を１００個設定すれば分類は可能ですが、ＩＦを使用して”＊＊学校””△△学校”はＡＡＡと記入など、一度に設定する方法がありましたら、
お教え頂きたいと思います。

勉強中ですので、どのように説明したらよいのか分からず分かりづらいとは思いますが、宜しくご指導の程お願い致します。

回答No.4

rotesKomet · ベストアンサー

＃３の補足に対する回答です。

「M」,「N」列には、学校名と分類の対応表のような感じで書きます。
　　　｛Ｍ｝　 ｛Ｎ｝
｛４｝　＊＊学校 AAA
｛５｝　△△学校 AAA
｛６｝　□□学校 BBB
｛７｝　◎◎学校 BBB
｛８｝　○○学校 BBB
｛９｝　××学校 CCC

例えば、「J4」が”□□学校”であるとして、
「I4」に次のように入力します。
=VLOOKUP(J4, M$4:N$9 , 2, FALSE)
「J4」の値と完全一致するデータを「M4」～「M9」の範囲から探して、そのデータの「M4」～「N9」の範囲の２番目の列(N列)の値を表示する、という意味です。
この場合、”□□学校”に一致するのは「M6」なので、「N6」の”BBB”が「I4」に表示されます。
実際には100件以上あるので、「M4」～「N104」くらいの範囲になると思いますので、
=VLOOKUP(J4, M$4:N$104 , 2, FALSE)
の様に探す先の範囲を変更すればｏｋです。

$は絶対参照と言って、コピーされたときに参照先のセル位置が変更されません。
「I4」の
=VLOOKUP(J4, M$4:N$9 , 2, FALSE)
を「I5」にコピーすると、
=VLOOKUP(J5, M$4:N$9 , 2, FALSE)
となります。
コピー位置にあわせて、「J4」は「J5」に変更されますが、「M$4:N$9」はそのままです。
この場合も、同じように「J5」の値と完全一致するデータを探して表示します。
「J5」の値が”△△学校”とすると、一致する「M5」のデータの「N5」の値である”AAA”が「I5」に表示されます。

お礼

ありがとうございました。
大変勉強になりました。
さっそくやってみましたが、できました！！！！
エクセルの機能を見直してみたいと思います！！

回答No.3

rotesKomet

＞ＶＢＡでなくてできる方法がありましたら、
＞よければ教えて頂けますでしょうか。

質問文の内容だけでしたら、次の方法で可能と思います。

学校名がJ列、分類（AAA,BBBなど）の結果をI列に表示するとします。

適当な空いているセルに次のように学校名とそれに対する分類のデータを作成します。
＊＊学校 AAA
△△学校 AAA
□□学校 BBB
◎◎学校 BBB
○○学校 BBB
××学校 CCC
ここでは、M列に学校名、N列に分類を２行目から入力しているとします（＊＊学校がM2、CCCがN7の状態）。

J4の学校データに対し、I4に次のように入力します。
=VLOOKUP(J4, M$1:N$7 , 2, FALSE)

I4に”AAA”が表示されます。

I4をI5以下のセルにコピーします。

I5以下にも該当の分類が表示されます。

補足

たびたび申し訳ありません。。

　Ｊ　　　　Ｍ　　　　Ｎ
４　＊＊学校　＊＊学校　ＡＡＡ
５　＠＠学校　＠＠学校　ＡＡＡ
６　＋＋学校　××学校　ＢＢＢ
７　△△学校　＋＋学校　ＣＣＣ
８　？？学校

という事でしょうか。
Ｉに書きたいので空欄
Ｊに学校名
Ｍに学校の一覧
ＮにＭの学校の分類としました。

=VLOOKUP(J4, M$1:N$7 , 2, FALSE)
をアレンジしてみましたができませんでした・・・
「＄」の意味も分かりません。。。

回答No.2

rotesKomet

VBAを使わなくてもできそうですが、
プログラムで行いたいのなら、SELECT CASEを使用すれば簡単です。

For n = 4 To 650
a = Cells(n, 10)

Select Case a

Case "＊＊学校", "△△学校"
Cells(n, 9) = "ＡＡＡ"
Case "□□学校", "○○学校", "◎◎学校"
Cells(n, 9) = "ＢＢＢ"
Case "××学校"
Cells(n, 9) = "ＣＣＣ"
End Select

Next n

補足

ありがとうございました。
気持ちよいくらいにうまくできました！！
急ぎでしたので大変助かりました。

ＶＢＡでなくてできる方法がありましたら、
よければ教えて頂けますでしょうか。

回答No.1

komkoma

If a = "＊＊学校" Or a = "△△学校" Then
Cells(n, 9) = "ＡＡＡ"
End If

のように、「Or」で繋げたらどうでしょうか？

お礼

ありがとうございます！！！
いくつか試してみましたができませんのでこちらへ書かせて頂いたのですが・・・
a=をいれなくてはならなかったのですね。
大変勉強になりました。うまくできました。
ありがとうございます。