第1个回答 2013-03-21
说得不是很清楚。如果B4有数据了。C3没有数据呢?你是要B列输入数据,C列自动出结果?
大概写了下,你看看你自己能不能改吧,不能再说。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Trim(Target.Value) <> "" And Target.Offset(-1, 1) <> "" Then
Application.EnableEvents = False
Range("C" & Target.Row).Value = Target.Value / 5 + Target.Offset(-1, 1)
Application.EnableEvents = True
End If
End Sub
第3个回答 2013-03-21
说得不是很清楚。如果B4有数据了。C3没有数据呢?你是要B列输入数据,C列自动出结果?
大概写了下,你看看你自己能不能改吧,不能再说。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Trim(Target.Value) <> "" And Target.Offset(-1, 1) <> "" Then
Application.EnableEvents = False
Range("C" & Target.Row).Value = Target.Value / 5 + Target.Offset(-1, 1)
Application.EnableEvents = True
End If
End Sub