Здравствуйте Гуры Екселя !!! Что нужно дописать в коде, ниже, что бы ссылка, на значение Имя_команды, была абсолютной.
[vba]
Код
Function Sovpad(Условие_если_пусто, Имя_команды, Имя_команды_в_таблице, ParamArray Ячейки_для_совпадения()) If Условие_если_пусто = "" Then Sovpad = "" Else For i = 0 To UBound(Ячейки_для_совпадения) n_ = n_ + Ячейки_для_совпадения(i).Count Next i ReDim ar(n_ - 1) For i = 0 To UBound(Ячейки_для_совпадения) For j = 1 To Ячейки_для_совпадения(i).Count ar(nn_) = Ячейки_для_совпадения(i)(j).Value nn_ = nn_ + 1 Next j Next i If n_ Mod 2 Then Sovpad = "Неверное кол-во ячеек в 4-м и далее аргументах" Else k_ = n_ / 2 If UCase(Имя_команды) <> UCase(Имя_команды_в_таблице) Then i0_ = k_ End If On Error Resume Next For i = i0_ To i0_ + k_ - 1 aaa = 1 / Replace(ar(i), "Да", 1) If Err Then Sovpad = "Нет" Exit Function End If Next i Sovpad = "Да" End If End If End Function
[/vba]
Здравствуйте Гуры Екселя !!! Что нужно дописать в коде, ниже, что бы ссылка, на значение Имя_команды, была абсолютной.
[vba]
Код
Function Sovpad(Условие_если_пусто, Имя_команды, Имя_команды_в_таблице, ParamArray Ячейки_для_совпадения()) If Условие_если_пусто = "" Then Sovpad = "" Else For i = 0 To UBound(Ячейки_для_совпадения) n_ = n_ + Ячейки_для_совпадения(i).Count Next i ReDim ar(n_ - 1) For i = 0 To UBound(Ячейки_для_совпадения) For j = 1 To Ячейки_для_совпадения(i).Count ar(nn_) = Ячейки_для_совпадения(i)(j).Value nn_ = nn_ + 1 Next j Next i If n_ Mod 2 Then Sovpad = "Неверное кол-во ячеек в 4-м и далее аргументах" Else k_ = n_ / 2 If UCase(Имя_команды) <> UCase(Имя_команды_в_таблице) Then i0_ = k_ End If On Error Resume Next For i = i0_ To i0_ + k_ - 1 aaa = 1 / Replace(ar(i), "Да", 1) If Err Then Sovpad = "Нет" Exit Function End If Next i Sovpad = "Да" End If End If End Function