Как в макросе проверить, текст в ячейке или число?
Вопрос:
Как в макросе проверить, содержимое ячейки является текстом или числом?
Ответ:
Sub CheckCellToNumber()
Dim MyVar As Variant
MyVar = ActiveCell.Value
If MyVar = "" Then
MsgBox "Ячейка пуста!"
Exit Sub
ElseIf IsNumeric(MyVar) Then
MsgBox "Это число!""
Else
MsgBox "Это не число!"
End If
End Sub
Alex
|