【ExcelVBA公開模試】縦横2方向に連番を入力する(その2)
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
図1のように入力した。ExcelVBAを用いて、次の各設問の処理を実行しなさい。
(1)2行目、5行目、8行目、・・・、35行目に、図2のような連番を入力しなさい。
(2)「A」「B」「C」「D」「E」の順に入力しなさい(図3)。
<図1>
<図2:設問(1)完成イメージ>
<図3:設問(2)完成イメージ>
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ1分以内、アマチュア10分以内に処理ができたら合格
この問題の出題範囲
「速読VBA単語」Program3-8まで
ご案内
ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。
正解例
Sub kakko1()
cnt = 1
For i = 2 To 35 Step 3
j = 2
Do While Cells(i - 1, j) <> ""
Cells(i, j) = cnt
j = j + 1
cnt = cnt + 1
Loop
Next
End Sub
Sub kakko2()
cnt = 0
a = Split("A,B,C,D,E", ",")
For i = 2 To 35 Step 3
j = 2
Do While Cells(i - 1, j) <> ""
Cells(i, j) = a(cnt)
j = j + 1
If cnt = 4 Then
cnt = 0
Else
cnt = cnt + 1
End If
Loop
Next
End Sub
バックナンバー
この記事が気に入ったらサポートをしてみませんか?