- 帖子
- 28
- 主題
- 13
- 精華
- 0
- 積分
- 78
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- excel 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-12-4
- 最後登錄
- 2023-3-29
|
[發問] inputbox + select case 疑問
未修改前的時候,小弟只能輸入特定值(小弟設定為0),才能離開 inputbox 否則會一直重新要求輸入
後來小弟將 inputbox 修改成 Application.InputBox 就可以直接按取消離開 inputbox
這樣應該是不需要 case 0的部份 才對 可是將 case 0 也就是紅色部份拿掉後
執行時要按取消就會變成要求重新輸入 無法離開
能否有高手解惑呢????
代碼如下
Sub TA()
re: x = InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Select Case x
Case 1
Shell "D:\vncviewer.exe 111.99.67.64 /password cimeng"
Case 2
Shell "D:\vncviewer.exe 111.99.67.84 /password cimeng"
Case 0
GoTo a
Case Else
MsgBox "請重新輸入"
GoTo re
a:
End Select
End Sub |
|
發表於 2015-12-12 22:20
| 
