セルの値を変更した場合、コピー

Question

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 
    Set KeyCells = Range("bw1:bw1000") 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 
    Range(Target.Address).Copy 
    Range(Target.Address).PasteSpecial xlPasteValues 
    End If 
End Sub 

Answer 1

にはThisWorkbookモジュールにこのコードを入れて（しないシートモジュール）同じセルに値として貼り付け：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 

    Dim KeyCells As Range 
    Dim ChangedCell As Range 
    Dim OldVal As Variant 
    Dim NewVal As Variant 

    'Adjust the name of the worksheet to be the name of the actual sheet containing the formulas in column BW 
    Set KeyCells = Me.Sheets("Sheet1").Range("BW1:BW1000") 

    If Sh.Name = KeyCells.Parent.Name Then 
     For Each ChangedCell In KeyCells.Cells 
      If ChangedCell.HasFormula Then 
       Application.EnableEvents = False 
       NewVal = ChangedCell.Value 
       Application.Undo 
       OldVal = ChangedCell.Value 
       Application.Undo 
       If NewVal <> OldVal Then ChangedCell.Value = NewVal 
       Application.EnableEvents = True 
      End If 
     Next ChangedCell 
    End If 

End Sub 

EDIT：からコメント当たり

OP： "ファイル内のすべての変更に対してマクロが実行されていますが、シート上のH57の値を変更すると、変更が発生するように制限できますか？"これを行うにはThisWorkbookモジュールから上記のコードを削除し、「モック」シートモジュールに以下のコードを入れて

：

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim KeyCells As Range 
    Dim ChangedCell As Range 
    Dim OldVal As Variant 
    Dim NewVal As Variant 

    If Target.Address = "$H$57" Then 

     Set KeyCells = ThisWorkbook.Sheets("Main.Data").Range("BW1:BW1000") 

     For Each ChangedCell In KeyCells.Cells 
      If ChangedCell.HasFormula Then 
       Application.EnableEvents = False 
       NewVal = ChangedCell.Value 
       Application.Undo 
       OldVal = ChangedCell.Value 
       Application.Undo 
       If NewVal <> OldVal Then ChangedCell.Value = NewVal 
       Application.EnableEvents = True 
      End If 
     Next ChangedCell 
    End If 

End Sub