Поиск ошибки в массиве

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ошибки в массиве (Макросы Sub)

Андрей

Дата: Среда, 29.01.2014, 09:04 | Сообщение № 1

Группа: Гости

добрый день
Помогите пожалуйста: есть список (массив) значений, являющихся формулой.
Среди них может попасться ошибка.
Как мне найти эту ошибку, и определить ее адрес, чтоб установить курсор на нее?
Достаточно найти первую, дальше искать нет необходимости.

Ответить

KuklP

Дата: Среда, 29.01.2014, 09:55 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата Андрей, 29.01.2014 в 09:04, в сообщении № 1

Помогите пожалуйста: есть список (массив) значений, являющихся формулой.

1) Где есть? У нас нет;
2) так "значений" или "являющихся формулой"? Это принципиально разные вещи.
В общем читайте правила форума и выкладывайте файл. Если нужна помощь...

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Андрей

Дата: Среда, 29.01.2014, 10:31 | Сообщение № 3

Группа: Гости

Извините, что не приложил список, но пока нет возможности зарегистрироваться.
Столбец 1 -число, столбец 2 - число. В столбце 3 макросом прописывается формула - сумма двух ячеек соответствующей строки и протягивается на все ячейки.
Задача - выявить в столбце 3 ошибку, как вариант - #ЗНАЧ! если в столбцах 1 или 2 не число. И указать адрес этой ячейки.
Я делал так:
[vba]

Код

Dim amass As Range
Dim radress As String
Set amass = Range("C2:C" & string_qty).Find("#ЗНАЧ!", , xlValues)
If amass Is Nothing Then
MsgBox "проверка1 прошла успешно"
Else
radress = amass.Address
a = MsgBox("Ячейка " & radress & " содержит ошибку!", vbOKOnly)
Range(radress).Select
Exit Sub
End If
End sub

[/vba]
string_qty - это количество строк в массиве, вычисляется ранее.
но так он не видит ошибку, потому что это не значение ячейки.
Пробовал перевести все формулы в значения перед поиском - тоже не увидел.

пробовал еще вот так:
[vba]

Код

For Each cell In amass
If IsNumeric(cell.Value) = False Then
radress = amass.Address
a = MsgBox("Ячейка " & radress & " содержит ошибку!", vbOKOnly)
Range(radress).Select
Exit Sub
End If
Next
MsgBox "проверка1 прошла успешно"

End Sub

[/vba]
в результате - ошибки видит, но выделяет всегда весь массив, а не конкретную ячейку.

Ответить

KuklP

Дата: Среда, 29.01.2014, 10:45 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Андрей, оформляйте код тегами.
[vba]

Код

Public Sub www()
     Dim amass As Range
     On Error Resume Next
     Set amass = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns(3)).SpecialCells(xlCellTypeFormulas, 16)
     If amass Is Nothing Then
         MsgBox "проверка1 прошла успешно"
     Else
         MsgBox "Ячейка " & amass(1).Address & " содержит ошибку!", vbOKOnly
         amass(1).Select
         Exit Sub
     End If
End Sub

[/vba]