excel 中的两个单元格输入相同
Two cells same input in excel
我正在 excel 中寻找解决方案。我的目标是在两个不同的工作表中输入一个值,但这个值是相同的,条件是如果我们在这两个工作表中的任何一个中更改一个值,它会在第二个工作表中自动更改。所以我不能使用 =(对单元格的引用) 因为它会以一种方式创建 link。
希望能找到解决办法。
这样就可以了。如果我更改 Sheet1 中单元格 A1 的值,Sheet2 中单元格 A1 的值将设置为等于 Sheet1 中 A1 的值,反之亦然。
在 VBA 编辑器中将此代码粘贴到 Sheet1 中。然后复制此代码并将其传递到 Sheet2 - 将代码中的 "Sheet2" 更改为 "Sheet1"(第 15 行)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Changed As Range
Dim vNew As String
Set Changed = Range("A1")
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Changed) Is Nothing Then
vNew = Target.Value
Worksheets("Sheet2").Range("A1") = vNew
ActiveCell.Offset(1, 0).Select
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Set Changed = Nothing
End Sub
我正在 excel 中寻找解决方案。我的目标是在两个不同的工作表中输入一个值,但这个值是相同的,条件是如果我们在这两个工作表中的任何一个中更改一个值,它会在第二个工作表中自动更改。所以我不能使用 =(对单元格的引用) 因为它会以一种方式创建 link。
希望能找到解决办法。
这样就可以了。如果我更改 Sheet1 中单元格 A1 的值,Sheet2 中单元格 A1 的值将设置为等于 Sheet1 中 A1 的值,反之亦然。
在 VBA 编辑器中将此代码粘贴到 Sheet1 中。然后复制此代码并将其传递到 Sheet2 - 将代码中的 "Sheet2" 更改为 "Sheet1"(第 15 行)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Changed As Range
Dim vNew As String
Set Changed = Range("A1")
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Changed) Is Nothing Then
vNew = Target.Value
Worksheets("Sheet2").Range("A1") = vNew
ActiveCell.Offset(1, 0).Select
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Set Changed = Nothing
End Sub