アクティブ（操作の対象）なシートを参照する

2016/10/21

(オブジェクト.)Activesheet

現在作業中のシートを参照する際に使用します。
オブジェクト自体は省略可能。
オブジェクトを省略した場合は、作業中のブックのアクティブシートが参照されます。
オブジェクトには、WindowオブジェクトとWorkbookオブジェクトを指定可能です。
例示とともに使用方法を見ていきます。

作業中のシート名をメッセージボックスで出力するコードです。

Sub 作業中シート名表示()
    MsgBox Activesheet.Name
End Sub

Sub 作業中シート名表示()

MsgBox Activesheet.Name

End Sub

上記コードを少しプログラムっぽくしてみました

Sub 作業中シート名表示()
    Dim Act_Sheet As Worksheet
    Set Act_Sheet = ActiveSheet
    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

Sub 追加シート名変更()

　　　　Worksheets.Add

　　　　ActiveSheet.Name = "追加シート"

End Sub