krosav4ig, Kuzmich, Karataev, спасибо огромное всем вам!!!! внедрил журнал с макросами (который вы помогли сделать) в наш коллектив и тут при заполнении данных за январь, февраль, март месяц ВОЗНИК ВОПРОС и сразу же делема (((( МОГУ ЛИ Я ОБРАТИТЬСЯ К ВАМ ЕЩЕ РАЗ ЗА ПОМОЩЬЮ (((( Во вложенном файле имеются два файла. В файл Данные на 28 сутки в столбец "С-Дата" "D- шифр" "Е- Ri"должны подтягиваться данные содержащие значение 28 по столбцу "Н" с файла Журнала январь 2015 с листа В25 столбца "А- дата формирования" "Н-возраст, сут" "R- средняя прочность серии образцов, МПа". Если же это не обременит ВАС, не могли бы вы помочь в очередной раз. ПОЖАЛУЙСТА!!! Заранее спасибо
krosav4ig, Kuzmich, Karataev, спасибо огромное всем вам!!!! внедрил журнал с макросами (который вы помогли сделать) в наш коллектив и тут при заполнении данных за январь, февраль, март месяц ВОЗНИК ВОПРОС и сразу же делема (((( МОГУ ЛИ Я ОБРАТИТЬСЯ К ВАМ ЕЩЕ РАЗ ЗА ПОМОЩЬЮ (((( Во вложенном файле имеются два файла. В файл Данные на 28 сутки в столбец "С-Дата" "D- шифр" "Е- Ri"должны подтягиваться данные содержащие значение 28 по столбцу "Н" с файла Журнала январь 2015 с листа В25 столбца "А- дата формирования" "Н-возраст, сут" "R- средняя прочность серии образцов, МПа". Если же это не обременит ВАС, не могли бы вы помочь в очередной раз. ПОЖАЛУЙСТА!!! Заранее спасибоlebensvoll
lebensvoll, Добрый день. Как насчет UDF - усовершенствованный ВПР
[vba]
Код
Function ВПР_New(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _ N As Integer, ResultColumnNum As Integer) Dim i As Integer Dim iCount As Integer
For i = 1 To Table.Rows.Count If Table.Cells(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then ВПР_New = Table.Cells(i, ResultColumnNum) Exit For End If Next i End Function
[/vba]
lebensvoll, Добрый день. Как насчет UDF - усовершенствованный ВПР
[vba]
Код
Function ВПР_New(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _ N As Integer, ResultColumnNum As Integer) Dim i As Integer Dim iCount As Integer
For i = 1 To Table.Rows.Count If Table.Cells(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then ВПР_New = Table.Cells(i, ResultColumnNum) Exit For End If Next i End Function
Это не совсем макрос, это UDF. И думаю она ведь уже есть в файле DJ_Marker_MC - просто перетяните/скопируйте код (или модуль целиком) в свою персональныю книгу макросов или в рабочий файл, и используйте (из персональной - придётся ещё указать имя файла в строке формул, так что настривайте мастером из категории определённых пользователем). Или откройте в фоне файл DJ_Marker_MC - и функция появится в списке длоступных. Только замените в коде слово Integer на Long - чтоб не ограничиваться половиной листа xls.
Это не совсем макрос, это UDF. И думаю она ведь уже есть в файле DJ_Marker_MC - просто перетяните/скопируйте код (или модуль целиком) в свою персональныю книгу макросов или в рабочий файл, и используйте (из персональной - придётся ещё указать имя файла в строке формул, так что настривайте мастером из категории определённых пользователем). Или откройте в фоне файл DJ_Marker_MC - и функция появится в списке длоступных. Только замените в коде слово Integer на Long - чтоб не ограничиваться половиной листа xls.Hugo
Hugo, DJ_Marker_MC, О ВЕЛИКИЕ ИЗ ВЕЛИКИХ прошу вас простить меня без грамотного. НО у меня ни чего не получилось (((( а спросить у таких же в окружении меня бабушек результат не изменится. Может есть простая формула, потому как когда я прописываю путь к файлу в данном файле от DJ_Marker_MC, в строке формул ни чего не выходит ((((( что мне делать КАК быть. Прошу вас упростите ход вычисления
Hugo, DJ_Marker_MC, О ВЕЛИКИЕ ИЗ ВЕЛИКИХ прошу вас простить меня без грамотного. НО у меня ни чего не получилось (((( а спросить у таких же в окружении меня бабушек результат не изменится. Может есть простая формула, потому как когда я прописываю путь к файлу в данном файле от DJ_Marker_MC, в строке формул ни чего не выходит ((((( что мне делать КАК быть. Прошу вас упростите ход вычисления lebensvoll