inputbox + select case 疑問 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » inputbox + select case 疑問

返回列表下一主題上一主題發帖

[發問] inputbox + select case 疑問

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

1^# 跳轉到 »

發表於 2015-12-14 10:58 | 顯示全部帖子

Sub TA()
Dim X As Variant
Dim Y As Long
On Error Resume Next
X = Application.InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Do While VarType(X) <> vbBoolean
Y = -1: Y = CLng(X): X = False
Select Case Y
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 "請重新輸入"
End Select
X = Application.InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Loop
End Sub

複製代碼

世界那麼大，可我想去哪？

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

2^#

發表於 2015-12-14 11:05 | 顯示全部帖子

未修改前的時候,小弟只能輸入特定值(小弟設定為0),才能離開 inputbox 否則會一直重新要求輸入
後來小弟將 ...
feecshyrnd 發表於 2015-12-12 22:20

Sub TA()
Dim X As Variant
Dim Y As Long
On Error Resume Next
X = Application.InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Do While VarType(X) <> vbBoolean
Y = -1: Y = CLng(X): X = False
Select Case Y
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 "請重新輸入"
End Select
X = Application.InputBox("請輸入預瀏覽之電腦", , "請輸入數字 <例如 1 > 或輸入 0 取消")
Loop
End Sub

複製代碼

不好意思，樓上的代碼我把你要執行的Shell操作註釋掉了。這層代碼修改正常了。
Application.InputBox按"取消"時返回False，但Inputbox按“取消”時返回的值是""，不適用本例。

世界那麼大，可我想去哪？

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。

返回列表下一主題上一主題