[已解决]怎么根据一列金额，判断自动填写林一列金额

透明世界1987

根据一列金额判断另列金额.zip (490.89 KB, 下载次数: 4)

2022-12-2 12:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-12-2 13:58

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
    If Target.Row > 7 Then
        If Target.Offset(, 4).Value = "赛奥" Then
            If InStr("奥德普/西泰/立诺/莱升/欧仑凯/和昌", Target.Offset(, 1).Value) Then
                Target.Offset(, 11).Value = Target.Value * 1.1
            Else
                Target.Offset(, 11).Value = Target.Value * 1.2
            End If
        ElseIf InStr("御墅/泰禾", Target.Offset(, 4).Value) Then
            Target.Offset(, 11).Value = Target.Value
        End If
    End If
End Sub

跳转到最佳答案楼层

哥儿-

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
    If Target.Row > 7 Then
        If Target.Offset(, 4).Value = "赛奥" Then
            If InStr("奥德普/西泰/立诺/莱升/欧仑凯/和昌", Target.Offset(, 1).Value) Then
                Target.Offset(, 11).Value = Target.Value * 1.1
            Else
                Target.Offset(, 11).Value = Target.Value * 1.2
            End If
        ElseIf InStr("御墅/泰禾", Target.Offset(, 4).Value) Then
            Target.Offset(, 11).Value = Target.Value
        End If
    End If
End Sub