今日からトライしているexcel vbaの初心者です。

質問

今日からトライしているexcel vbaの初心者です。

a1～a100のセルに点数が入力されているとします。
その点数を元に下記の通りランクを自動的に付ける場合の
vbaのコーディングはどうなりますか？

ss(95以上)
a(90-94)
b(85-89)
c(80-84)
d(75-79)
e(70-74)
f(65-69)
g(60-64)
h(55-59)
i(50-54)
j(50以下)

関数も使えなく、この機会にVBAを勉強しようと思います。

回答No.1

earthkun14

頑張って勉強してくださいね！！

Sub ランク付け()
Dim RN As Range
Dim RNKStr(0 To 10) As String
Dim i As Single

RNKStr(10) = "ss"
For i = 9 To 0 Step -1
RNKStr(i) = Chr(96 + 10 - i)
Next

Set RN = ActiveSheet.Cells(1, 1)
Do Until RN.Value = ""
Select Case RN.Value
Case Is < 50
RN.Offset(, 1).Value = RNKStr(0)
Case Is > 95
RN.Offset(, 1).Value = RNKStr(10)
Case Else
RN.Offset(, 1).Value = RNKStr(Int((RN.Value - 50) / 5) + 1)
End Select
Set RN = RN.Offset(1)
Loop

End Sub

ちなみに、50-54は50点以上54点以下だとすると、50点の条件分岐が重複してしまいます。
上のコードはjは50点未満にしてあります。

お礼

ご回答ありがとうございました。
これを機会にvbaにトライしてみたいと思います。