Доброго времени суток. Начал изучать VBA и создал нужную мне функцию. При пошаговом ее выполнении (F 8) в окне VBA никаких ошибок не возникает, все выполняется как мне нужно. Но вот когда хочу использовать ее в ячейке (ввожу знак "=" и нахожу ее название), то возникает "Предупреждение о циклической ссылке". Ниже представлен код функции. В чем может быть проблема?
| Код |
|---|
Function Tonnaj()
If ActiveCell.Offset(0, -4) = "-" Then GoTo m6
a5 = Mid(ActiveCell.Offset(0, -5), 9, Len(ActiveCell.Offset(0, -5)))
b5 = ActiveCell.Offset(0, -3)
c5 = ActiveCell.Offset(0, -2)
Set b6 = Sheets(3).Columns("A:A").Find(What:=a5)
If b6 Is Nothing Then
e5 = ""
Else
c6 = b6.Address
End If
For j5 = 1 To 200
d5 = Sheets(3).Range(c6).Offset(0, 2)
If b5 < d5 Then
e5 = Sheets(3).Range(c6).Offset(0, 3)
GoTo m5
End If
If Sheets(3).Range(c6).Offset(1, 0) = Sheets(3).Range(c6) Then
f5 = Range(c6).Row
f6 = Range(c6).Column
c6 = Cells(f5 + 1, f6).Address
Else:
GoTo m6
End If
Next j5
m6:
e5 = "-"
m5:
ActiveCell = e5
End Function
|
