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

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

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

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

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

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

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

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

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

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

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

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

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

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

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

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

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

Обратите внимание, что ячейки, содержащие как текст, так и числа, распознаются как текст.

Чтобы ячейка была распознана как число, она должна содержать только цифры.

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

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

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

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