[已解决]大神给段代码 自动计算金额的代码

透明世界1987

我行我速2008 发表于 2022-7-8 10:24
Sub 计算()
    Dim Ar, R%
    With Sheets("订单汇总表")

请教大神，条件御墅那里要新增一个条件，
当是御墅或者泰和，都是直接复制前面金额，需要怎么改一下

我行我速2008

很简单的，有时间可以自己学习下。

Sub 计算()
    Dim Ar, R%
    With Sheets("订单汇总表")
        Ar = .Cells(1, 1).CurrentRegion
        For R = 2 To UBound(Ar)
            If Ar(R, 10) = "御墅" Or Ar(R, 10) = "泰和" Then
                Ar(R, 17) = Ar(R, 6)
            ElseIf Ar(R, 10) = "赛奥" And Ar(R, 7) = "奥德普" Or Ar(R, 7) = "西泰" Or Ar(R, 7) = "立诺" Then
                Ar(R, 17) = Application.Round(Ar(R, 6) * 1.1, 2)
            Else
                Ar(R, 17) = Application.Round(Ar(R, 6) * 1.02, 2)
            End If
        Next R
        .Cells(1, 1).CurrentRegion = Ar
    End With
End Sub