ユーザー名を使用した開始時刻と終了時刻のタイムスタンプ

Question

以下のコードは、完了した各エントリのタイムスタンプを示すトリガ、列AとBに依存しますが、実行時エラー1004のポップアップを表示し続けます。

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Range("A2:B501")) Is Nothing Then 
Target.Offset(0, 12) = Now 
Target.Offset(1, 13) = Now 
Target.Offset(0, 14) = Environ("UserName") 

End If 
End Sub 

私はVBAをやっていて、うまくいけば皆さんが私を助けることができます。これを処理する

Answer 1

良い方法のようなものです：あなたはコーラとCOLBの両方を処理しているので、

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim rng As Range 

    Set rng = Application.Intersect(Target, Me.Range("A2:B501")) 
    'Work with "rng", not "Target", since Target might contain cells 
    ' outside of ColA or B... 
    If Not rng Is Nothing Then 
     'Target (and so rng) could contain multiple cells 
     ' so need to address them individually 
     For Each c In rng.Cells 
      'EDIT: 
      c.Offset(0, 12) = Now 'ColA >> M, ColB >> N 
      c.EntireRow.Cells(1, "O") = Environ("UserName") 
     Next c 

    End If 

End Sub 

ただしAとBからのオフセット範囲が

をオーバーラップされますので、あなたが値を上書きしてしまうかもしれチャンスがあります