Vba: как использовать isnumeric, чтобы проверить, является ли ячейка числом

Вы можете использовать функцию IsNumeric в VBA, чтобы проверить, является ли данная ячейка числом.

Эта функция вернет True , если значение данной ячейки распознано как число.

В противном случае функция вернет False .

Вот общий способ использования этой функции на практике:

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

Этот конкретный макрос проверит, является ли каждая ячейка в диапазоне A1:A9 числом.

Если ячейка является числом, то «Числовое значение» будет возвращено в соответствующей ячейке в диапазоне B1:B9 .

Если ячейка не является числом, вместо этого будет возвращено «Не числовое значение».

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как использовать IsNumeric в VBA

Предположим, у нас есть следующий столбец значений в Excel:

Предположим, мы хотим проверить, является ли каждая ячейка в столбце A числом.

Для этого мы можем создать следующий макрос:

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B отображается результат, который сообщает нам, распознается ли каждая совпадающая ячейка в столбце A как число.

Вот несколько интересных вещей, на которые стоит обратить внимание в результате:

• Числа с десятичными знаками признаются числами.
• Проценты воспринимаются как числа.
• Даты не распознаются как числа.
• Тексты, содержащие цифры, не распознаются как числа.

Примечание . Полную документацию по функции VBA IsNumeric можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как преобразовать строку в int в VBA
Как преобразовать строку в двойную в VBA
Как проверить, содержит ли строка другую строку в VBA