- 帖子
- 2839
- 主題
- 10
- 精華
- 0
- 積分
- 2895
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-2-15
|
本帖最後由 准提部林 於 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 |
|
發表於 2015-12-13 17:04
| 