求助各位老师，优化一下VBA代码，非常感谢

zhycl

示例压缩包中有两个文件，一个是需要VBA的表，一个是表中需要VBA的取数说明，其中“项目款支付申请表”中含有简单的VBA，“VBA需求说明”是表中各列如何取数的文字说明。
求助内容：“项目款支付申请表”表中有了VBA但运行效率太低，希望老师能给修改成一键运行，且效率高的VBA，因为以后数据量会逐渐增多。再次先谢过了。 示例.rar (70.26 KB, 下载次数: 9)

2018-7-5 18:47 上传

点击文件名下载附件

zhycl

自己顶一顶

zhycl

接着顶一下

不知道为什么

zhycl 发表于 2018-7-5 22:26
接着顶一下

你还顶什么顶？仅需求就word文档写了6页？你想干什么？

zhycl

我只想请老师帮助我解决这个来回判断求和，求差，运行速度快一点的VBA，别无他求，或者老师挑几个有代表性的，我学习一下。

zhycl

不知道为什么 发表于 2018-7-5 22:30
你还顶什么顶？仅需求就word文档写了6页？你想干什么？

我只想请老师帮助我解决这个来回判断求和，求差，运行速度快一点的VBA，别无他求，或者老师挑几个有代表性的，我学习一下。

zhycl

顶一顶顶一顶顶一顶

zhycl

不知道为什么 发表于 2018-7-5 22:30
你还顶什么顶？仅需求就word文档写了6页？你想干什么？

求教老师，指点下面这段代码无法运行的原因，谢谢了
想得到的结果是：
如果G列到Z列的和=0，则
     从AA列到AJ列均为0，
    否则
    AA=G列到Z列的和。
    AB=G列+I列+K列+M列
    AC=H列+J列+L列+N列
    AD=O列
    AE=P列
    AF=Q列+S列+U列+W列
    AG=R列+T列+V列+X列
    AH=Y列
    AI=Z列
    AJ =AA列到AI列之和。


Sub 台账汇总计算()
Dim nRow, arr
Application.ScreenUpdating = False

With Sheets("台账汇总")
  nRow = .Range("a" & .Rows.Count).End(3).Row
  arr = .Range("g5:z" & nRow)
  aarr = .Range("aa5:aj" & nRow)
End With

For i = 1 To UBound(arr)
     
       If WorksheetFunction.Sum(Range("arr(i, 7):arr(i, 26)")) = 0 Then
               
            For k = 27 To 36
            aarr(i, k) = ""
         Next k
      Else
         aarr(i, 27) = WorksheetFunction.Sum(Range("arr(i, 7):arr(i, 26)"))
         aarr(i, 28) = arr(i, 7) + arr(i, 9) + arr(i, 11) + arr(i, 13)
         aarr(i, 29) = arr(i, 8) + arr(i, 10) + arr(i, 12) + arr(i, 14)
         aarr(i, 30) = arr(i, 15)
         aarr(i, 31) = arr(i, 16)
         aarr(i, 32) = arr(i, 17) + arr(i, 19) + arr(i, 21) + arr(i, 23)
         aarr(i, 33) = arr(i, 18) + arr(i, 20) + arr(i, 22) + arr(i, 24)
         aarr(i, 34) = arr(i, 25)
         aarr(i, 35) = arr(i, 26)
         aarr(i, 36) = WorksheetFunction.Sum(Range("arr(i, 27):arr(i, 35)"))
       End If
     
  Next i
  
Sheets("台账汇总").Range("aa5:aj" & nRow) = aarr
Application.ScreenUpdating = True
End Sub

不知道为什么

zhycl 发表于 2018-7-16 18:38
求教老师，指点下面这段代码无法运行的原因，谢谢了
想得到的结果是：
如果G列到Z列的和=0，则

最好是把你出错的附件一起发出来，这样效率会高些。

zhycl

不知道为什么 发表于 2018-7-23 19:30
最好是把你出错的附件一起发出来，这样效率会高些。

老师，这个帖子的问题，我已经解决了，下面这个需要帮助，谢谢


求助判断单元格取数的VBA，谢谢
http://club.excelhome.net/thread-1426506-1-1.html
(出处: ExcelHome技术论坛)