【ExcelVBA公開模試】12枚のシート名を取得、シート名を変える
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
いま、Excelファイルに12枚のシートがあります(図1)。そのうち1枚目のシートのセル範囲B1:B12に文字列が入力されています(図2)。シート名と入力されている文字列は任意です。
ExcelVBAを用いて次の処理をそれぞれ実行しなさい。
(1)セルA1:A12に、12枚のシートのシート名を出力しなさい(図3)。
(2)セルB1:B12の文字列を12枚のシートのシート名にしなさい(図4)。
<図1>
<図2>
<図3:設問(1)完成イメージ>
<図4:設問(2)完成イメージ>
わえなび式 正解例
(正解例はこのページの下にあります)
目標回答時間
プロ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
バックナンバー
この記事が気に入ったらサポートをしてみませんか?