Excelでマクロを使って得点とランクを対応

質問

Ｅｘｃｅｌのマクロを利用して入力した得点と評価（A～Ｅ）を対応させるにはどのようにすればよいでしょうか。よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

Ａ列のＡ２以下に得点。
Ｂ列に評価を記入。
いちばんベタなマクロで。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim h as range
　for each h in range("A2:A" & range("A65536").end(xlup).row)
　if h <> "" and isnumeric(h) then
　select case h.value
　case is >=80
　　h.offset(0, 1) = "A"
　case is >=60
　　h.offset(0, 1) = "B"
　case is >=40
　　h.offset(0, 1) = "C"
　case is >=20
　　h.offset(0, 1) = "D"
　case is >=0
　　h.offset(0, 1) = "E"
　end select
　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
マクロを実行する。

＃参考
別にIf Then Elseを使っても関数でも何でも使って、好きな方法で出来ます。

お礼

ご回答ありがとうございます。
早速やってみようと思います。

回答No.1

K Kazz（@JazzCorp）

お題がようワカラ～ん！！