将自定义函数装入窗体的文本框中，为什么会出现“#错误”的提示？

lussee

请教各位老师，将自定义函数装入窗体的文本框中，为什么会出现“#错误”的提示？谢谢！

lussee

"情比金坚"老师你好!我已将文件发到你的邮箱内,请查收,盼望你的回复.谢谢!

情比金坚

你把文件传上来就行了

lussee

"情比金坚"老师你好!我按照你的方式输入还是不行,这样吧,我把文件发送给你,麻烦你帮我输入这个函数,好吗?谢谢!

情比金坚

函数没有问题，肯定是你的参数输入不完整，你按下面的格式输入：

=展长("手袋","单驳",2,3,4)

lussee

请各老师们帮我修改完整好吗？谢谢！

情比金坚

函数各参数填写完整了吗？

lussee

(1)自定义是这样写的:

Function 展长(构造, 驳口 As String, 长, 宽, 高 As Single)
   n = 构造
   m = 驳口
   a = 长
   b = 宽
   c = 高
  If n = "平口盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "平口盒" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  ElseIf n = "连体鞋盒" And m = "无驳" Then
  展长 = 2 * b + c + 8
  ElseIf n = "连体彩盒" And m = "无驳" Then
  展长 = 2 * b + 2 * c + 2
  ElseIf n = "扣底插盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "扣底插盒" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  ElseIf n = "两头插盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "两头插盒" And m = "双驳" Then
  展长 = (a + b + 5) * 2
  ElseIf n = "手袋" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "手袋" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  End If

    (2)调用过程:在窗体设计状态下选择所用的"文本框",点击鼠标右键,选择属性的"数据"项的"控件来源",点击"控件来源"的生成哭器,再选择函数之模块,这样就把函数装进去的,请问老师,函数是否编写有错,调用过程是否不当?谢谢!


End Function

andymark

自定义是怎样写的,又是怎样调用