複数のシートにわたるワークシートコード

Question

ワークシートの上部にナビゲーションバーがあり、すべてのワークシートにコードを貼り付けるのではなく、ワークブック全体にナビゲーションコードを適用したいとします。これは、ナビゲーションマクロを呼び出すセルをクリックすることによって機能します。私は、機能的であり、次のコード（抜粋）を持っていますが、確かにこれを行うのではなく、すべてのシートに貼り付けるのより効率的な方法が存在しなければならない。これは前に頼まれている場合

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    'Navigation bar 
    If Not Intersect(Target, Range("E2:I3")) Is Nothing Then 
     Call goto_Introduction 
    End If 

    If Not Intersect(Target, Range("J2:N3")) Is Nothing Then 
     Call goto_OverviewInputs 
    End If 

    If Not Intersect(Target, Range("O2:S3")) Is Nothing Then 
     Call goto_PopulationSize 
    End If 

謝罪ではなく、持っていますあなたはモジュールにロジックを移す可能性のあるソリューションに、これまで...

Answer 1

が見つかりました：

'put this within a module 
Option Explicit 

Public Sub NavigationBar(ByVal Target As Range) 
    If Not Intersect(Target, Target.Parent.Range("E2:I3")) Is Nothing Then 
     goto_Introduction 'note that the call statement is deprecated 
          'and not needed to call a procedure! 
    End If 

    If Not Intersect(Target, Target.Parent.Range("J2:N3")) Is Nothing Then 
     goto_OverviewInputs 
    End If 

    If Not Intersect(Target, Target.Parent.Range("O2:S3")) Is Nothing Then 
     goto_PopulationSize 
    End If 
End Sub 

ので、あなただけのすべてのワークシート

にそのロジックへの呼び出しを挿入する必要があります