Sub test300()
Dim na As Long
For na = 25 To 34
Cells(na, 13) = Cells(na, 8) + Cells(na, 9) + Cells(na, 10) _
+ Cells(na, 11) + Cells(na, 12)
If Cells(na, 13) >= 300 And Cells(na, 8) >= 50 And Cells(na, 9) >= 50 Then
Cells(na, 14) = "合格"
Else
Cells(na, 14) = "不合格"
End If
Next
End Sub
パズルゲームと似ていると思いますね・・・?
何とか 頑張って初心者から初級者になりたいですね。
ふふふ・・・老後の楽しみが出来ましたよw