GP算出VBA
Sub 科目別GP()
'文字をアルファベットに置き換えても良い。
'数字は任意に変えて使う。
Dim i As Integer
For i = 2 To 100
'2行目(横の向き)から。
If Cells(i, 2) = "秀" Then
Cells(i, 3) = 4
ElseIf Cells(i, 2) = "優" Then
Cells(i, 3) = 3
ElseIf Cells(i, 2) = "良" Then
Cells(i, 3) = 2
ElseIf Cells(i, 2) = "可" Then
Cells(i, 3) = 1
ElseIf Cells(i, 2) = "不可" Then
Cells(i, 3) = 0
Else
Cells(i, 3) = "-"
End If
Next i
これをマクロ有効のexcelで使うと便利である。
この記事が気に入ったらサポートをしてみませんか?