в VBA проверить ячейку на ошибку

N1K0 Пользователь Сообщений: 70 Регистрация: 01.01.1970	#1 15.09.2009 23:31:23 Имеется ячейка с формулой, которая может выдавать значения ошибок (#Н/Д и т.п) требуется если Ячейка не содержит ошибку Then выполнить код или if Ячейка является числом Then выполнить код помогите!

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#2 15.09.2009 23:46:50 If IsNumeric(ячейка.Value) Then Если известен вид ошибки, то можно проверить значение, например, для #Н/Д: If ячейка.Value <> "#N/A" Then Или так: If Not Application.WorksheetFunction.IsError(ячейка.Value) Then 'IsError = ЕОШИБКА, IsNA = ЕНД Bite my shiny metal ass!

ZVI Пользователь Сообщений: 4605 Регистрация: 23.12.2012	#3 15.09.2009 23:48:48 Или так: If Not IsError(ActiveCell) Then MsgBox "Нет ошибки"

N1K0 Пользователь Сообщений: 70 Регистрация: 01.01.1970	#4 16.09.2009 01:00:30 Перепробовал все способы, работает. Спасибо.

Guest

Гость

06.04.2011 06:40:30

Здравствуйте. Решил не создавать новую тему а эту освежить, таким вопросом. Как в коде VBA проверить, что в ячейке находится дата ну например 01.01.2011. Знаю что ексель хранит дату и время в числовом формате, но может есть какой то способ? Спасибо!

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

06.04.2011 06:52:53

{quote}{login=}{date=06.04.2011 06:40}{thema=Как проверить что в ячейке формат даты}{post}Как в коде VBA проверить, что в ячейке находится дата ну например 01.01.2011. {/post}{/quote}

If IsDate(ActiveCell) Then MsgBox "В активной ячейке находится дата!"

Вот только IsDate почему-то распознаёт дату даже в ячейке, где содержится текст 1,2,2011
(Excel не распознаёт этот текст как дату)

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 06.04.2011 07:08:50 Игорь, я так понял из вопроса, надо на конкретную дату проверить, что-то вроде: If ActiveCell = #1/1/2011# Then MsgBox "В активной ячейке находится дата!" Но может я и ошибаюсь. Я сам - дурнее всякого примера! ...

Guest Гость	#8 06.04.2011 07:29:07 Да Игорь все правильно вы поняли, надо именно на формат проверить, а не на конкретную дату, я думаю если к вашему методу добавить такую проверку: If (IsDate(ActiveCell) And ActiveCell.Value Like "..*" Then MsgBox "В активной ячейке находится дата!" Тогда исключится вариант с запятыми

Читают тему