帖子: 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?
                                                         謝謝指導

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

yangjie

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2014-1-18 20:31 | 只看該作者

回復 4# Hsieh
萬分感激
太棒的想法
謝謝

TOP