Excel问题,如何实现在B列输入一个数值,对应的C列就会根据函数出现对应值,反向在C输入B也成立?
实现方法:按ALT+F11、CTRL+R,双击对应的工作表,然后粘贴下面的代码进去,效果如下图,随后关闭这个ALT+F11新打开的窗口,回到EXCEL就生效了:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And VarType(Target.Value) = vbDouble Then
If Target.Column = 2 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * 1000 / 150
Application.EnableEvents = True
ElseIf Target.Column = 3 Then
Application.EnableEvents = False
Target.Offset(0, -1) = Target.Value * 150 / 1000
Application.EnableEvents = True
End If
End If
End Sub
我按ALT+F11没反应啊 你是不是有什么软件、CTRL+R