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

透明世界1987

自动计算金额.zip (302.76 KB, 下载次数: 22)

2022-7-7 14:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-7-8 10:24

Sub 计算()
    Dim Ar, R%
    With Sheets("订单汇总表")
        Ar = .Cells(1, 1).CurrentRegion
        For R = 2 To UBound(Ar)
            If 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

跳转到最佳答案楼层

lh6972338

附件都不上一个，让别人帮你写代码还要让别人帮你做模拟表格？

我行我速2008

For + if语句，很简单啊！

透明世界1987

lh6972338 发表于 2022-7-7 15:25
附件都不上一个，让别人帮你写代码还要让别人帮你做模拟表格？

上了呀  最上面呀

eennoo

1. Sub marco()
   
2. Set Source = Range("J1:J" & Range("A2").End(xlDown).Row)
   
3. For I = 1 To Source.Rows.Count
   
4.     dwRow = Source(I, 1).Row
   
5.     Select Case Source(I, 1).Value
   
6.         Case "御墅"
   
7.             Range("Q" & dwRow) = Range("F" & dwRow)
   
8.         Case "赛奥"
   
9.             Select Case Range("G" & dwRow).Value
   
10.                 Case "奥德普", "西泰", "立诺"
    
11.                 Range("Q" & dwRow) = Range("F" & dwRow) * 1.1
    
12.                 Case Else
    
13.                 Range("Q" & dwRow) = Range("F" & dwRow) * 1.02
    
14.             End Select
    
15.     End Select
    
16. Next
    
17. End Sub
    
18. 
    

复制代码

透明世界1987

eennoo 发表于 2022-7-7 21:12

请教大神，Q列计算结果只到第14行  试了几个都一样 计算到14行 15行开始没有计算结果

我行我速2008

试试看！！！！

我行我速2008

Sub 计算()
    Dim Ar, R%
    With Sheets("订单汇总表")
        Ar = .Cells(1, 1).CurrentRegion
        For R = 2 To UBound(Ar)
            If 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

我行我速2008

当J客户列为御墅则Q列复制F列的金额，
当J列客户为赛奥，那么供应商为奥德普、西泰、立诺则Q列金额为F列*1.1，不是这三个供应商的F列*1.02


这个要求不严谨，没说清客户不是御墅或赛奥应如何计算。

透明世界1987

我行我速2008 发表于 2022-7-8 10:36
当J客户列为御墅则Q列复制F列的金额，
当J列客户为赛奥，那么供应商为奥德普、西泰、立诺则Q列金额为F列*1 ...

感谢大神赐教，客户列只有两种情况 如有其它情况会手工操作
您的代码我试了下 单独运行是没有问题，但是为啥和我其它的代码凑在一块就出现只运算到第14行，15行的Q列开始没有计算了，这是为啥？