Сообщество Чайников

Вопрос

Как в макросе проверить, содержимое ячейки является текстом или числом?

Ответ

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

Получился вот такой макрос:

Sub Число_Символ()
If IsNumeric(Cells(1, 1)) = True Then
Cells(1, 2) = "Число"
Else: Cells(1, 2) = "Символ"
End If
End Sub

Анатолий Киюк