【ExcelVBA公開模試】縦と横の２方向で検索する

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

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

問題

1枚目のシートのセルB2:F101に数値がランダムに入力されている（図１）。
5科目のうち1科目でも10点をとっている人を抽出したい。図２のように、少なくとも1つ以上「10」の科目がある行のA列の文字列（氏名）を、2枚目のシートに出力しなさい。

＜図１＞

＜図２：完成イメージ＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

「速読VBA単語」Program3-6-2まで

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

ご案内

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

正解例

Exit Forで内側のループを抜けないと10点が2つ以上の人がダブって出力されてしまいます。

Sub moshi()
   cnt = 1
   For i = 2 To 102
       For j = 2 To 6
           If Sheets(1).Cells(i, j) = 10 Then
               Sheets(2).Cells(cnt, 1) = Sheets(1).Cells(i, 1)
               cnt = cnt + 1
               Exit For
           End If
       Next
   Next
End Sub

バックナンバー

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