範囲が更新されたときの日付入力用のVBAコード

Question

列C-Kが更新された日時を自動的に入力するために、列Bが必要なスプレッドシートがあります。 K以外の列には、更新コードをトリガしたくないものがあります。これは、行の変更のために更新されますので、これは私の状況では動作しませんでした

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim i As Integer 
i = Target.Row 
Dim t As String 
t = VBA.Now 
Cells(i, 2) = t 
End Sub 

：

は、まず私は、次のコードを使用していました。この利点は、ユーザーがこれらのセルを入力することができず、VBAが更新された日付を入力できなくなることでした。

だけで、選択した行のためのトリガーを有効にするには、私は次のコードに行ってきました：

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim KeyCells As Range 
Set KeyCells = Range("C6:K43")  
If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
    Is Nothing Then 
Dim i As Integer 
    i = Target.Row 

    Dim t As String 
    t = VBA.Now 

    Cells(i, 2) = t 
End If 
End Sub 

これは今、しかし、ユーザーともはや作品によって過入力することが可能です。

私はセルをロックしようとしましたが、その後VBAは動作しません。私もオフセット式を使用しようとしましたが、これはセルの範囲が1列以上あるためには機能しません。

私は私の髪を引き裂く前に任意の提案???

Answer 1

TargetはすでにRangeであるため、Range(Target.Address)を使用する必要はありません。ちょうどTargetを使用します。

@Tim Williamsのフィードバックに続いて、Application.EnableEventsをFalseにする必要があります。現在の時刻を列 "B"のセルに追加するとコードを再入力する必要はありません。

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim KeyCells As Range 
Set KeyCells = Range("C6:K43") 

Application.EnableEvents = False 
If Not Application.Intersect(KeyCells, Target) Is Nothing Then 
    Range("B" & Target.Row) = Now 
End If 
Application.EnableEvents = True 

End Sub