【ExcelVBA公開模試】同じ数値やセル参照を何回も使ってはいけない

文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

わえなび速読VBA単語【邪道ExcelVBA基本講座】｜わえなび VBA｜note

問題

図１のように、セルA1～A100に数値が入力されている。ExcelVBAを用いて次の処理を実行しなさい。
（１）70以上であればその右隣のセルに「合格」、それ以外は「不合格」と表示しなさい（図２）。
（２）さらに、図３のように「合格基準70、合格者～人」と合格者数を表示しなさい。

＜図１＞

＜図２：設問（１）完成イメージ＞

＜図３：設問（２）完成イメージ＞

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ2分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-4まで

わえなび式ExcelVBA公開模試（無料） - Program3_4｜わえなび VBA｜note

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

考え方

設問（２）について、条件付きのカウントは次の4点を記述します。
１．カウント用の変数＝０
２．ループ
３．ループの中にIf文で条件を書き、さらにその中でインクリメント
４．カウント用の変数を出力

これは不正解！！

設問（２）について、次のようなコードは不正解とします。合格基準である「70」が2か所ありますが、もし合格基準が変わった場合は両方直す必要があります。このような不便なコードを記述してはいけません。

Sub kakko2()
   cnt = 0
   For i = 1 To 100
       If Cells(i, 1) >= 70 Then
           Cells(i, 2) = "合格"
           cnt = cnt + 1
       Else
           Cells(i, 2) = "不合格"
       End If
   Next
   MsgBox "合格基準70、合格者" & cnt & "人"
End Sub

正解例

2か所以上共通するものがあれば、必ず変数にして最初のほうに記述します。

Sub kakko1()
   For i = 1 To 100
       If Cells(i, 1) >= 70 Then
           Cells(i, 2) = "合格"
       Else
           Cells(i, 2) = "不合格"
       End If
   Next
End Sub

Sub kakko2()
   cnt = 0
   kijun = 70
   For i = 1 To 100
       If Cells(i, 1) >= kijun Then
           Cells(i, 2) = "合格"
           cnt = cnt + 1
       Else
           Cells(i, 2) = "不合格"
       End If
   Next
   MsgBox "合格基準" & kijun & "、合格者" & cnt & "人"
End Sub

別解

さらに「Cells(i, 2)」も2か所あるので変数にしたほうがよいです。

Sub kakko2()
   cnt = 0
   kijun = 70
   For i = 1 To 100
       If Cells(i, 1) >= kijun Then
           hantei = "合格"
           cnt = cnt + 1
       Else
           hantei = "不合格"
       End If
       Cells(i, 2) = hantei
   Next
   MsgBox "合格基準" & kijun & "、合格者" & cnt & "人"
End Sub

バックナンバー

わえなび式ExcelVBA公開模試（無料）｜わえなび VBA｜note