返回列表 上一主題 發帖

[發問] TextBox如何限制輸入範圍(程式碼更改)

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-7-13 15:48 | 只看該作者

[發問] TextBox如何限制輸入範圍(程式碼更改)

各位大大們好!

請問該如何設定TextBox，才能限制輸入範圍
目前只能限制讓他輸入數值而已，
想要限制範圍為:  21<=TextBox<161
不知道該如何設定才能當它的超過限制範圍時，會出現錯誤訊息呢?
感謝大家!

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Please enter the value!"
End Sub
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2017-7-14 08:56 | 只看該作者
回復 1# liebe
  1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2. If KeyCode = 13 Then '按下Enter鍵為輸入完成
  3.    If TextBox1 < 21 Or TextBox1 >= 161 Then MsgBox "超出範圍" '判斷數值範圍
  4. End If
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題