求高手将复杂的公式改为代码~~~~

KCFONG

see if my understand is correct

Sub 计算()
Dim at, arr, i
at = Sheets("ALL").Range("A4:Z6500")
ReDim arr(1 To UBound(at), 1 To 24)
For i = 4 To UBound(arr)
    If Application.WorksheetFunction.IsNumber(Cells(i, 20)) = False Then        '订货周期计算
        Cells(i, 14).Value = Cells(i, 20)
    Else
        If Application.WorksheetFunction.IsNumber(Cells(i, 7)) = False Then
            Cells(i, 14).Value = Cells(i, 7)
        Else
            Cells(i, 14).Value = Cells(i, 20) - Cells(i, 7)
                If Cells(i, 14).Value > 10000 Then
                    Cells(i, 14).Value = Cells(i, 13)
                    End If
        End If
    End If

    If IsNumeric(Cells(i, 14)) = False Or Cells(i, 10) = 0 Or Cells(i, 14) = 0 Then                     '日均消耗计算
        Cells(i, 11).Value = Cells(i, 14)
    Else
        Cells(i, 11).Value = Cells(i, 10) / Cells(i, 14)
    End If
   
    If Application.WorksheetFunction.IsNumber(Cells(i, 11)) = False Or Cells(i, 11) = 0 Then     '完全消耗周期计算
        Cells(i, 12).Value = Cells(i, 11)
    Else
        Cells(i, 12).Value = Cells(i, 24) / Cells(i, 11)
    End If

Bjj199299

KCFONG 发表于 2013-4-3 18:41
see if my understand is correct

Sub 计算()

多谢！！！！

Bjj199299

KCFONG 发表于 2013-4-3 18:41
see if my understand is correct

Sub 计算()

多谢你帮我一个大忙！可是上次那个把公式改成代码的东西，我测试了几天发现了个问题……就是例如客户编号Z-129的砂纸，确实最新订货日期是2013.3.20，但是在那天Z-129有3条砂纸的订货记录！请问能否做一个求和？因为这样的情况还不少~用现在的代码导入的话只能导入一条订货金额！多谢！

Bjj199299

Bjj199299 发表于 2013-4-5 10:44
多谢你帮我一个大忙！可是上次那个把公式改成代码的东西，我测试了几天发现了个问题……就是例如客户编号 ...

我想在导入金额的那一段换成worksheetfunction.sumif~但是sumif的sum_range设定的时候一直出错~

1. Set wb = GetObject(ThisWorkbook.Path & "\312.xls")
   
2.   Rng = wb.Sheets(1).[a1].CurrentRegion
   
3.   Set row = wb.Sheets(1).[O:O]
   
4.   wb.Close False
   
5.   Set wb = Nothing
   
6.   For r = 2 To UBound(Rng)
   
7.      y = Rng(r, 2) & " " & Rng(r, 5)
   
8.      If Rng(r, 1) > dic(y) Then
   
9.        dic(y) = Rng(r, 1)
   
10.        dic2(y) = Application.WorksheetFunction.SumIf(row, Rng(r, 1))

复制代码

哎~有点不专业~但是还是想自己写写看~果然还是不行!请指教!

KCFONG

see if fit your request

Bjj199299

KCFONG 发表于 2013-4-5 11:31
see if fit your request

多谢!!!!!!!!!!!!!!!!!!!!!!!!!

Bjj199299

KCFONG 发表于 2013-4-5 11:31
see if fit your request

不好意思又要麻烦你啦~现在又出现个问题，还是上次那个导入金额的问题，我需要的是比如：一家客户在2013.4.1订购“脚垫纸",我需要的是2013.4.1的”脚垫纸“的金额，而现在的代码是，导出2013.4.1以前的所有”脚垫纸“的金额

KCFONG

SEE IF FIT YOUR REQUEST

Bjj199299

KCFONG 发表于 2013-4-7 13:11
SEE IF FIT YOUR REQUEST

这样倒入的话，最新订购金额（New）那一栏就全空了……

KCFONG

PLEASE SEE IF FIT YOUR REQUEST