第５講 もしもボックス（If文）
第３話 もしもボックスに否定の場合を加える（If～Else～文）

前話問題

解答例
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
End Sub

さて、もしもボックスの高度な応用を学ぶために、
第４講第８話の成績一覧表のシートとマクロを次のように変更しておきましょう。
エクセルシート
（行と列を２つずつ追加）

実行結果

ヒント　
合計の合計はH7からH16までに値が入っていないと求められません。
平均の合計もI7からI16まで値が入っていないとだめです。
さらに、平均の合計の場合Singleの箱を１つ用意する必要があります。
それ以外は、すべてInteger型の箱１つで合計を処理します。

第２話へ　第４話へ



vc++講義へ

初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義へ
ＶＢ講義基礎へ
初心者のためのJava 入門 基礎から応用まで
数学研究室に戻る