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) 

等，等

我已经成功地得到它使用宏样的工作，但唯一的问题是，当我改变Sheet 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中选择的一行中显示Sheet 2上，然后都能够编辑第2页自动更新表1.

你必须做的是，你是如何使用选择事件，并将该行复制到工作表2中。然后，您必须使用工作表1上的激活事件将该行复制回工作表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没有以这种方式工作：

你不能用一个公式做到这一点。没有功能可与活动工作表或其他工作表上的活动单元一起使用。此外，Excel计算引擎无法识别在更改选择或在工作表之间移动时需要重新计算。