Excel에서 다른 시트의 선택된 행을 편집하는 방법이 있습니까?

Question

현재/활성 행에서 셀을 참조하는 간단한 방법이 있는지 궁금합니다.

즉 - 나는 2 개 시트에 대한 정보가 많이 나는 시트에 현재/활성 행의 정보를 표시 할 두 번째로 하나가 1

그래서 행 5 그런 다음 시트 1에서 선택한 말 시트 2로 간다면 5 행의 모든 ​​정보가 시트 2에 표시됩니다. 그런 다음 시트 1의 8 행을 선택하면 시트 2의 정보가 시트 1의 8 행의 정보 만 표시되도록 업데이트됩니다.

다시 시트 1.

갔다 어쩌면 내가 그녀의 세포에 추가 할 수있는 간단한 공식이 때 시트 2에서 만든

모든 변경 사항이 반영 될 것이다 et 2? 어쩌면의 라인을 따라 뭔가 : 나는 종류의 매크로를 사용하여 작업을 진행하게 관리했지만, 유일한 문제는 등

cell A1 on sheet 2 have =sheet1(active_row.colum1) 

and then cell A2 on sheet 2 have =sheet1(active_row.colum2) 

등이 내가 시트 2에 대한 정보를 변경하는 경우, 시트 1의 정보를 업데이트하지 않습니다.이 기능을 코드에 추가하는 방법이 있다면, 좋을 것입니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim myList 
If Target.Address <> Target.EntireRow.Address Then Exit Sub 
If Target.Rows.Count > 1 Then Exit Sub 
myList = [{"B1","B2","B3","B4","B5","B6","B7","B8","B9","B10","B11","B12","B13","B14","B15"}] '<- adjust to your need 
With Target.EntireRow 
    For i = 1 To UBound(myList) 
     Sheets("sheet2").Range(myList(i)).Value = .Cells(i).Value 
    Next 
End With 
End Sub 

어떤 제안 :

이

내가 지금까지 가지고있는 코드는? 당신은 공식이 작업을 수행 할 수

: :) 짧은 대답이 '아니오'

Answer 1

예, 가능하지만 조금 복잡합니다.

은 자동으로 1

은 당신이해야 할 것은 당신이 같은 선택 이벤트를 사용하는 것입니다 시트를 업데이트 할 시트 2를 편집 할 수 다음 한 시트 1에서 선택한 행이 시트 2에 표시 할, 그리고 시트 2에 행을 복사합니다. 그런 다음 시트 1의 Activate 이벤트를 사용하여 시트 1에 다시 행을 복사해야합니다. 다음 코드는 시트 1에 셀에 워크 시트 함수 (수식)가 없다고 가정합니다. 당신은 여전히 ​​그것을 할 수 있지만 공식을 보존하고 그것을 대체해야합니다.

시트 1 개 코드 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If Target.Address <> Target.EntireRow.Address Then Exit Sub 
If Target.Rows.Count > 1 Then Exit Sub 

Target.EntireRow.Copy 
Sheets("Sheet2").Activate 
Sheets("Sheet2").Range("A1") = Target.Row 
Sheets("Sheet2").Rows(2).PasteSpecial (xlPasteValues) 

End Sub 

시트 2 코드는 :

Private Sub Worksheet_Deactivate() 

If Sheets("Sheet2").Range("A1") > 0 Then 
    Sheets("Sheet2").Rows(2).Copy 
    Sheets("Sheet1").Activate 
    ActiveSheet.Rows(Sheets("Sheet2").Range("A1")).EntireRow.PasteSpecial (xlPasteValues) 
    Sheets("Sheet2").UsedRange.ClearContents 
End If 

End Sub 

Answer 2

, 엑셀이 방법을 작동하지 않습니다. 활성화 된 시트 나 다른 시트의 활성 셀에서 작동하는 함수는 없습니다. 또한 Excel 계산 엔진은 선택 항목을 변경하거나 시트간에 이동할 때 다시 계산해야 할 필요성을 인식하지 못합니다.