求助判断取数的VBA，望老师们给予帮助，谢谢

zhycl

chaohuahch 发表于 2018-7-12 09:50
一时疏忽。本处的j修改成i、原来的代码，用你的真实数据的话，会下标越界。我的问题。

因为我刚开始学习VBA，自己按照最简单的语句写的VBA，数据量大，运行速度慢，不知道老师是否有时间帮我调整一下代码，具体在附件 VBA 模块1中，如下图

项目款支付申请表-VBA-示例.rar (72.38 KB, 下载次数: 0)

2018-7-12 11:02 上传

点击文件名下载附件

chaohuahch

zhycl 发表于 2018-7-12 11:02
因为我刚开始学习VBA，自己按照最简单的语句写的VBA，数据量大，运行速度慢，不知道老师是否有时间帮我 ...

第一：把你的cells（i,25）等这样的表达方式，全部修改成数组。
第二： Worksheets("台账汇总")重复出现多次，应该用with 与end with 取代

zhycl

chaohuahch 发表于 2018-7-12 11:23
第一：把你的cells（i,25）等这样的表达方式，全部修改成数组。
第二： Worksheets("台账汇总")重复出现 ...

老师，能具体举个例子吗？

chaohuahch

zhycl 发表于 2018-7-12 11:25
老师，能具体举个例子吗？

上面两行代码的结果是完全一致的。第一种，看起来就简洁的多。

用数组的话，数组其实就是一张虚拟的表格。你的代码，比如 i=5的话，你用cells从6列到27列，读取了21次表格，而用数组的话，你只提取了一次表格。这样的运算速度就提高了很多、

zhycl

chaohuahch 发表于 2018-7-12 11:36
上面两行代码的结果是完全一致的。第一种，看起来就简洁的多。

用数组的话，数组其实就是一张虚拟 ...

能给详细解释一下面有备注 各句的意思吗？


Sub 项目付款明细()
Dim nRow, arr
Dim nRow1, arr1, brr, crr
Dim sh As Worksheet '-------------------------------？
Application.ScreenUpdating = False '----------------?

With Sheets("台账汇总")
  nRow = .Range("a" & Rows.Count).End(3).Row
  arr = .Range("a5:f" & nRow)
End With
  
With Sheets("项目付款明细")
  nRow1 = .Range("a" & Rows.Count).End(3).Row
  arr1 = .Range("a6:g" & nRow1)
  brr = .Range("b6:b" & nRow1)
  crr = .Range("h6:h" & nRow1)
End With
  
  For i = 1 To UBound(arr) '--------------------------那个 1 是什么意思。
     For j = 1 To UBound(arr1) '--------------------------那个 1 是什么意思。
       If arr1(j, 1) = arr(i, 1) Then '--------------------------那个 1 是什么意思。
         For k = 3 To UBound(arr1, 2) '--------------------------那个 3和2 各是什么意思。?
            arr1(j, k) = arr(i, k - 1) '--------------------------那个 -1 什么意思？
         Next k
       End If
     Next j
  Next i
Sheets("项目付款明细").Range("a6:g" & nRow1) = arr1
  
For Each sh In Worksheets '--------------------------?
  For i = 1 To UBound(brr) '--------------------------那个 1 是什么意思。
    If sh.Name = brr(i, 1) Then '--------------------------那个 1 是什么意思。
     crr(i, 1) = sh.Range("C7") '--------------------------那个 1 是什么意思。
    End If
  Next i
Next sh
Sheets("项目付款明细").Range("h6:h" & nRow1) = crr
Application.ScreenUpdating = True '--------------------------?

End Sub

zhycl

chaohuahch 发表于 2018-7-12 11:36
上面两行代码的结果是完全一致的。第一种，看起来就简洁的多。

用数组的话，数组其实就是一张虚拟 ...

老师，我的表AA列取数=如果（G列到Z列之和=0）则（AA=“”）否则AA=G列到Z列之和。我比照您的代码写的如下代码，也能获得结果，不知道这样是不是最简练的。请指教。谢谢但是结果：A列有331行，但运行后结果只计算到327行，不知道如何解决。

Sub 台账汇总计算()
Dim nRow1, arr1, brr, crr
Application.ScreenUpdating = False

With Sheets("台账汇总")
  nRow = .Range("a" & .Rows.Count).End(3).Row
  arr = .Range("g5:z" & nRow)
End With
  
  For i = 5 To UBound(arr)
       If Application.Sum(Range(Cells(i, 7), Cells(i, 26))) = 0 Then
         Cells(i, 27) = “”
         Else
         Cells(i, 27) = Application.Sum(Range(Cells(i, 7), Cells(i, 26)))
       End If
  Next i

Application.ScreenUpdating = True

End Sub

chaohuahch

zhycl 发表于 2018-7-16 15:51
老师，我的表AA列取数=如果（G列到Z列之和=0）则（AA=“”）否则AA=G列到Z列之和。我比照您的代码写的如 ...

你用了数组，但是并没有用完全。你for循环里面的 if语句里面的 cells（i，27）等语句完全可以用数组代替。你想想。这样才能提高运算速度。

zhycl

chaohuahch 发表于 2018-7-17 10:24
你用了数组，但是并没有用完全。你for循环里面的 if语句里面的 cells（i，27）等语句完全可以用数组代替 ...

老师，我才起步踏实的学学VBA，不过现在急需这段代码，能帮着我改改吗

chaohuahch

zhycl 发表于 2018-7-17 11:36
老师，我才起步踏实的学学VBA，不过现在急需这段代码，能帮着我改改吗

建议你不要有这样心态。你已经有点基础了。我也告诉你大概的方向了。你可以按照我的方向。用少量的时间，就可以解决了。而你解决的过程，就是你学习的过程。这样你的东西就是你自己的。我直接给你的东西，最终还是我的。

zhycl

chaohuahch 发表于 2018-7-17 11:51
建议你不要有这样心态。你已经有点基础了。我也告诉你大概的方向了。你可以按照我的方向。用少量的时间， ...

老师，我想把J到Y列求和放到Z列，我写了如下代码，但提示错误，能给指点一下吗？

Sub 项目付款明细()
Dim nRow, arr, i, j, brr, sm
Application.ScreenUpdating = False

With Sheets("项目付款明细")
  nRow = .Range("a" & .Rows.Count).End(3).Row
  arr = .Range("j6:y" & nRow)
  brr = .Range("z6:z" & nRow)
End With

  For i = 1 To UBound(arr)
     sm = 0
     For j = 1 To 16
       sm = arr(i, j) + sm
     Next j
     brr(i, 17) = sm
  Next i

Sheets("项目付款明细").Range("z6:z" & nRow) = brr

Application.ScreenUpdating = True

End Sub