如何讓文字框只允許輸入數字？

在 Excel 中，我們可以使用數據有效性功能來限制單元格中只能輸入數字，但有時候我也希望文字框中也僅能輸入數字。那麼，在 Excel 的文字框中如何只接受數字呢？

使用選擇性粘貼功能將一個區域的單元格除以某個數字

使用選擇性粘貼功能將一個區域的單元格除以某個數字

以下 VBA 代碼可以幫助您在文字框中僅輸入數字、小數點（.）和負號，請按照以下步驟操作：

1. 點擊 開發工具 > 插入 > 文字框 (ActiveX 控制項) 創建一個文字框，然後根據需要繪製一個文字框，參見截圖：

2. 然後右鍵單擊該文字框，並從上下文選單中選擇 檢視代碼 以打開 Microsoft Visual Basic for Applications 視窗，然後將原始代碼替換為以下 VBA 代碼到空白模塊中：

VBA 代碼：僅允許在文字框中輸入數字：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

3. 然後保存並關閉代碼窗口，退出 設計模式，現在，只有數字、小數點符號和負號可以輸入到文字框中，參見截圖：

相關文章：

如何在文字框中應用拼寫檢查？

如何根據 Excel 中的值改變文字框顏色？

如何在文字框中插入圖片？

如何在文字框中設置默認值？