08/01/16 18:03:29
>>391
それは質問とは言わないような・・・。
Sub Macro()
Range("D2") = Range("A2") + Range("B2") + Range("C2")
Select Case Range("D2")
Case Is >= 270
Range("E2") = "大変よくできました"
Case Is >= 180
Range("E2") = "よくできました"
Case Else
Range("E2") = "がんばろう"
End Select
End Sub