【ExcelVBA公開模試】優先順位に従って並べる
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
1枚目のシートに図1の表を入力した。C2:C11には1~10の数値がランダムに入力されている(重複はない)。また、2枚目のシートに図2のリーグ表を作成した。図1のC2:C11の順序に従って、図2のA2:A11にチーム名を転記しなさい。また、その順序に合わせて、B1:K1に略称を転記しなさい(図3)。
<図1>
<図2>
<図3:完成イメージ>
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ2分以内、アマチュア5分以内に処理ができたら合格
この問題の出題範囲
「速読VBA単語」Program3-7まで
ご案内
ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。
正解例
Sub moshi()
team = Sheets(1).Range("A2:C11")
For i = 1 To 10
Sheets(2).Cells(team(i, 3) + 1, 1) = team(i, 1)
Sheets(2).Cells(1, team(i, 3) + 1) = team(i, 2)
Next
End Sub
(別解)
Sub moshi()
team = Sheets(1).Range("A2:C11")
teammax = UBound(team, 1)
ReDim team2(1 To teammax, 1 To 1)
ReDim team3(1 To 1, 1 To teammax)
For i = 1 To teammax
team2(team(i, 3), 1) = team(i, 1)
team3(1, team(i, 3)) = team(i, 2)
Next
Sheets(2).Range("A2").Resize(teammax, 1) = team2
Sheets(2).Range("B1").Resize(1, teammax) = team3
End Sub
バックナンバー
この記事が気に入ったらサポートをしてみませんか?