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