Excel VBA スタンダード 模擬問題 ② 2章-6

以下のコードはオブジェクト変数を用いて、シートの追加やアクティブシートを指定するマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()
　Diｍ ws1 As 【　①　】, ws2 As Worksheet
　Set ws1= ActiveSheet
　Set ws2 = Worksheets. Add
　　ws1. Activate
　　ws2. Name = “集計”
End Sub

正解

【　①　】Worksheet

解説

アクティブシートの変遷

オブジェクト変数を使用し、ws1がアクティブシートと設定する。その後ワークシートを挿入するとアクティブシートは追加シートに自動で変わってしまう。
追加シートにシート名をつけることで混乱をさけ、アクティブシートを同じシートにし誤りなくシートを指定するためにこのような処理を行います。

　　　　　前へ　　　　　　次へ