VBA編譯時(shí)提示框架內(nèi)代碼缺少語句,為何? [金字塔]
- 咨詢內(nèi)容:
編寫一個(gè)自定義函數(shù),在編譯時(shí)提示‘1024’錯(cuò)誤,顯示Technic框架內(nèi)代碼缺少語句,顯示如下:
1 '由于框架內(nèi)的代碼作用于全局,并且不會(huì)隨著工程項(xiàng)目切換,2 '因此建議框架對(duì)象內(nèi)的代碼只編寫與本框架事件有關(guān)的代碼,不要使用作用于整個(gè)工程的變量及過程函數(shù)。34 Sub MainFrame9_ChangeStock(Grid, Code, Market, Result)5 if MoreCyc.HasVisible = 1 then6 call morecyc.GetGridByName("Window1").ChangeStock(code,market)7 call morecyc.GetGridByName("Window5").ChangeStock(code,market)8 call morecyc.GetGridByName("Window2").ChangeStock(code,market)9 call morecyc.GetGridByName("Window7").ChangeStock(code,market)10 call morecyc.GetGridByName("Window8").ChangeStock(code,market)11 call morecyc.GetGridByName("Window9").ChangeStock(code,market)12 call morecyc.GetGridByName("Window3").ChangeStock(code,market)13 call morecyc.GetGridByName("Window6").ChangeStock(code,market)14 call morecyc.GetGridByName("Window4").ChangeStock(code,market)15 morecyc.InitAllGrid16 end if17 End Sub1819 Sub Technic_RemoveFormula(Grid, FormulaName, Result)20 if Grid.name = "Main" and FormulaName = "MAIN" then21 result = 122 end if23 End Sub
提示第9行出錯(cuò)。但是我并沒有對(duì)框架代碼進(jìn)行過編輯,這是什么原因?
另外,現(xiàn)在VBA的調(diào)試菜單怎么調(diào)不出來了?
- 金字塔客服:
檢查一下是否存在Window7這個(gè)窗格
- 用戶回復(fù):
沒有,而且把整個(gè)1—23行都注釋掉之后編譯還提示編譯器錯(cuò)誤‘1024’,真是奇怪了
- 網(wǎng)友回復(fù):
當(dāng)我把Technic框架本項(xiàng)目移除后,就會(huì)顯示另一個(gè)框架代碼在第三行缺少語句,一直編譯不成功
- 網(wǎng)友回復(fù): 可能是VBA的工程代碼被你給改亂了,建議你重新新建一個(gè)VBA的項(xiàng)目工程,讓系統(tǒng)重新初始化VBA的環(huán)境狀態(tài)
有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫!(不貴!點(diǎn)擊查看價(jià)格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容