TextBox如何設定只能是整數? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » TextBox如何設定只能是整數?

返回列表下一主題上一主題發帖

TextBox如何設定只能是整數?

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-12-5 20:06 | 顯示全部帖子

回復 3# acdx
TextBox1 = "" 已經給你答案了！

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-12-7 08:08 | 顯示全部帖子

回復 5# acdx

Sub Test()
' 假設 [B1] 欄位屬性為文字；輸入值: 10、或是 10ABC
' 則此時 [B1] 為 Not IsNumeric([B1])
If IsNumeric([B1]) Then
[B3] = Abs(Int([B1]))
Else
If Val([A1]) > 0 Then
[B3] = Abs(Int(Val([B1]))) ' 取得數值 10
Else
[B3] = "" ' 該欄位值為非數值之文字串
MsgBox "請輸入數字"
End If
End If
End Sub

複製代碼

如此舉例，了解否？

靜思自在 : 我們最大的敵人不是別人．可能是自己。

返回列表下一主題上一主題