アクティブ(操作の対象)なシートを参照する
(オブジェクト.)Activesheet
現在作業中のシートを参照する際に使用します。
オブジェクト自体は省略可能。
オブジェクトを省略した場合は、作業中のブックのアクティブシートが参照されます。
オブジェクトには、WindowオブジェクトとWorkbookオブジェクトを指定可能です。
例示とともに使用方法を見ていきます。
現在作業中のシート名を出力する
作業中のシート名をメッセージボックスで出力するコードです。
Sub 作業中シート名表示() MsgBox Activesheet.Name End Sub
上記コードを少しプログラムっぽくしてみました
Sub 作業中シート名表示() Dim Act_Sheet As Worksheet Set Act_Sheet = ActiveSheet MsgBox Activesheet.Name End Sub
シートを追加し、そのシート名を変更
ワークシートを追加し、追加されたシートの名前を「追加シート」に変更するためのコードです。
追加されるシートはアクティブシートになることを利用し、追加後にアクティブシート名を変更することで実現できます。
Sub 追加シート名変更() Worksheets.Add ActiveSheet.Name = "追加シート" End Sub