Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
исключение #Н/Д c помощью цикла в VBA
 
#1
12.08.2018 12:06:24
Ребзя привет.
подскажите, почему мой цикл багнется на третьей строчке:
Код
n=range("A1").end(xldown).row
for each i in range("A1:A" & n)
     if i.value="#Н/Д" then
           i.value="Нет ЗА"
    end if
next i
 
 
 
#2
12.08.2018 12:10:28
Пройдите по коду пошагово и посмотрите что у вас в переменной i
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
12.08.2018 12:29:19
Подход неправильный.  Ошибки исключать нужно на листе.
 
 
 
#4
12.08.2018 12:41:31
vikttur, не оч понял про лист
 
 
 
#5
12.08.2018 12:50:46
Формулы нужно составлять так, чтобы убрать ошибки.
Попробуйте:
Код
On Error Resume Next
For Each i In Range("A1:A12")
    If i = Error(2042) Then
        i.Value = "Нет ЗА"
    End If
Next i
 
 
 
#6
12.08.2018 12:51:10
Если ошибка - следствие работы формулы, то обходить ошибку в формуле.
Если #Н/Д  значениями (например, диапазон копирован и вставлен с ошибками): выделить диапазон, с помощью инструмента НАЙТИ/ЗАМЕНИТЬ убрать ошибки.
 
 
 
#7
12.08.2018 12:57:40
vikttur, благодарю.
Михаил С., Ваша помощь именно то, что нужно было на этом форуме. спасибо
 
 
 
#8
12.08.2018 13:20:16
Предположим в примере поста #1 были формулы.
Код
Sub МишаПривет_вскл()
With Range("A1:A12").SpecialCells(-4123, 16)
.Replace .Formula, "Нет ЗА"
End With
End Sub
Изменено: k61 - 12.08.2018 13:33:34 (пример забыл прицепить. виновные наказаны.)
 
 
 
Страницы: 1
Наверх