自动计算冷弯型钢单位重量的函数如何简化

dcgg

以下是论坛老师帮我做的代码

1. Function czxg(s)
   
2. Dim a, h, b, c, t
   
3. a = Split(s, "*")
   
4. h = Val(Mid(a(0), 2)): b = Val(a(1)): c = Val(a(2)): t = Val(a(3))
   
5. czxg = (h + b * 2 + c * 2) * t * 7.85 / 1000
   
6. End Function

复制代码

我想知道，在不用代码的情况下有没有其他方法计算

Woke1118

你这不是挺简单了吗，还要怎么简化呢？

dcgg

具体看工作簿

Datous

代码不要求简化，而是尽量标准化和便于阅读。