按要求修改VBA过程的J列公式代码

13782671637 · 发表于 2018-5-20 18:03

本帖最后由 13782671637 于 2018-5-20 18:12 编辑

尊敬的各位老师：请看附件

修改VBA过程代码.zip (1.06 MB, 下载次数: 32)   按《2》L2294:L2300里的要求修改代码里计算J列数据的公式代码。L2304:L2335就是需要修改的代码，存放在模块1里。多谢了！

备注：工作表《0》、《1》、《2》的E:I里的数据，是满足  总表!$J$5:$J$83836=$I$1  指定条件时，总表E:I列的所有数据。

  由于实际工作表里的数据很多，十来万行，所以必须使用运算速度高效的代码！

13782671637 · 发表于 2018-5-20 18:17

恳请老师们帮忙！

13782671637 · 发表于 2018-5-20 18:39

恳请老师们帮忙！

13782671637 · 发表于 2018-5-20 20:19

恳请老师们帮忙！

13782671637 · 发表于 2018-5-20 21:09

恳请大神，恳请高手，恳请老师们帮忙！

yanghaipingabc · 发表于 2018-5-20 21:50

  For i = 2 To UBound(brr)
If brr(i, 1) = 0 Or brr(i, 1) = "" Then
brr(i, 6) = Range("d1") - brr(i - 1, 1)
Exit For
End If
brr(i, 6) = brr(i, 1) - brr(i - 1, 1)
  Next
这个地方插入几句，就可以实现了，其实可以用动态数组实现的，dim preserve  brr（），
楼主可以自己实现，至于说能不能汇总时更新所有的表我感觉还是可以实现的。

13782671637 · 发表于 2018-5-20 21:58

yanghaipingabc 发表于 2018-5-20 21:50
For i = 2 To UBound(brr)
If brr(i, 1) = 0 Or brr(i, 1) = "" Then
brr(i, 6) = Range("d1") ...

老师：哪种代码运算速度快就用哪一种。说实话，如果是函数公式，我还马马虎虎；VBA代码，刚接触几个月，委实不行。麻烦您把修改的代码粘贴进附件的模块1，上传。多谢了！

yanghaipingabc · 发表于 2018-5-20 22:18

我基本没有改变等你的代码，你可以先试试，动态数组和这次的速度差不多，要是还需要修改可以在联系我QQ373379106

13782671637 · 发表于 2018-5-20 22:42

yanghaipingabc 发表于 2018-5-20 22:18
我基本没有改变等你的代码，你可以先试试，动态数组和这次的速度差不多，要是还需要修改可以在联系我QQ3733 ...

非常感谢老师的帮助！我已用您6楼修改的代码测试过，计算结果正确、快捷！8楼的代码和6楼前后顺序不大相同【见红色部分】，哪个更好些？

Sub test()
  Dim r&, i&, c&, j&
  Dim arr, brr
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  With Worksheets("总表")
r = .Cells(.Rows.Count, 5).End(xlUp).Row
arr = .Range("e5:j" & r)
  End With
  With ActiveSheet
xm = .Range("i1")
  End With
  ReDim brr(1 To UBound(arr), 1 To 6)
  m = 0
  For i = 1 To UBound(arr)
If arr(i, 6) = xm Then
   m = m + 1
   For j = 1 To 5
      brr(m, j) = arr(i, j)
   Next
End If
  Next
  For i = 2 To UBound(brr)
If brr(i, 1) = 0 Or brr(i, 1) = "" Then
brr(i, 6) = Range("d1") - brr(i - 1, 1)
Exit For
End If
brr(i, 6) = brr(i, 1) - brr(i - 1, 1)
  Next
  With ActiveSheet
.Range("e5:i" & .Rows.Count).ClearContents
.Range("e5").Resize(UBound(brr), UBound(brr, 2)) = brr
  End With
  Application.ScreenUpdating = True
  MsgBox "数据计算完毕！"
End Sub

   另外，能不能把0、1、2里的三个按钮合并成一个，在总表里点击一次，则0、1、2工作表的数据就会自动更新？

13782671637 · 发表于 2018-5-20 22:43

yanghaipingabc 发表于 2018-5-20 22:18
我基本没有改变等你的代码，你可以先试试，动态数组和这次的速度差不多，要是还需要修改可以在联系我QQ3733 ...

我的QQ是1336602627

		自动登录	找回密码
密码			免费注册

[已解决] 按要求修改VBA过程的J列公式代码

评分

评分