返回列表 上一主題 發帖

[發問] 如何使用 IsNumber(TextBox1)?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-1-16 23:20 | 只看該作者

[發問] 如何使用 IsNumber(TextBox1)?

請教諸位先進:
        於 TextBox1內指定輸入時僅為數字(可有小數)，應如何下語法?
        或輸入為非數字時即變為空白亦可
       如何使用 IsNumber?
                                                             謝謝指導
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
5#
發表於 2014-1-18 20:31 | 只看該作者
回復 4# Hsieh
萬分感激
太棒的想法
謝謝

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-1-17 09:18 | 只看該作者
回復 3# yangjie
你是用在TextBox1_Change事件內吧
這樣當你輸入小數點時，會出錯
改成
If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> IIf(Right(TextBox1, 1) = ".", Replace(TextBox1, ".", ""), TextBox1) Then MsgBox "必須輸入為數值": TextBox1 = ""
學海無涯_不恥下問

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2014-1-17 00:29 | 只看該作者
回復 2# Hsieh
謝謝版大
         太棒了
         若允許小數點  如12.5 應如何修正

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-1-16 23:37 | 只看該作者
回復 1# yangjie

If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> TextBox1 Then MsgBox "必須輸入為數值": TextBox1 = ""
學海無涯_不恥下問

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題