同じシート内で多重マクロを実行する

Question

何かが更新された日時を埋めるマクロを実行しようとしていますが、同じ行に2回発生する必要があります。

私はそれがイニシャルが列Aに入力されたときに、列B + Cを埋めるために設定しているが、私は実行したい誰かが列Nに別の値を入力する

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range, B As Range, Inte As Range, r As Range 
    Set A = Range("A:A") 
    Set Inte = Intersect(A, Target) 
    If Inte Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
    For Each r In Inte 
     If r.Value > 0 Then 
      r.Offset(0, 1).Value = Date 
      r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
      r.Offset(0, 2).Value = Time 
      r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
     Else 
      r.Offset(0, 1).Value = "" 
      r.Offset(0, 2).Value = "" 
     End If 
    Next r 
End Sub 

Answer 1

あなただけに必要アドレスは/対象範囲の場所が何であるかをテストします。このようなアプローチは扱いにくい得ることができますので、

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 

    Select Case Target.Column 
     Case 1 ' "A" 

      Dim A As Range, B As Range, Inte As Range, r As Range 
      Set A = Range("A:A") 
      Set Inte = Intersect(A, Target) 
      If Inte Is Nothing Then Exit Sub 
      For Each r In Inte 
       If r.Value > 0 Then 
        r.Offset(0, 1).Value = Date 
        r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
        r.Offset(0, 2).Value = Time 
        r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
       Else 
        r.Offset(0, 1).Value = "" 
        r.Offset(0, 2).Value = "" 
       End If 
      Next r 

     Case 14 ' "N" 
       ' Do something else 

    End Select 

    Application.EnableEvents = True ' <-- Don't forget to turn this back on! 

End Sub 

また、頻繁にあなたの方法を打破することをお勧めします。 Inteにで

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 

    Select Case Target.Column 
     Case 1, ' "A" 
      Call AddDatesAfterInitialsEntered(Target) 

     Case 14 ' "N" 
      ' Do something else 

    End Select 

    Application.EnableEvents = True ' <-- Don't forget to turn this back on! 

End Sub 

Private Sub AddDatesAfterInitialsEntered(Target As Range) 

    Dim A As Range, B As Range, Inte As Range, r As Range 
    Set A = Range("A:A") 
    Set Inte = Intersect(A, Target) 
    If Inte Is Nothing Then Exit Sub 
    For Each r In Inte 
     If r.Value > 0 Then 
      r.Offset(0, 1).Value = Date 
      r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
      r.Offset(0, 2).Value = Time 
      r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
     Else 
      r.Offset(0, 1).Value = "" 
      r.Offset(0, 2).Value = "" 
     End If 
    Next r 

End Sub