【ExcelVBA公開模試】見つかったらループを抜ける

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

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

問題

2枚のシートをもつExcelファイルがある。シート「検索用」には、図１のように選手名を入力する欄（セルB2）があり、シート「選手一覧」には、図２のように選手のデータが入力されている。

選手名を入力してマクロを実行したら、選手一覧のなかから選手名を探して、そのチーム名とホームランの本数が表示されるようにしたい（図３）。次のコードを完成させなさい。

Sub moshi()
   Dim ws1, ws2

   For i = 2 To 25


End Sub

＜図１＞

＜図２＞

＜図３：完成イメージ＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

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

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

ご案内

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

正解例

For文で繰り返す場合、見つかったらExit Forで止めます。

Sub moshi()
   Dim ws1, ws2 As Worksheet
   Set ws1 = Sheets("検索用")
   Set ws2 = Sheets("選手一覧")
   senshuname = ws1.Range("B2")
   For i = 2 To 25
       If ws2.Cells(i, 3) = senshuname Then
           ws1.Range("B4") = ws2.Cells(i, 1)
           ws1.Range("B5") = ws2.Cells(i, 6)
           Exit For
       End If
   Next
End Sub

バックナンバー

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