Количествл ссылок

[mephist]

Доброго времени суток!
В некотором диапазоне в ячейках содержатся формулы, ссылки и величины. Необходимо определить, в скольких ячейках присутствует ссылка на конкретный лист.
Еще нужно определить – нет ли повторяющихся ссылок (на одни и те же ячейки).
Первая часть мне показалась простой, но мой код не сработал???

Sub Test()
f = 0
txt = "Лист"
With ThisWorkbook.Worksheets(5)
    For i = 8 To 729
       For j = 5 To 49
          If .Cells(i, j) Like "*" & txt & "*" Then
            f = f + 1
            End If
    Next j: Next i
End With
MsgBox (f)
End Sub

Подскажите, что я сделал не так???
Вторую часть легко можно было бы решить через аналог Pascal’евского множества (если такой есть конечно). Вот только я не знаю его синтаксиса. Подскажите, как можно его реализовать в VBA, или как можно это сделать по-другому.

[motorway]

Попробуйте заменить .Cells(i, j) на .Cells(i, j).Formula, если нужно смотреть только в формулах

[mephist]

Спасибо! Очень помогло.
А может мне еще кто-нибудь помочь, чтобы отследить повторение ссылок???

[motorway]

Нужно именно отслеживание только ссылок вида Лист!Назв.ячейки?

[motorway]

Если лист только один, а в одной формуле ссылка только на одну ячейку в нем, можно сделать так: поиск в строках адресов ячеек, затем добавление их в массив, а дальше определение дубликатов.

Парсить строку и получать адрес ячейки можно так:

Sub Кнопка_Щелчок()


a = Range("A1").Formula
For i = 1 To Len(a)
If (Mid(a, i, 1) = "!") Then k = i

Next i

For i = k + 1 To Len(a)
If (IsNumeric(Mid(a, i, 1))) Then l = 1
If (l = 1 And (Not IsNumeric(Mid(a, i, 1)) Or i = Len(a))) Then
l = i
GoTo LAB
End If
Next i
LAB:

If (l = Len(a)) Then cell = Mid(a, k + 1, l - k)
If (l <> Len(a)) Then cell = Mid(a, k + 1, l - (k + 1))
MsgBox (cell)

End Sub

В общем, идея такая. Также может помочь функция "Влияющие ячейки" в Экселе

[SAS888]

Еще нужно определить – нет ли повторяющихся ссылок (на одни и те же ячейки).

Пусть, например, одна из ячеек листа содержит формулу

=[Книга1.xls]Лист1!$A$3

а другая ячейка содержит формулу

=СУММ([Книга1.xls]Лист1!$A$1:$A$10)

Как видно, ячейка "A3" участвует в обоих случаях. Считать ли это совпадением?

[mephist]

Сообщение от SAS888

Считать ли это совпадением?

Да, именно такие повторения могут быть.
Пусть на листе заполнено всего четыре ячейки:
В одной содержится =[Книга1.xls]Лист1!$A$3
во второй =[Книга1.xls]Лист1!$A$4
в третьей =[Книга1.xls]Лист1!$A$4
В четвертой =[Книга1.xls]Лист1!$A$3+[Книга1.xls]Лист1!$A$5
Считаем их:
Ссылка на $A$3 встречается только один раз в виде =[Книга1.xls]Лист1!$A$3, а в формулах может встречаться сколько угодно раз, поэтому считаем ее. +1
Ссылка на $A$4 встречается в виде =[Книга1.xls]Лист1!$A$4 дважды, чего быть не должно, поэтому нужно посчитать ее только один раз и отметить цветом. +1
Ссылка на $A$5 не встречается в виде =[Книга1.xls]Лист1!$A$5, но зато есть в формуле, поэтому ее тоже нужно посчтитать.+1
Таким образом я должен получить ответ =3 и пометку, что на А4 есть две ссылки вида =[Книга1.xls]Лист1!$A$4