通过VBA自动计算对应品名的重量

·潜行·

通过VBA自动计算对应品名的重量

xzcdcak

你是想写一个新函数，来完成这个操作还是要点一个键就完成全部的计算？

xzcdcak

Function CalculateValue(ByVal D3 As String, ByVal E3 As String, ByVal F3 As String) As Double     On Error Resume Next     Dim part1 As Double     Dim part2 As Double     Dim part3 As Double     Dim part4 As Double     Dim result As Double      part1 = 2 * (Val(Left(D3, InStr(1, D3, "*") - 1)) + Val(Mid(D3, InStr(1, D3, "*") + 1, InStr(InStr(1, D3, "*") + 1, D3, "*") - InStr(1, D3, "*") - 1)))     part2 = Val(Mid(D3, WorksheetFunction.Lookup(100, InStr(1, D3, "*"), ROW(1:62)) + 1))     part3 = 0.00785     part4 = Val(Left(E3, Len(E3) * 2 - LenB(E3))) * Val(Left(F3, Len(F3) * 2 - LenB(F3)))      result = (part1 * part2 / 1000) * part3 * part4     CalculateValue = WorksheetFunction.Round(result, 3)      On Error GoTo 0 End Function

·潜行·

xzcdcak 发表于 2024-6-25 22:09
你是想写一个新函数，来完成这个操作还是要点一个键就完成全部的计算？

想通过在单元格内输入“品名、规格、长度、数量”后，G3单元格通过VBA能自动计算出重量。

·潜行·

xzcdcak 发表于 2024-6-25 22:09
Function CalculateValue(ByVal D3 As String, ByVal E3 As String, ByVal F3 As String) As Double     On ...

感谢老师！
另外请问一下，part2提示编译错误是哈原因

longwin

·潜行·

longwin 发表于 2024-6-25 22:40

感谢感谢

·潜行·

longwin 发表于 2024-6-25 22:40

能不能四舍五入，保留3位小数

longwin

·潜行· 发表于 2024-6-25 22:52
能不能四舍五入，保留3位小数

设置单元格格式即可，或者嵌套一个公式：=ROUND(zljs(C3:F3),3)

niko88819

G3 下拉  字典思路请参考  =ROUND(nk(C3:F3),3)

1. Function nk(ByVal rng As Range) As Double
   
2.     On Error GoTo ErrorHandler
   
3.     Dim arr As Variant
   
4.     Dim dict As Object
   
5.     Set dict = CreateObject("Scripting.Dictionary")
   
6.     dict.Add "方管", "fm1"
   
7.     dict.Add "扁钢", "fm2"
   
8.     dict.Add "中板", "fm2"
   
9.     arr = rng.Value
   
10.     If UBound(arr, 1) > 1 Or UBound(arr, 2) > 4 Then
    
11.     End If
    
12.     Dim aa As String
    
13.     Dim bb() As String
    
14.     Dim cc As Double
    
15.     Dim dd As Double
    
16.     aa = arr(1, 1)
    
17.     bb = Split(arr(1, 2), "*")
    
18.     cc = Val(arr(1, 3))
    
19.     dd = Val(arr(1, 4))
    
20.     If dict.Exists(aa) Then
    
21.         Select Case dict(aa)
    
22.             Case "fm1"
    
23.                 nk = (CInt(bb(0)) + CInt(bb(1))) * 2 / 1000 * CInt(bb(2)) / 1000 * 7.85 * CInt(dd) * CInt(cc)
    
24.             Case "fm2"
    
25.                 nk = CInt(bb(0)) / 1000 * CInt(bb(1)) / 1000 * CInt(dd) * CInt(cc) * 7.85
    
26.         End Select
    
27.     Else
    
28.     End If
    
29.     Exit Function
    
30. ErrorHandler:
    
31.     nk = 0
    
32. End Function

复制代码