第７話 否定付きもしもボックスの入れ子式使用による４段階評価
前話問題
８０以上なら『天才級』
８０未満６５以上なら『秀才級』
７５未満５０以上なら『平凡』
５０未満なら『不出来』
４段階評価マクロ解答例
Private Sub CommandButton1_Click()
Cells(6, 2) = Int(100 * Rnd())
If Cells(6, 2) >= 60 Then
Cells(8, 2) = "合格"
Else
Cells(8, 2) = "不合格"
End If
If Cells(6, 2) >= 70 Then
Cells(9, 2) = "優秀"
Else
If Cells(6, 2) >= 50 Then
Cells(9, 2) = "普通"
Else
Cells(9, 2) = "努力が必要"
End If
End If
If Cells(6, 2) >= 80 Then
Cells(10, 2) = "天才級"
Else
If Cells(6, 2) >= 65 Then
Cells(10, 2) = "秀才級"
Else
If Cells(6, 2) >= 50 Then
Cells(10, 2) = "平凡"
Else
Cells(10, 2) = "不出来"
End If
End If
End If
End Sub
さらに、区分を
９０点以上『神』
９０点未満８０点以上『准超越者』
８０点未満６０点以上『人間』
６０点未満４０点以上『人造人間ベム・ベロ・ベラ級』
４０点未満『ピノキオ以下の存在』
として、５段階評価をB11に表示させるマクロに改良してください。
第６話へ 第８話へ
vc++講義へ
