Всем доброго дня. Проблема в следующем, при переборе в столбце ячеек, как только появляется ячейка со значением #ЗНАЧ! то есть с ошибкой, макрос останавливается. Вопрос как можно игнорировать это значение, пропускать например или же чтоб макрос не останавливался. Сам макрос проверяет первый столбец, если значения одинаковые, то суммирует значения из другого столбца, до тех пор пока значение первого столбца не изменится на большее. Ошибки в формулах приводящие к #ЗНАЧ!, можно конечно убрать, но пока это проблематично. Спасибо. Пример кода: [vba]
Code
Sub raschet() Dim xl As Long Dim st, zn, sum As Variant st = 5 zn = 5 Do sum = 0 zn = st Do sum = Range("BS" & st).Value + sum st = st + 1 Loop Until Range("A" & st).Value > Range("A" & st - 1).Value Range("BT" & zn).Value = sum Loop Until Range("A" & st + 1) = ""
End Sub
[/vba]
Всем доброго дня. Проблема в следующем, при переборе в столбце ячеек, как только появляется ячейка со значением #ЗНАЧ! то есть с ошибкой, макрос останавливается. Вопрос как можно игнорировать это значение, пропускать например или же чтоб макрос не останавливался. Сам макрос проверяет первый столбец, если значения одинаковые, то суммирует значения из другого столбца, до тех пор пока значение первого столбца не изменится на большее. Ошибки в формулах приводящие к #ЗНАЧ!, можно конечно убрать, но пока это проблематично. Спасибо. Пример кода: [vba]
Code
Sub raschet() Dim xl As Long Dim st, zn, sum As Variant st = 5 zn = 5 Do sum = 0 zn = st Do sum = Range("BS" & st).Value + sum st = st + 1 Loop Until Range("A" & st).Value > Range("A" & st - 1).Value Range("BT" & zn).Value = sum Loop Until Range("A" & st + 1) = ""
На 2007-10 есть формула ЕСЛИОШИБКА, её нельзя использовать?
для отлавливания ошибок использовать функции рабочего листа не советую.
более тонкий подход: [vba]
Code
dim v v=Range("BS" & st).Value if v<>"Error 2015" then ' #ЗНАЧ! ' if TypeName(v)<>"Error" then ' любая ошибка ' if TypeName(v) = "Double" then ' если там число, или так IsNumeric(v) sum = sum + v end if
[/vba]
Quote (Kuzzka)
На 2007-10 есть формула ЕСЛИОШИБКА, её нельзя использовать?
для отлавливания ошибок использовать функции рабочего листа не советую.
более тонкий подход: [vba]
Code
dim v v=Range("BS" & st).Value if v<>"Error 2015" then ' #ЗНАЧ! ' if TypeName(v)<>"Error" then ' любая ошибка ' if TypeName(v) = "Double" then ' если там число, или так IsNumeric(v) sum = sum + v end if
Здравствуйте. Есть 2 столбца. В ячейке A1322 и B1322 суммируются числа синих ячеек (используется макрос) по столбцам. Но проблема в том, что в ячейке В1322 постоянно выдается #знач. Подскажите, в чем может быть проблема? Причем если в формуле изменить диапазон суммирования на B8:B198, то макрос начинает считать, но если добавить до 199, то выдает ошибку. Менял форматы, чистил содержимое, ничего не помогает...
Здравствуйте. Есть 2 столбца. В ячейке A1322 и B1322 суммируются числа синих ячеек (используется макрос) по столбцам. Но проблема в том, что в ячейке В1322 постоянно выдается #знач. Подскажите, в чем может быть проблема? Причем если в формуле изменить диапазон суммирования на B8:B198, то макрос начинает считать, но если добавить до 199, то выдает ошибку. Менял форматы, чистил содержимое, ничего не помогает...Leojse
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
