第８話 否定付きもしもボックスの入れ子式使用による５段階評価
前話問題
９０点以上『神』
９０点未満８０点以上『准超越者』
８０点未満６０点以上『人間』
６０点未満４０点以上『人造人間ベム・ベロ・ベラ級』
４０点未満『ピノキオ以下の存在』
の５段階評価をB11に表示させるマクロ
解答例
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
If Cells(6, 2) >= 90 Then
Cells(11, 2) = "神"
Else
If Cells(6, 2) >= 80 Then
Cells(11, 2) = "准超越者"
Else
If Cells(6, 2) >= 60 Then
Cells(11, 2) = "人間"
Else
If Cells(6, 2) >= 40 Then
Cells(11, 2) = "人造人間ベム・ベロ・ベラ級"
Else
Cells(11, 2) = "ピノキオ以下の存在"
End If
End If
End If
End If
End Sub
If～Else～文の入れ子式による多段階評価は、頭が混乱します。
実は、否定付きのもしもボックスを入れ子式に使用しなくても同じことを実現できます。
ヒントを書いておきます。
xが９０未満８０以上は数学でいえば、80≦x＜90ですが、
VBAでは、
(80 <= x) and (x < 90)
と表現します。andはかつを意味します。
さて、このヒントを参考にIf文のみで合否、３段階評価、４段階評価、５段階評価を実現してください。
第７話へ 第９話へ
vc++講義へ
