配电箱报价如何用BVA或函数解决

ykcbf1100

参与一下。。。。

1. Sub ykcbf()   '//2024.8.13
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("单台配电箱柜组价表")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 9)
   
6.     End With
   
7.     ReDim brr(1 To 10000, 1 To 8)
   
8.     For i = 2 To UBound(arr)
   
9.         If Val(arr(i, 2)) Then k = k + 1: d(k) = i
   
10.     Next
    
11.     For k = 1 To d.Count
    
12.         r1 = d(k)
    
13.         If k = d.Count Then r2 = r Else r2 = d(k + 1) - 1
    
14.         m = m + 1
    
15.         brr(m, 1) = "低压配电箱/柜"
    
16.         brr(m, 2) = arr(r1, 3)
    
17.         brr(m, 3) = arr(r1, 7)
    
18.         brr(m, 5) = arr(r1, 5)
    
19.         brr(m, 6) = arr(r2, 7)
    
20.         brr(m, 7) = brr(m, 5) * brr(m, 6)
    
21.         brr(m, 8) = arr(r1, 8)
    
22.         For i = r1 + 1 To r2 - 1
    
23.             If arr(i, 2) = "箱柜" Then brr(m, 4) = arr(i, 3)
    
24.         Next
    
25.     Next
    
26.     With Sheets("报价汇总表")
    
27.         .[b3:i10000].ClearContents
    
28.         .[b3].Resize(m, 8) = brr
    
29.     End With
    
30.     Set d = Nothing
    
31.     MsgBox "OK！"
    
32. End Sub
    

复制代码

136212129

ykcbf1100 发表于 2024-8-13 13:49
看一下，是这意思不？

感谢大师了，谢谢谢谢谢谢了

136212129

ykcbf1100 发表于 2024-8-13 13:50
参与一下。。。。

老师如何调整？？？？

ykcbf1100

136212129 发表于 2024-8-15 10:41
老师如何调整？？？？

没明白你的意思？数量列等于总价？

136212129

ykcbf1100 发表于 2024-8-15 10:43
没明白你的意思？数量列等于总价？

数量列手动输入 刷新自动汇总出来总价

136212129

ykcbf1100 发表于 2024-8-15 10:43
没明白你的意思？数量列等于总价？

136212129

ykcbf1100 发表于 2024-8-15 10:43
没明白你的意思？数量列等于总价？

是的 是的  是的 是表达这个意思

ykcbf1100

136212129 发表于 2024-8-15 10:56
是的 是的  是的 是表达这个意思

先汇总，修改数量后，再计算一次就行了。

ykcbf1100

再计算。。。

1. Sub ykcbf2()   '//2024.8.15   再计算
   
2.     With Sheets("报价汇总表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         For i = 3 To r
   
5.             .Cells(i, 8) = .Cells(i, 6) * .Cells(i, 7)
   
6.         Next
   
7.     End With
   
8.     MsgBox "OK！"
   
9. End Sub

复制代码

136212129

ykcbf1100 发表于 2024-8-15 11:16
先汇总，修改数量后，再计算一次就行了。

谢谢老师 ，好人一生平安