알 수없는 값을 참조하여 새 행 자동 채우기

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