Как обработать значение #Н/Д (Ошибка ВПР) в макросе?

Lant

Гость

29.11.2008 14:26:06

Во второй строке #Н/Д, этот код запинается и выдает ошибку, как сделать так что бы действия в положительном блоке IF производились, или формулируя по другому, как сделать так что бы код выделял #Н/Д цветом?

Sub Oshibka()
For i = 2 To 27
iValue = Cells(i, 2).Value 'Что такое Error 2042
If Cells(i, 2).Value = "#Н/Д" Then
Cells(i, 2).Interior.ColorIndex = 35
End If
Next i
End Sub

Прикрепленные файлы

post_40711.xls (606 КБ)

Lant Гость	#2 29.11.2008 14:35:50 блин две темы получилось, думал эта не опубликовалась. Не сочтите за флуд, народ помогите.

Lant Гость	#3 29.11.2008 15:46:45 Может я чего недостаточно пояснил? Скажите, так я поясню. Очень нужна помощь.

A_Zeshko Пользователь Сообщений: 116 Регистрация: 01.01.1970	#4 29.11.2008 16:22:01 Sub Oshibka() For i = 1 To 27 iValue = Cells(i, 2).Text If iValue = "#Н/Д" Then Cells(i, 2).Interior.ColorIndex = 35 End If Next i End Sub At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host

Lant Гость	#5 29.11.2008 16:40:21 Спасибо за ответ! А можно как то определить, например, что если Cells(i, 2) - ошибка, то выполняем условие?

New Пользователь Сообщений: 4934 Регистрация: 06.01.2013	#6 29.11.2008 16:44:08 Sub Макрос1() Dim Rng As Range On Error Resume Next Set Rng = Columns("B:B").SpecialCells(xlCellTypeFormulas, 16) If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 35 End Sub

New Пользователь Сообщений: 4934 Регистрация: 06.01.2013	#7 29.11.2008 16:47:39 Можно, конечно, и так, но это дольше, чем мой первый вариант (если ячеек много) Sub Макрос1() Dim i& For i = 1 To 27 If IsError(Cells(i, 2)) Then Cells(i, 2).Interior.ColorIndex = 35 Next i End Sub

Lant Гость	#8 29.11.2008 18:03:27 О! Павел то что нужно, спасибо!

Читают тему