自定义函数问题求大神帮忙

NeverGiveUp668 · 发表于 2013-1-10 21:15

Function TY(a, b)
a = Mid(a, 1, 3) * Mid(a, Find("" * "", a) + 1, 6) / 1000000 * b
TY = a * b
End Function

求大神指点迷津上面代码运行时出现子过程函数未定义

NeverGiveUp668 · 发表于 2013-1-10 21:18

hehex · 发表于 2013-1-10 22:50

a = Mid(a, 1, 3) * Mid(a, Find("" * "", a) + 1, 6) / 1000000 * b
这句话中find 不是一个有效的系统vba 函数，如果要当工作表函数，find 前面要加上Application.
修改为 a = Mid(a, 1, 3) * Mid(a, Application.Find("" * "", a) + 1, 6) / 1000000 * b

如果用VBA 函数，请查阅instr 函数的相关用法

		自动登录	找回密码
密码			免费注册

自定义函数问题 求大神帮忙

自定义函数问题求大神帮忙