Question

VBA EXCEL 自定义函数为何提示出错?代码VBA运行没有问题

自定义函数代码如下:
Function c9选3(x1 As Single, x2 As Single, x3 As Single, x4 As Single, x5 As Single, x6 As Single, x7 As Single, x8 As Single, x9 As Single)
Dim a(1 To 9)
a(1) = 1
a(2) = 1
a(3) = 1
a(4) = 1
a(5) = 1
a(6) = 1
a(7) = 1
a(8) = 1
a(9) = 1
Dim i, b(1 To 3)
For i = 1 To 999
b(1) = i - Int(i / 10) * 10
b(2) = Int(i / 10) - Int(i / 100) * 10
b(3) = (i - b(1) - 10 * b(2)) / 100
If b(1) * b(2) * b(3) = 0 Or b(1) = b(2) Or b(2) = b(3) Or b(3) = b(1) Then
Else
c9选3 = c9选3 + a(1) * a(2) * a(3)
End If
Next

End Function

VBA测试代码如下:

Sub ceshi()
Dim x1, x2, x3, x4, x5, x6, x7, x8, x9
Dim c9选3
Dim a(1 To 9)
a(1) = 1
a(2) = 1
a(3) = 1
a(4) = 1
a(5) = 1
a(6) = 1
a(7) = 1
a(8) = 1
a(9) = 1
Dim i, b(1 To 3)
For i = 1 To 999
b(1) = i - Int(i / 10) * 10
b(2) = Int(i / 10) - Int(i / 100) * 10
b(3) = (i - b(1) - 10 * b(2)) / 100
If b(1) * b(2) * b(3) = 0 Or b(1) = b(2) Or b(2) = b(3) Or b(3) = b(1) Then
Else
c9选3 = c9选3 + a(1) * a(2) * a(3)
End If
Next
End Sub

后者运行没有问题,前者为何报错?

Answer 1

亲，问题很多，看不懂……
1、自定义函数的函数名不能含中文和数字，“C9选3”建议改成CNT；
2、自定义函数参数x1到x9，在代码中没有看到，貌似参数没用上；
3、函数的结果只和a(1) ， a(2)， a(3)有关，这是你希望的么？

Answer 2

c9选3在CESHI()过程中又被定义为变量，到底是函数还是变量呢？你的测试文档C9选3在测试时应该是变量。代码太乱了。还有如果作为函数,函数的参数又在哪使用了？

Answer 3

测试了一下，其实代码没有问题，请修改自定义函数的名字（避免使用C9之类和单元格类似的容易引起Excel内部编译系统误会的函数名）