[VBA ] elseif 卡關

[msjw (JW)]

大家好

最近初學 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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.46.157.184 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1570783209.A.7B0.html
推 a29976137: 邏輯是不是錯了
應該是沒有...除了InputBox
其他已經修到跟範本一樣了

→ roaerwang: 可以執行。問一個問題，第一行sub後面有取名嗎？
→ roaerwang: https://i.imgur.com/R5dYF1J.png
有取名 EEE()
看來內容應該沒問題，我再往這個方向去糾錯
感謝！
※ 編輯: msjw (42.76.143.121 臺灣), 10/13/2019 00:29:20
→ msjw: 把 sub 命名改掉就可以了...神奇