Excel - 다른 시트의 한 행에있는 내용으로 열 머리글 채우기

Question

여기에 제 시나리오가 있습니다 - 열에 COLUMN A의 고객 목록이 있습니다 - 관련 데이터와 함께 ... 제가 만들고 싶은 다른 시트가 있습니다. 매트릭스 ...하지만 나는 시트 1에 COLUMN에 추가 NEW 고객이 원하는 1

ROW 따라 고객 목록이 - 시트에 ROW에 추가 할 2

는

어떻게이 이루어집니다 ?

Answer 1

VBA 기능 수준은 확실하지 않지만 첫 번째 시트의 코드 숨김에서 Workhseet_Change 이벤트를 캡처 할 수 있습니다.

업데이트 된 셀이 A 열에 있는지 확인할 수 있습니다. 그렇다면 첫 번째 행의 시트 2에 해당 값을 추가 할 수 있습니다. 내가 과거에 가지고 싶습니다 연결 셀과, 그러나 - 내가 어디에 있어요 그건 -

Private Sub Worksheet_Change(ByVal Target As Range) 

    'check to make sure the updated cell (Target) is in column 1 (column A) 
    If Target.Column = 1 Then addToSheet2 (Target.Value2) 

End Sub 

Private Sub addToSheet2(ByVal newValue As Variant) 

    Dim ws As Worksheet 
    Dim columnCount As Integer 
    Dim nextColumn As Integer 

    On Error GoTo errTrap 

    Set ws = ThisWorkbook.Sheets(2) 'probably want to use the sheet name, instead of the index 

    'probably a good idea to check if it already exists in row 1 of sheet 2 

    'get the number of columns used in sheet 2 
    columnCount = ws.UsedRange.Columns.Count 

    'this may be overkill, but if you are starting from scratch, columnCount will be 1 even if 
    'there is no data in sheet 2 row 1 
    If columnCount = 1 And ws.Range("A1").Value2 = vbNullString Then 
     nextColumn = columnCount 
    Else 
     nextColumn = columnCount + 1 
    End If 

    ws.Cells(1, nextColumn).Value2 = newValue 

errTrap: 
    Set ws = Nothing 

End Sub