[求助]請(qǐng)教自定義函數(shù)未通過

作者：金字塔來源：cxh99.com 發(fā)布時(shí)間：2017年01月17日

咨詢內(nèi)容： 下面這個(gè)自定義函數(shù)未通過請(qǐng)問問題出在哪里。。。謝謝。。。

Function DFTczzfcwz(Formula,dczc,dczf,cxcs) '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
cd = 0 for wz = 1 to StrLen(dczc) if STRMID(dczc,wz,StrLen(dczf)) = dczf Then begin cd = cd + 1 If cd = cxcs Then begin cxwz = wz Exit for End Else Begin '到這一句未通過！編譯器錯(cuò)誤1024 缺少語句 cxwz = 0 End End Next DFTczzfcwz = cxwz
End Function
金字塔客服：
vba的if語句是

if cond then

end if
用戶回復(fù)：
如果你用PEL語言做模塊函數(shù)，請(qǐng)參考 ##的用戶函數(shù)引用方法參考
網(wǎng)友回復(fù)： 謝謝樓上二位了。。。
網(wǎng)友回復(fù)： 改不好啊。。。能否請(qǐng)【王峰】老師把上面的代碼幫我弄一下（我是在Function里面定義的）。。。謝謝。。。