多条件计算！

人生任我行

详细购表格。
要求：1.L列计算边的米数。根据G列和J列条件，当G列是A时，就进行计算，B和C就不计算。当计算时又要根椐J列条件。当J列出现2A2B时，就是计算四条 边条。当出现2A1B时就计算两长边一短边。当出现1A1B是，就计算一长边一短边。

2.M列计算油漆的平方当G列出现B时，就进行计算，A和C就不计算,当J列出现2A2B2P，就是计算四边的面和正反面的平方。当J列出现1A1B1P时，就计算1长边和1短边的面平方和正面平方

wshcw

=SUMIFS(K$4:K$16,G$4:G$16,"A",$J$4:$J$16,"2A2B")

人生任我行

wshcw 发表于 2013-4-22 08:46
=SUMIFS(K$4:K$16,G$4:G$16,"A",$J$4:$J$16,"2A2B")

你的结果不对，是用VBA实现计算。并且我上传的附件、

grf1973

1. Sub 计算()
   
2.     With Sheet1
   
3.         r = .[b65536].End(3).Row
   
4.         arr = .Range("c4:e" & r)  '长宽高
   
5.         For i = 1 To UBound(arr)
   
6.             gym = .Cells(i + 3, "J")
   
7.             la = InStr(gym, "A"): If la > 0 Then a = CInt(Mid(gym, la - 1, 1)) Else a = 0 '“A”前面的数字
   
8.             lb = InStr(gym, "B"): If lb > 0 Then b = CInt(Mid(gym, lb - 1, 1)) Else b = 0 '“B”前面的数字
   
9.             lp = InStr(gym, "P"): If lp > 0 Then p = CInt(Mid(gym, lp - 1, 1)) Else p = 0 '“P”前面的数字
   
10.             gy = .Cells(i + 3, "G")
    
11.             If gy = "A" Then .Cells(i + 3, "L") = (a * arr(i, 1) + b * arr(i, 2)) / 1000
    
12.             If gy = "B" Then .Cells(i + 3, "M") = (a * (arr(i, 1) * arr(i, 3)) + b * (arr(i, 2) * arr(i, 3)) + p * (arr(i, 1) * arr(i, 2))) / 1000000
    
13.         Next
    
14.     End With
    
15. End Sub
    

复制代码

你自己试验一下，我是按自己理解做的公式。如果不对把公式改一下。

人生任我行

grf1973 发表于 2013-4-22 10:07
你自己试验一下，我是按自己理解做的公式。如果不对把公式改一下。

你的结果非常好，只是有点美中不足。就是在计算前先清除原来的数据。否则数据不对，就是为了前面有数据变动，点更新，有的变不了

grf1973

没弄懂你的意思，说详细一点。

人生任我行

grf1973 发表于 2013-4-22 20:12
没弄懂你的意思，说详细一点。

例 如我要把G列的A改成B,那么点更新后，原数据不会清除。所以我建议，每次在点更新数据前，要把上次计算的结果全部后，在计算

grf1973

在程序里加一句：  .[L4:M65536].ClearContents就行了，把L、M列的内容清掉。放在With Sheet1下面。

人生任我行

grf1973 发表于 2013-4-23 08:54
在程序里加一句：  .[L4:M65536].ClearContents就行了，把L、M列的内容清掉。放在With Sheet1下面。

谢谢！你的结果非常OK

grf1973

1. Sub 导入()
   
2.     xh = Sheet2.[F1] '箱号
   
3.     Sheet2.[a3:f25].ClearContents
   
4.     With Sheet1
   
5.         r = .[b65536].End(3).Row
   
6.         For i = 4 To r
   
7.             If .Cells(i, "N") = xh Then
   
8.                 xr = Sheet2.[a25].End(3).Row + 1
   
9.                 Sheet2.Cells(xr, 1).Resize(1, 5).Value = .Cells(i, 2).Resize(1, 5).Value
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码