1. 導入：なぜ「Activateメソッド」が必要なのか
Excel VBAで自動化を行う際、私たちは「どのシートに対して操作を行うか」を明確にする必要があります。マクロを実行したときにユーザーに見えている画面を切り替えたり、特定のシートを操作の対象として選択状態にしたりするために、Activateメソッドは非常に重要です。
「どのシートが現在選択されているか」を制御することで、操作ミスを防ぎ、ユーザーにとって直感的なマクロを作成することが可能になります。
2. 基礎知識：Activateメソッドとは何か
Activateメソッドは、指定したオブジェクト（ワークシートやグラフシート）を「アクティブ（手前に表示され、編集可能な状態）」にするための命令です。
マウスでシート見出しをクリックする動作と同じことをプログラム上で行います。
・構文：Object.Activate
・Objectには、Worksheetオブジェクト（例：Worksheets(“Sheet1”)）を指定します。
ここで重要な注意点として、VBAではシートをアクティブにしなくても操作は可能という点があります。例えば、特定のセルに値を書き込む際、わざわざシートを切り替える必要はありません。Activateは、あくまで「ユーザーに画面を見せたいとき」や「現在アクティブなシートを基準に処理を行いたいとき」に使用するのがベストプラクティスです。
3. 実装/解決策：柔軟なシート切り替え
実務では「特定の名前のシートがあれば移動し、なければ作成する」といった動的な処理がよく求められます。エラーハンドリング（On Error Resume Next）を組み合わせることで、存在しないシートを指定した際のマクロ停止を防ぐことができます。
4. サンプルプログラム
以下は、アクティブセルに入力されている名前のシートを探し、あればアクティブに、なければ新規作成する実用的なサンプルコードです。
Sub ActivateOrAddSheet()
Dim shName As String
‘ アクティブセルの値を取得
shName = ActiveCell.Value
‘ 空白の場合は処理を終了
If shName = vbNullString Then
MsgBox “セルにシート名を入力してください。”
Exit Sub
End If
‘ エラーが発生しても処理を継続する設定
On Error Resume Next
‘ 指定した名前のシートをアクティブにする
Sheets(shName).Activate
‘ エラーが発生した場合（＝シートが存在しなかった場合）
If Err.Number <> 0 Then
‘ エラー情報をクリア
Err.Clear
‘ シートを末尾に追加し、名前を変更する
Sheets.Add(After:=Sheets(Sheets.Count)).Name = shName
MsgBox “シート「” & shName & “」を新規作成しました。”
End If
‘ エラー制御を通常に戻す
On Error GoTo 0
End Sub
5. 応用・注意点：現場で役立つヒント
・SelectとActivateの使い分け：
よく混同されますが、Selectは「複数のシートを範囲選択する」場合に使い、Activateは「その範囲の中の1枚を操作対象にする」場合に使います。単一のシートを切り替えるだけであればActivateだけで十分です。
・画面更新の停止：
マクロ実行中に画面がチカチカと切り替わるのを防ぐには、コードの冒頭で「Application.ScreenUpdating = False」を記述し、終了時に「True」に戻すことで、処理速度の向上と見栄えの改善が両立できます。
・オブジェクトの指定：
Worksheets(1).Activate のようにインデックス番号（左からの順序）で指定することも可能ですが、シートの並び順が変わると誤作動の原因になります。実務では可能な限り、Sheets(“シート名”)のように名前で指定するようにしましょう。
