![名称未設](https://assets.st-note.com/production/uploads/images/9106170/rectangle_large_type_2_0d2aa47146c2e4c885845b880657e5fd.jpeg?width=1200)
【ExcelVBA公開模試】見つかったらループを抜ける
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
2枚のシートをもつExcelファイルがある。シート「検索用」には、図1のように選手名を入力する欄(セルB2)があり、シート「選手一覧」には、図2のように選手のデータが入力されている。
選手名を入力してマクロを実行したら、選手一覧のなかから選手名を探して、そのチーム名とホームランの本数が表示されるようにしたい(図3)。次のコードを完成させなさい。
Sub moshi()
Dim ws1, ws2
For i = 2 To 25
End Sub
<図1>
<図2>
<図3:完成イメージ>
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ2分以内、アマチュア5分以内に処理ができたら合格
この問題の出題範囲
「速読VBA単語」Program3-5まで
ご案内
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
バックナンバー
この記事が気に入ったらサポートをしてみませんか?