[已解决]乘法 除法cba计算

龙送农1

1、在F7：F=非空单元格D列乘以E列得到的数据，并保留两位小数(如F列公式)；
2、在G7：G=非空单元格E列除以单元格$H$4得到的数据，并保留两位小数(如G列公式).
哥儿老师写：
Sub 计算出库单金额和人均食材()
  Dim vArr, i%
    Sheet4.Range("F6:G10000").ClearContents
    vArr = Sheet4.Range("A5").CurrentRegion.Offset(3)
    If Sheet4.[h4] = "0" Then
        MsgBox "单元格H4没有填写数据！请填写数据。"
        Sheet4.[h4].Select
        End
    End If
    For i = 4 To UBound(vArr)
        If Len(vArr(i, 2)) Then
            vArr(i, 6) = Round(vArr(i, 4) * vArr(i, 5), 2)
            vArr(i, 7) = Round(vArr(i, 5) / vArr(1, 8), 2)
            vArr(3, 6) = vArr(3, 6) + vArr(i, 6)
            vArr(3, 7) = vArr(3, 7) + vArr(i, 7)
        End If
    Next i
    Sheet4.Range("A5").CurrentRegion.Offset(3) = vArr
'    MsgBox "OK!"

End Sub

最佳答案

月排行榜 / 总排行榜

哥儿-

2023-4-2 13:54

龙送农1 发表于 2023-4-2 13:42
老师：我加了一些表头后，无法运行，麻烦老师再看看。

看下

跳转到最佳答案楼层

vitrel

楼主，您这新提出的问题，跟您另一贴（http://www.excelpx.com/forum.php?mod=viewthread&tid=471826）的问题不是几乎一模一样吗？

为何不套用那方法去解决呢？

龙送农1

vitrel 发表于 2023-4-1 07:59
楼主，您这新提出的问题，跟您另一贴（http://www.excelpx.com/forum.php?mod=viewthread&tid=471826）的问 ...

老师：乘法照着那个思路可以套用。我刚学，很多东西多不懂，除法我做不来，麻烦老师帮看怎样实现。谢谢！

哥儿-

供参考……

龙送农1

哥儿- 发表于 2023-4-2 01:41
供参考……

老师：你写的cba已经达到效果，当H4没有数据时，如何结束运行？帮我加一下。

哥儿-

龙送农1 发表于 2023-4-2 10:32
老师：你写的cba已经达到效果，当H4没有数据时，如何结束运行？帮我加一下。

为什么判断B4？看下是不是这样吧

Sub test()
    Dim vArr, i%
    Sheet1.Range("F6:G10000").ClearContents
    vArr = Sheet1.Range("A5").CurrentRegion
    If Sheet1.[h4] = "" Then
        MsgBox "单元格H4没有填写数据！请填写数据。"
        Sheet1.[h4].Select
        End
    End If
    For i = 4 To UBound(vArr)
        vArr(i, 6) = Round(vArr(i, 4) * vArr(i, 5), 2)
        vArr(i, 7) = Round(vArr(i, 5) / vArr(1, 8), 2)
        vArr(3, 6) = vArr(3, 6) + vArr(i, 6)
        vArr(3, 7) = vArr(3, 7) + vArr(i, 7)
    Next i
    Sheet1.Range("A5").CurrentRegion = vArr
    MsgBox "OK!"
End Sub

龙送农1

哥儿- 发表于 2023-4-2 12:17
为什么判断B4？看下是不是这样吧

Sub test()

老师：我加了一些表头后，无法运行，麻烦老师再看看。

哥儿-

龙送农1 发表于 2023-4-2 13:42
老师：我加了一些表头后，无法运行，麻烦老师再看看。

看下

龙送农1

哥儿- 发表于 2023-4-2 13:54
看下

谢谢老师，辛苦了！