{quote}{login=Hugo}{date=20.03.2012 05:29}{thema=}{post}В копилке есть UDF...{/post}{/quote}
Ув. Hugo, не могли бы вы показать на моем примере, как это прописать?
например UDF:
Function hitridjus(x As String, a As Range, b As Range)
hitridjus = CVErr(xlErrValue)
If (a.Rows.Count <> b.Rows.Count) Or (a.Columns.Count <> b.Columns.Count) Or (a.Columns.Count > 1) Then Exit Function
For i = 1 To a.Rows.Count - 1
If a.Cells(i, 1).Value = x Then
j = i + 1: f = False
Do Until f Or j > a.Rows.Count
If a.Cells(j, 1).Value = "Итого" Then
f = True
hitridjus = b.Cells(j, 1).Value
Exit Function
End If
j = j + 1
Loop
hitridjus = CVErr(xlErrNA)
End If
Next
End Function
и пример применения UDF в формуле:
=hitridjus(B4;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$B$2:$B$2500;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$K$2:$K$2500)
Ув. Hugo, не могли бы вы показать на моем примере, как это прописать?
например UDF:
Function hitridjus(x As String, a As Range, b As Range)
hitridjus = CVErr(xlErrValue)
If (a.Rows.Count <> b.Rows.Count) Or (a.Columns.Count <> b.Columns.Count) Or (a.Columns.Count > 1) Then Exit Function
For i = 1 To a.Rows.Count - 1
If a.Cells(i, 1).Value = x Then
j = i + 1: f = False
Do Until f Or j > a.Rows.Count
If a.Cells(j, 1).Value = "Итого" Then
f = True
hitridjus = b.Cells(j, 1).Value
Exit Function
End If
j = j + 1
Loop
hitridjus = CVErr(xlErrNA)
End If
Next
End Function
и пример применения UDF в формуле:
=hitridjus(B4;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$B$2:$B$2500;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$K$2:$K$2500)
