ワークシートがあいまいな名前解決を変更しますか？

Question

私は、1枚のシートにワークシートの変更と呼ばれる2つの独立したサブを持つことができないことを知っています。だから私はそれを取り除いた。

私はこのコードを実行するために必要な変更を把握することができません。いくつかの助けが大好きです。

Private Sub Worksheet_Change(ByVal Target As Range) 


If Target.Row = 10 And Target.Column = 121 And Target.Count = 1 Then 

Set Target = Range("range1") 

If Target <> "Calculate" Then Exit Sub 

Select Case Target.Value 
Case "Calculate" 
    macro1 

End Select 
End If 


ElseIf Target.Row = 10 And Target.Column = 123 And Target.Count = 1 Then 

Set Target = Range("range2") 

If Target <> "Calculate" Then Exit Sub 

Select Case Target.Value 
Case "Calculate" 
    macro2 

End Select 

End If 

End If 



End Sub 

Answer 1

このようなものはあなたのために働くはずです。ノート、決してTarget引数再割り当てしようとして： `macro1`または` macro2`変更した場合

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim rngCheck1 As Range 
    Dim rngCheck2 As Range 

    Set rngCheck1 = Intersect(Target, Me.Range("DQ10")) 'Row 10, Column 121 
    Set rngCheck2 = Intersect(Target, Me.Range("DS10")) 'Row 10, Column 123 

    Application.EnableEvents = False 
    On Error GoTo CleanExit 

    If Not rngCheck1 Is Nothing Then 
     If Trim(LCase(rngCheck1.Value)) = "calculate" Then Call macro1 
    End If 

    If Not rngCheck2 Is Nothing Then 
     If Trim(LCase(rngCheck2.Value)) = "calculate" Then Call macro2 
    End If 

CleanExit: 
    Application.EnableEvents = True 

End Sub