继续求助大神,帮看一下我的代码和问题,谢谢

105214121

请大神们帮看一下我的代码问题 ,表格已上传     本想输入单价会跳总价  输入总价又会跳单价.但我的只能输入单价跳总价,不能输总价跳单价 看是哪里出错了.麻烦大神帮我弄一下,谢谢

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([g19:g168,i19:i168,k19:k168], Target) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Dim r&
    r = Target.Row
    Application.EnableEvents = False
    If Target.Column = 69 Then
        If Cells(r, "g") <> 0 Then
           Cells(r, "i") = Cells(r, "k") / Cells(r, "g")
        Else
        End If
        Application.EnableEvents = True
    Else
        Cells(r, "k") = Cells(r, "i") * Cells(r, "g")
        Application.EnableEvents = True
    End If
End Sub

CC例例

If Target.Column = 69 Then
改为：
If Target.Column = 11 Then

105214121

CC例例 发表于 2018-7-19 11:46
If Target.Column = 69 Then
改为：
If Target.Column = 11 Then

可以了 非常感谢  是怎么看出是11的?

CC例例

105214121 发表于 2018-7-19 11:49
可以了 非常感谢  是怎么看出是11的?

表格中输入金额的列在第11列