![名称未設](https://assets.st-note.com/production/uploads/images/9172292/rectangle_large_type_2_ba0d760a5d99f29fbe887fa2473d30cd.jpeg?width=1200)
【ExcelVBA公開模試】配列の添え字とCellsの添え字
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
セル範囲A3:E3の値(図1)を配列aに入れて、それに10~50を加算して、セル範囲A5:C5に表示しようとしている(図2)。次のコードの空欄[ X ][ Y ]に、あとのア~エを入れたときに正しく動作する組み合わせはどれか、理由を付けて述べなさい。
Sub moshi()
Dim a(4)
For i = 0 To 4
[ X ]
Next
For i = 1 To 5
[ Y ] + i * 10
Next
End Sub
<図1>
<図2>
<選択肢>
ア
[ X ] a(i) = Cells(3, i - 1)
[ Y ] Cells(5, i) = a(i)
イ
[ X ] a(i + 1) = Cells(3, i)
[ Y ] Cells(5, i) = a(i)
ウ
[ X ] a(i) = Cells(3, i + 1)
[ Y ] Cells(5, i) = a(i - 1)
エ
[ X ] a(i) = Cells(3, i + 1)
[ Y ] Cells(5, i + 1) = a(i)
わえなび式 正解例
(このページの下にあります)
目標回答時間
1分以内に解答できたら合格
この問題の出題範囲
「速読VBA単語」Program3-6まで
ご案内
ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。
正解例
0~4は配列aの要素番号、1~5は転記するセルの列番号です。したがって、イコールの左側はいずれも「i」になります。それに合わせて、i+1, i-1 としますから、ウが正解です。
Sub moshi()
Dim a(4)
For i = 0 To 4
a(i) = Cells(3, i + 1)
Next
For i = 1 To 5
Cells(5, i) = a(i - 1) + i * 10
Next
End Sub
バックナンバー
この記事が気に入ったらサポートをしてみませんか?