[VBA ] elseif 卡关

楼主: msjw (JW)   2019-10-11 16:40:07
大家好
最近初学 vba 做了些无用的小应用
但在 elseif 函数卡关....如下
===========================
Sub
A = InputBox("输入可动用现金余额")
If A < 10000 Then
MsgBox ("饮料禁止且每日餐费不得超过200")
ElseIf A > 15000 Then
MsgBox ("剩下的日子过得像大爷一样")
MsgBox ("剩下的日子过得像大爷一样")
Else:
MsgBox ("可以像人一样生活,剩下的存起来")
End If
End Sub
=============================
程式码一直无法执行
google 了很多资料,做了些尝试都无法
甚至已经写得跟网络上一模一样了
我在想是不是else后面那个冒号的关系
但又无法删除,会自动"纠正"
头好痛啊 QQ
头好痛啊 QQ
作者: a29976137 (billy)   2019-10-11 18:06:00
逻辑是不是错了
作者: roaerwang (YKWIA)   2019-10-12 00:56:00
可以执行。问一个问题,第一行sub后面有取名吗?https://i.imgur.com/R5dYF1J.png
楼主: msjw (JW)   2019-10-15 10:45:00
把 sub 命名改掉就可以了...神奇

Links booklink

Contact Us: admin [ a t ] ucptt.com