
在excel的VB编辑器中调试时出现"必须有启动窗体未找到SUB MAIN()"的错误?
模块中程序如下:FunctionREWARD(sales,years)AsDoubleConstr1AsDouble=0.04Constr2AsDouble=0.07Co...
模块中程序如下:
Function REWARD(sales, years) As Double
Const r1 As Double = 0.04
Const r2 As Double = 0.07
Const r3 As Double = 0.1
Const r4 As Double = 0.13
Const r5 As Double = 0.16
Const r6 As Double = 0.19
Select Case sales
Case Is <= 2800
REWARD = sales * (r1 + years / 200)
Case Is <= 7900
REWARD = sales * (r2 + years / 200)
Case Is <= 15000
REWARD = sales * (r3 + years / 200)
Case Is <= 30000
REWARD = sales * (r4 + years / 200)
Case Is <= 50000
REWARD = sales * (r5 + years / 200)
Case Is > 50000
REWARD = sales * (r6 + years / 200)
End Select
End Function
那它和vb编译的程序有啥实质区别?都是编辑vb语句啊.
那编辑过程中怎么查找错误啊? 展开
Function REWARD(sales, years) As Double
Const r1 As Double = 0.04
Const r2 As Double = 0.07
Const r3 As Double = 0.1
Const r4 As Double = 0.13
Const r5 As Double = 0.16
Const r6 As Double = 0.19
Select Case sales
Case Is <= 2800
REWARD = sales * (r1 + years / 200)
Case Is <= 7900
REWARD = sales * (r2 + years / 200)
Case Is <= 15000
REWARD = sales * (r3 + years / 200)
Case Is <= 30000
REWARD = sales * (r4 + years / 200)
Case Is <= 50000
REWARD = sales * (r5 + years / 200)
Case Is > 50000
REWARD = sales * (r6 + years / 200)
End Select
End Function
那它和vb编译的程序有啥实质区别?都是编辑vb语句啊.
那编辑过程中怎么查找错误啊? 展开
2个回答
展开全部
1.模块里的function可以直接在单元格使用,而sub不可以。
2.function有返回值,而sub没有
如果需要查找错误,可以在function中设置断点,然后在单元格中调用,即可。
2.function有返回值,而sub没有
如果需要查找错误,可以在function中设置断点,然后在单元格中调用,即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询