[已解决]麻烦帮忙改下这个代码

jiangslly

Cells(20, 25).Value = Worksheet.Function("=sum(range("U3:U115")-sum(range("w3:w115"))-sum(range("x3:x115")) _
                         -sum(range("y3:y115"))-sum(range("z3:z115"))-sum(range("aa3:aa115"))-sum(range("ab3:ab115")))
VBA中应用worksheet.function功能，后面的公式是这样写吗？正确是怎么样写？谢谢

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-15 11:26

回复 jiangslly 的帖子

1. 
   
2. Sub jianyan()  '目的：检验根据加工厂竖向求得的工资是否与根据汇总得到的工资是否相等
   
3.     Dim r As Integer, c As Integer, d As Integer
   
4.    
   
5.     Sheet4.Select
   
6.     Sheet4.Cells(20, 25).Value = s
   
7.     With Sheet12
   
8.         For i = 3 To 115
   
9.             s1 = s1 + .Range("V" & i)
   
10.             For j = 24 To 29
    
11.                 s2 = s2 + .Cells(i, j)
    
12.             Next j
    
13.         Next i
    
14.     End With
    
15.     Sheet4.Cells(20, 25).Value = s1 - s2
    
16.     '根据加工厂竖向求的的数据填入到加工厂汇总表cells(20,25)进行检验
    
17. End Sub
    
18. 
    

复制代码

跳转到最佳答案楼层

那么的帅

公式太多复杂，请提供数据附件

jiangslly

回复 那么的帅 的帖子

谢谢，附件我已经传上来了，在模块3里面

那么的帅

回复 jiangslly 的帖子

1. 
   
2. Sub jianyan()  '目的：检验根据加工厂竖向求得的工资是否与根据汇总得到的工资是否相等
   
3.     Dim r As Integer, c As Integer, d As Integer
   
4.    
   
5.     Sheet4.Select
   
6.     Sheet4.Cells(20, 25).Value = s
   
7.     With Sheet12
   
8.         For i = 3 To 115
   
9.             s1 = s1 + .Range("V" & i)
   
10.             For j = 24 To 29
    
11.                 s2 = s2 + .Cells(i, j)
    
12.             Next j
    
13.         Next i
    
14.     End With
    
15.     Sheet4.Cells(20, 25).Value = s1 - s2
    
16.     '根据加工厂竖向求的的数据填入到加工厂汇总表cells(20,25)进行检验
    
17. End Sub
    
18. 
    

复制代码