【ExcelVBA公開模試】縦横2方向に連番を入力する(その1)
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
2020年はうるう年なので、2月は29日まである。ExcelVBAを用いて、次の図のように入力しなさい。ただし、2020年の各月の日数は次の数式で求めるものとする。
Day(DateSerial(2020, 月 + 1, 0))
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ2分以内、アマチュア10分以内に処理ができたら合格
この問題の出題範囲
「速読VBA単語」Program3-6-2まで
ご案内
ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。
正解例
Sub moshi()
For i = 1 To 12
eom = Day(DateSerial(2020, i + 1, 0))
r = 3 * i - 2
Cells(r, 1) = i & "月"
For j = 1 To eom
Cells(r, j + 1) = j
Next
Next
End Sub
バックナンバー
この記事が気に入ったらサポートをしてみませんか?