Sub DemoMacro()
Dim i As Integer, iSum As Integer
For i = 1 To 10
'Debug.Assert i< 9
iSum iSum + fundouble(i)
doubug.Print vbTab, "i=", i, vbTab, "isum=", iSum
Next i
End Sub
Function fundouble(num As Integer) As Integer
fundouble = num + num
End Function
excel 2016 vba 提示缺少子函数，程序或属性
答案:1 悬赏:30
解决时间 2021-03-03 19:32
- 提问者网友：陪我到最后
- 2021-03-02 22:03
最佳答案
- 二级知识专家网友：何必打扰
- 2021-03-02 22:19
isum=isum+fundouble(i)是不是少个等号
下面一行是不是debug.print,怎么写的doubug.print
函数定义num不是关键字吧
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯