bh=InputBox("請(qǐng)輸入編號(hào)")rs.Seek "=",bhIf rs.NoMatch then MsgBox"找不到！"這個(gè)代碼運(yùn)行后當(dāng)我點(diǎn)擊取消后，就顯示“找不到”，請(qǐng)那位高手指點(diǎn)一下，如何判斷用戶在inputbox函數(shù)框中是按了確定還是取消？
2 回答
溫溫醬
TA貢獻(xiàn)1752條經(jīng)驗(yàn) 獲得超4個(gè)贊
如果用戶單擊 Cancel（取消），則InputBox函數(shù)返回一個(gè)長度為零的字符串 ("")，可以根據(jù)這個(gè)情況進(jìn)行判斷，如果BH=""，則用戶按了“取消”鍵，但如果用戶把輸入的內(nèi)容清空，這時(shí)按“確定”和按“取消”一樣，都返回一個(gè)長度為的字符串。
一只萌萌小番薯
TA貢獻(xiàn)1795條經(jīng)驗(yàn) 獲得超7個(gè)贊
Dim s
s = InputBox("請(qǐng)輸入", "inputbox測試", 0)
Debug.Print(s)
If s = "" Then
MsgBox("您選擇了取消按鈕或× ")
Else
MsgBox("您選擇了確定按鈕")
End If
- 2 回答
- 0 關(guān)注
- 140 瀏覽
添加回答
舉報(bào)
0/150
提交
取消