Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2050|回复: 5

[已解决][求助]自定义函数

[复制链接]
发表于 2010-3-22 20:20 | 显示全部楼层 |阅读模式

我想编一个自定义函数来求材料的重量,不知道怎么弄,求各位路过的大侠帮忙!

计划设置5个参数:A、L、W、T、R

A:为条件,当材料的形状为长方体时,A=0,也是默认状态;当材料的形状为圆管(或圆柱)时,A=1

L:代表材料的长度

W:代表材料的宽度或直径,当A=0时为宽度,当A=1时为直径

T:代表材料的高度或壁厚,当A=0时为高度,当A=1时为壁厚

R:代表材料的密度

当A=0时,重量的计算公式为:WEIGHT=L*W*T*R*10^(-6) ,(KG)

当A=1时,重量的计算公式为:WEIGHT=L*3.1416*(W^2-(W-2*T)^2)/4*R*10^(-6) ,(KG)

问题:该自定义函数的代码应该样写?

谢谢

[此贴子已经被作者于2010-3-22 20:22:20编辑过]
最佳答案
2010-3-22 20:32

wz9SBcCx.rar (5.2 KB, 下载次数: 3)

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-3-22 20:25 | 显示全部楼层
回复

使用道具 举报

发表于 2010-3-22 20:32 | 显示全部楼层    本楼为最佳答案   

wz9SBcCx.rar (5.2 KB, 下载次数: 3)

回复

使用道具 举报

发表于 2010-3-22 20:32 | 显示全部楼层


Function GetWt(A As Boolean, L As Single, W As Single, T As Single, R As Single)
    If A Then
        GetWt = L * 3.1416 * (W ^ 2 - (W - 2 * T) ^ 2) / 4 * R * 10 ^ (-6)
    Else
        GetWt = L * W * T * R * 10 ^ (-6)
    End If
End Function

这样么?

回复

使用道具 举报

 楼主| 发表于 2010-3-22 21:05 | 显示全部楼层

谢谢楼上几位,4楼的代码也OK,谢谢
回复

使用道具 举报

发表于 2010-4-9 17:51 | 显示全部楼层

QUOTE:
以下是引用小线在2010-3-22 20:32:00的发言:


Function GetWt(A As Boolean, L As Single, W As Single, T As Single, R As Single)
    If A Then
        GetWt = L * 3.1416 * (W ^ 2 - (W - 2 * T) ^ 2) / 4 * R * 10 ^ (-6)
    Else
        GetWt = L * W * T * R * 10 ^ (-6)
    End If
End Function

这样么?

哇,是个高手勒[em01]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:31 , Processed in 0.894081 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表