Home > 即効テクニック > Excel VBA > シート操作関連のテクニック > シートをアクティブにする(Activateメソッド)

即効テクニック
シート操作関連のテクニック

シートをアクティブにする(Activateメソッド)

(Excel 2000)
アクティブブックにある1枚のシートをアクティブにします。
シート見出しをマウスでクリックして選択する動作と同じです。

構文  Object.Activate

設定項目   内容
  Object   Worksheet,Chartオブジェクト

次のサンプルは、シート名が「(2)」で終わる最初のシートをアクティブにします。
●サンプル● 
Sub ActivateSamp1()

 Dim ws As Worksheet

 For Each ws In Worksheets             '---(1)Worksheetsの全コレクションをループ
     If Right(ws.Name, 3) = "(2)" Then '---(2)シート名が"(2)"で終わるシートなら
         ws.Activate                   '---(3)そのシートをアクティブにする
         Exit For                      '---(4)Forループを抜ける
     End If
 Next ws

End Sub

(1)から始まるFor For Each...Next ステートメント、(2)から始まるIf...Then...Elseステートメントを使用して対象のシートを特定し、そのシートをアクティブにしています。最後のシートをアクティブにしたい場合は、(4)のステートメントをコメントアウトしてください。