Excel中如何保持两个单元格数值相同
例如:
当改变一个单元格内容时,另一个也随之改变,如B2和B4,改变B2内容为99时,B4内容立即变为99,当改变B4内容为55时B2也变为55,最好用宏定义写成公式!以方便随即引用。
解决办法:
打开Excel,(在Excel2003和Excel2010中实验成功)
Dim iRow, iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iRow = 2 And iCol = 2 Then
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
Range("b4") = Range("b2").Value
Else
If iRow = 4 And iCol = 2 Then
Range("B2") = Range("b4").Value
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
例如:
当改变一个单元格内容时,另一个也随之改变,如B2和B4,改变B2内容为99时,B4内容立即变为99,当改变B4内容为55时B2也变为55,最好用宏定义写成公式!以方便随即引用。
解决办法:
打开Excel,(在Excel2003和Excel2010中实验成功)
按ALT+F11,
插入“模块”,
将下面代码粘贴到右边窗口中:
Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow, iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iRow = 2 And iCol = 2 Then
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
Range("b4") = Range("b2").Value
Else
If iRow = 4 And iCol = 2 Then
Range("B2") = Range("b4").Value
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
关闭VBA。