hitridjus
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Форумчане, помогите!
Я не силен в VBA и прошу помочь.
С помощью сторонних форумов у меня получилось написать макрос. С помощью которого происходит выборка данных из объединенных ячеек из книги находящейся на сетевом сервере. При необходимости могу скинуть все задействованные файлы.
Так вот суть проблемы, при закрытой книге в ячейке с формулой написана ошибка (#ЗНАЧ!). Как только открываю книгу, формула начинает работать.
Сама формула обращения к книге выглядит вот так:
=hitridjus(B4;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$B$2:$B$2500;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$K$2:$K$2500)
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, чтобы работало с закрытой книгой. Но все усилия тщетны. На одном из форумов нашел подобное решение проблемы (с помощью Variant http://www.planetaexcel.ru/forum.php?thread_id=16634&forumaction=newreply&page_forum=lastpage&allnum_forum=5), но ни как не могу внедрить его себе. |
Всего записей: 3 | Зарегистр. 29-03-2012 | Отправлено: 13:44 29-03-2012 | Исправлено: hitridjus, 13:46 29-03-2012 |
|
