【ExcelVBA公開模試】行列を入れ替えてプラスの数だけ転記する
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
図1のようにセルA1:J10に数値がランダムに入力されている。図2のようにセルA16以降に行列を入れ替えて転記しなさい。ただし、0以下の数は0とすること。
<図1>
<図2>
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ2分以内、アマチュア10分以内に処理ができたら合格
この問題の出題範囲
「速読VBA単語」Program3-6-2まで
ご案内
ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。
正解例
Sub moshi()
For i = 1 To 10
For j = 1 To 10
If Cells(j, i) > 0 Then
Cells(i + 15, j) = Cells(j, i)
Else
Cells(i + 15, j) = 0
End If
Next
Next
End Sub
バックナンバー
この記事が気に入ったらサポートをしてみませんか?