acdx

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-12-5 01:09 | 只看該作者

TextBox如何設定只能是整數?

我設計一個表單其中TextBox作為輸入介面由於該參數必須為正整數該如何限制TextBox之格式
我希望寫成當輸入為正整數以外字元則顯示"必須為正整數"
謝謝

樓主熱帖

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

9^#

發表於 2012-12-7 14:53 | 只看該作者

解決了
謝謝大家的幫忙

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-12-7 09:32 | 只看該作者

回復 5# acdx

Option Explicit
Dim Msg As Boolean '預設值: False
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Msg = True '表單關閉:變數設定
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '表單關閉後還會執行此程式
If Msg = False Then If Text檢查(TextBox1) Then Cancel = True
'Cancel: False 表示控制項不處理事件（預設）；True 表示應用程式須處理此事件，且駐點仍保留在目前控制項。
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Msg = False Then If Text檢查(TextBox2) Then Cancel = True
End Sub
'如還有TextBox 依樣畫葫蘆
'Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' If Msg = False Then If Text檢查(TextBox3) Then Cancel = True
'End Sub
Private Function Text檢查(Box As MSForms.TextBox) As Boolean
Dim S As Integer
If Abs((Int(Val(Box))) <> Box Or Box < 0) Then
S = InStr(Box, ".")
Box.SelStart = IIf(Mid(Box, 1, 1) = "-", 0, S - IIf(S > 0, 1, 0))
Box.SelLength = IIf(Mid(Box, 1, 1) = "-", 1, Len(Box) - S + 1)
MsgBox "需輸入正整數"
Text檢查 = True
End If
End Function

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

7^#

發表於 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

複製代碼

如此舉例，了解否？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-12-6 19:10 | 只看該作者

回復 5# acdx

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CStr(Val(TextBox1)) <> TextBox1 Or Val(TextBox1) < 0 Then MsgBox "必須為正整數": Exit Sub
MsgBox TextBox1
End Sub

複製代碼

學海無涯_不恥下問

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

5^#

發表於 2012-12-6 18:09 | 只看該作者

回復 4# c_c_lai
不好意思我上面可能沒表達清楚
現在遇到的問題是TextBox所輸入的值被認定為文字
假設我輸入5 則TextBox="5"(由監看式裡看到的值) 而TextBox在程式中必須是正整數才可正常執行我希望我的程式能夠判別/提醒使用者，當TextBox輸入為負數或小數時則會出現警告視窗因此我寫成這樣: (當TextBox1輸入8,TextBox2輸入12)
If IsNumeric(TextBox1) = False Or IsNumeric(TextBox2) = False Then
MsgBox "請輸入數字"
Exit Sub
      ElseIf TextBox1 <> Abs(Int(TextBox1)) Or TextBox2 <> Abs(Int(TextBox2)) Then
         MsgBox "請輸入整數"
         Exit SubEnd If
藍色為其執行結果
由監看式裡: TextBox1="8", Abs(Int(TextBox1)) =8, TextBox2 ="12", Abs(Int(TextBox2)) =12
故:TextBox1 不等於Abs(Int(TextBox1)) 所以程式跳開-->這該如何解決?
另外程式中必須TextBox1<TextBox2所以我還寫了條件式確保這關係成立但卻被判斷為 "8">"12"-->所以程式又跳開  這些問題困擾我好幾天了

TOP

c_c_lai