Как применить проверку данных, чтобы разрешить только числа в Excel?

Чтобы разрешить только числа в диапазоне ячеек, этот учебник предоставляет несколько методов, которые помогут вам легко этого добиться.

Примените проверку данных, чтобы разрешить только числа в Excel
Примените код VBA, чтобы разрешить только числа в Excel
Легко разрешите только числа в диапазоне ячеек с помощью удивительного инструмента
Больше учебников для проверки данных...

Примените проверку данных, чтобы разрешить только числа в Excel

Вы можете использовать проверку данных с пользовательской формулой, чтобы разрешить только числа в диапазоне ячеек в Excel. Пожалуйста, действуйте следующим образом.

1. Выберите диапазон ячеек, куда вы хотите разрешить ввод только чисел.

2. Нажмите Данные > Проверка данных > Проверка данных. См. скриншот:

3. В диалоговом окне Проверка данных настройте следующие операции:

• 3.1 Выберите Пользовательский из выпадающего списка Разрешить;
• 3.2 Скопируйте приведенную ниже формулу в поле Формула;
• =ЕЧИСЛО(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 для Excel.

1. Выберите диапазон ячеек, куда вы хотите разрешить ввод только чисел, нажмите Kutools > Ограничение ввода > Ограничение ввода.

2. В диалоговом окне Ограничение ввода пожалуйста:

• 2.1 Установите флажок Разрешить ввод только этих символов;
• 2.2 Введите 0123456789 в текстовое поле;
• 2.3 Нажмите кнопку ОК. См. скриншот:

3. Нажмите ОК в следующем всплывающем диалоговом окне Kutools для Excel, чтобы продолжить.

Примечание: Если в выбранном диапазоне есть проверка данных, нажатие Да удалит их, или вы можете нажать Нет, чтобы отменить операцию.

4. Появится еще одно диалоговое окно Kutools для Excel, напоминающее вам, какие числа разрешены для ввода в указанный диапазон. Нажмите ОК, чтобы завершить все настройки.

Теперь можно вводить только числа в эти указанные диапазоны.

Связанные статьи