|
本帖最后由 龙送农1 于 2023-4-2 21:55 编辑
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
|
|