[發問] 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

樓主熱帖

jackyq

中學生 Rank: 2

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

2^#

發表於 2015-12-13 00:17 | 只看該作者

大大好
case 0 還是要保留
按取消時是返回 "" 空白值

Sub TA()
re: x = InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Select Case x
Case 0, ""
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 Else
MsgBox "請重新輸入"
GoTo re
End Select
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

3^#

發表於 2015-12-13 17:04 | 只看該作者

本帖最後由准提部林於 2015-12-13 17:10 編輯

x = InputBox(～～)　
無法分辨〔未輸入〕按enter，或按〔取消〕所產生的〔空字符""〕，
可用　If StrPtr(x) = 0 Then　判斷其為按〔取消〕之動作（不管有無輸入）！但並非所有office版本適用！！！
Re: X = InputBox("請輸入選項")
If StrPtr(X) = 0 Then Exit Sub
Select Case X
　　Case 1: MsgBox "選項1"
　　Case 2: MsgBox "選項2"
　　Case Else: GoTo Re
End Select

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
x = Application.InputBox(～～)　
無法分辦輸入０按enter，或按取消之False（系統視False為０），
可用　If x & "" = "False" Then　判斷其為按〔取消〕之動作（不管有無輸入）!
這方法是強制將False轉為文字，而不是等同０的邏輯值！
Re: X = Application.InputBox("請輸入選項")
If X & "" = "False" Then Exit Sub
Select Case X
　　Case 1: MsgBox "選項1"
　　Case 2: MsgBox "選項2"
　　Case Else: GoTo Re
End Select

TOP

Joforn