|
发表于 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
|
|