未知の値を参照して新しい行を自動集計する

Question

ユーザーがリストに新しい行を挿入するときに解決策を見つけようとしています。これは、複数の行を別々のリストに自動的に読み込むために参照されます。右側の部分は、ユーザーが左側に追加の行（アセット番号など）を追加すると自動集計されます。さらに、アセット属性とアセット値は繰り返され、新しいアセット番号ごとに同じです。何かご意見は？ Before and after

は

Answer 1

あなたはWorkbook_SheetChangeイベントを調べる必要があります（これは私が右のそれをやっているので、うまくいけば、私の最初の質問！皆様のご理解と忍耐をありがとう！です）。ワークシートに変更が加えられると、その中に配置されたコードが実行されます。その関数内で、左側の特定の範囲内で変更が発生したときに、その右側のある範囲を更新するように指定することができます。データを含むシートで

Answer 2

（ここでは、ターゲットと呼ばれるシートである - 必要に応じて変化する）を、次のコードを有する：

を

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not IsEmpty(Target) And Target.Column = 1 And Target.Row > 1 Then 

     Dim wb As Workbook 
     Dim ws As Worksheet 

     Set wb = ThisWorkbook 
     Set ws = wb.Worksheets("Target") 

     Dim lastSourceRow As Long 
     Dim lastTargetRow As Long 

     lastSourceRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
     NextTargetRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row + 1 

     With ws.Cells(NextTargetRow, "D") 

      .Resize(3, 1).Value = ws.Cells(lastSourceRow, "A") 
      .Offset(, 1) = "Blue" 
      .Offset(, 2) = "45" 
      .Offset(1, 1) = "Big" 
      .Offset(1, 2) = "20" 
      .Offset(2, 1) = "Cold" 
      .Offset(2, 2) = "5" 

     End With 

    End If 

End Sub