如何在 Excel 中應用資料驗證以僅允許數字？

為了在一個單元格範圍內只允許數字，本教程提供了一些方法來幫助您輕鬆實現。

在 Excel 中應用資料驗證以僅允許數字
應用 VBA 程式碼在 Excel 中僅允許數字
使用一款神奇的工具輕鬆限制單元格範圍內只能輸入數字
更多資料驗證教程...

在 Excel 中應用資料驗證以僅允許數字

您可以使用自訂公式進行資料驗證，以在 Excel 的單元格範圍內僅允許數字。請按照以下步驟操作：

1. 選擇您只允許輸入數字的單元格範圍。

2. 點擊 資料 > 資料驗證 > 資料驗證。參見截圖：

3. 在 資料驗證 對話框中，請配置以下操作：

• 3.1 從 允許 下拉列表中選擇 自訂；
• 3.2 將以下公式複製到 公式 框中；
• =ISNUMBER(A2)
• 3.3 點擊 確定 按鈕。

注意：在公式中，A2 是所選範圍的第一個單元格。

從現在開始，只有數字可以輸入到指定的範圍內。

應用 VBA 程式碼在 Excel 中僅允許數字

此外，您可以應用以下 VBA 程式碼來限制單元格範圍內只能輸入數字。

1. 在您要限制輸入的工作表中，右鍵點擊工作表標籤並從上下文菜單中選擇 查看程式碼。

2. 在 Microsoft Visual Basic for Applications 窗口中，將以下 VBA 程式碼複製到程式碼窗口中。

VBA 程式碼：僅允許在單元格範圍內輸入數字

Public mBol As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20191120
Dim xStrV As String
Dim xRg As Range
Dim xIRg As Range
Dim xFNum As Integer
On Error Resume Next
If Not mBol Then
Application.ScreenUpdating = False
Set xRg = Range("A2:A12")
If Not Intersect(xRg, Target) Is Nothing Then
    xStrV = Target.Value
    If Not IsNumeric(xStrV) Then
         mBol = True
        Target.Value = vbNullString
        MsgBox "Only numbers are allowed in this range", , "Kutools"
    End If
Application.ScreenUpdating = True
End If
Else
  mBol = False
End If
End Sub

注意：在程式碼中，A2:A12 是您只允許輸入數字的單元格範圍。請根據需要更改它。

3. 按 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 窗口。

從現在開始，只有數字可以輸入到指定的範圍內。

使用一款神奇的工具輕鬆限制單元格範圍內只能輸入數字

如果您想嘗試更簡單的方法，這裡推薦您使用 Kutools for Excel 的 限制輸入 功能。

1. 選擇您只允許輸入數字的單元格範圍，點擊 Kutools > 限制輸入 > 限制輸入。

2. 在 限制輸入 對話框中，請：

• 2.1 勾選 僅允許輸入指定字符 選項；
• 2.2 在文本框中輸入 0123456789；
• 2.3 點擊 確定 按鈕。參見截圖：

3. 在接下來彈出的 Kutools for Excel 對話框中點擊 確定 繼續。

注意：如果所選範圍內已有資料驗證，點擊 是 將刪除它們，或者您可以點擊 否 取消操作。

4. 另一個 Kutools for Excel 對話框彈出提醒您哪些數字允許輸入到指定範圍內。點擊 確定 完成所有設置。

從現在開始，這些指定範圍內只允許輸入數字。

相關文章