文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

問題

いま、Excelファイルに12枚のシートがあります（図１）。そのうち1枚目のシートのセル範囲B1:B12に文字列が入力されています（図２）。シート名と入力されている文字列は任意です。

ExcelVBAを用いて次の処理をそれぞれ実行しなさい。
（１）セルA1:A12に、12枚のシートのシート名を出力しなさい（図３）。
（２）セルB1:B12の文字列を12枚のシートのシート名にしなさい（図４）。

＜図１＞

＜図２＞

＜図３：設問（１）完成イメージ＞

＜図４：設問（２）完成イメージ＞

わえなび式 正解例

（正解例はこのページの下にあります）

目標回答時間

プロ1分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-2まで

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

「Value」は省略可能です。また、1枚目のシートが選択されている状態であれば、「Sheets(1).」も省略可能です。

Sub kakko1()
   For i = 1 To 12
       Sheets(1).Cells(i, 1) = Sheets(i).Name
   Next
End Sub

Sub kakko2()
   For i = 1 To 12
       Sheets(i).Name = Sheets(1).Cells(i, 2)
   Next
End Sub

バックナンバー