問問蓮蓬頭

[說明]

如何使用 VBA 的 Textbox 文字方塊控制項，讓使用者輸入只能輸入數字，輸入其他符號或文字，則會自動清空該文字框，避免錯誤的輸入被提交。

[程式碼]

Private Sub TextBox1_Change() 

If Not IsNumeric(TextBox1.Value) Then 

TextBox1.Value = "" 

End if

End Sub

【程序碼解說】

Private Sub TextBox1_Change() 

這是 TextBox1 控制項的 Change 事件，當用戶在 TextBox1 中輸入或修改內容時會觸發此事件。

If Not IsNumeric(TextBox1.Value) Then 

這行程式碼檢查 TextBox1 的值是否為數字。IsNumeric 函數會返回 True 或 False，Not 用來反轉結果。如果是數字，條件不成立，否則會進入 Then 區塊。

TextBox1.Value = "" 「如果上述條件成立（輸入非數字內容），這行程式碼會清空 TextBox1 中的值」

End if

End Sub

[特別說明]

上述程式碼需寫入於輸入資料的 Textbox 文字方塊控制項內，才會於輸入當下進行判斷。
如果只想讓使用者輸入整數，可加上額外的判斷來限制輸入格式。

[相關文章]

[VBA] 常用程式碼系列23-於 TextBox 輸入特定按鍵，自動跳下一個欄位，並輸入特定文字

[VBA] 常用程式碼系列22-當 TextBox 輸入的內容達 N 個字元時，自動跳至下一個欄位

[VBA] 如何製作一個可以上下調整日期的TextBox?

謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個「讚」，也幫忙分享給需要的朋友或其他平台，謝謝。