Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос данных с одного файла в другой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос данных с одного файла в другой (Формулы/Formulas)
Перенос данных с одного файла в другой
lebensvoll Дата: Среда, 11.03.2015, 08:02 | Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, Kuzmich, Karataev, спасибо огромное всем вам!!!! внедрил журнал с макросами (который вы помогли сделать) в наш коллектив и тут при заполнении данных за январь, февраль, март месяц ВОЗНИК ВОПРОС и сразу же делема (((( МОГУ ЛИ Я ОБРАТИТЬСЯ К ВАМ ЕЩЕ РАЗ ЗА ПОМОЩЬЮ (((( Во вложенном файле имеются два файла. В файл Данные на 28 сутки в столбец "С-Дата" "D- шифр" "Е- Ri"должны подтягиваться данные содержащие значение 28 по столбцу "Н" с файла Журнала январь 2015 с листа В25 столбца "А- дата формирования" "Н-возраст, сут" "R- средняя прочность серии образцов, МПа". Если же это не обременит ВАС, не могли бы вы помочь в очередной раз. ПОЖАЛУЙСТА!!! Заранее спасибо
К сообщению приложен файл: Desktop.7z (40.3 Kb)

Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеkrosav4ig, Kuzmich, Karataev, спасибо огромное всем вам!!!! внедрил журнал с макросами (который вы помогли сделать) в наш коллектив и тут при заполнении данных за январь, февраль, март месяц ВОЗНИК ВОПРОС и сразу же делема (((( МОГУ ЛИ Я ОБРАТИТЬСЯ К ВАМ ЕЩЕ РАЗ ЗА ПОМОЩЬЮ (((( Во вложенном файле имеются два файла. В файл Данные на 28 сутки в столбец "С-Дата" "D- шифр" "Е- Ri"должны подтягиваться данные содержащие значение 28 по столбцу "Н" с файла Журнала январь 2015 с листа В25 столбца "А- дата формирования" "Н-возраст, сут" "R- средняя прочность серии образцов, МПа". Если же это не обременит ВАС, не могли бы вы помочь в очередной раз. ПОЖАЛУЙСТА!!! Заранее спасибо
Автор - lebensvoll
Дата добавления - 11.03.2015 в 08:02
DJ_Marker_MC Дата: Среда, 11.03.2015, 10:58 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
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]
К сообщению приложен файл: __28___01.01.15.rar (19.2 Kb)
 
Ответить
Сообщение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]
Автор - DJ_Marker_MC
Дата добавления - 11.03.2015 в 10:58
lebensvoll Дата: Среда, 11.03.2015, 13:13 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
DJ_Marker_MC, и у меня нет такой формулы (((( как мне быть???

Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеDJ_Marker_MC, и у меня нет такой формулы (((( как мне быть???
Автор - lebensvoll
Дата добавления - 11.03.2015 в 13:13
Hugo Дата: Среда, 11.03.2015, 13:39 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Как это нет? Поднимте глаза :)

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеКак это нет? Поднимте глаза :)
Автор - Hugo
Дата добавления - 11.03.2015 в 13:39
Hugo Дата: Среда, 11.03.2015, 13:41 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
DJ_Marker_MC,
Dim i As Integer
Dim iCount As Integer
...
For i = 1 To Table.Rows.Count

Зачем себя ограничивать?

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеDJ_Marker_MC,
Dim i As Integer
Dim iCount As Integer
...
For i = 1 To Table.Rows.Count

Зачем себя ограничивать?
Автор - Hugo
Дата добавления - 11.03.2015 в 13:41
lebensvoll Дата: Среда, 11.03.2015, 14:35 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Hugo, так это макрос мне прописать нужно ((((( так ведь??? вот щет, буду теперь пробывать, прописывать, я ни когда этого не делал.

Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеHugo, так это макрос мне прописать нужно ((((( так ведь??? вот щет, буду теперь пробывать, прописывать, я ни когда этого не делал.
Автор - lebensvoll
Дата добавления - 11.03.2015 в 14:35
Hugo Дата: Среда, 11.03.2015, 15:49 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Это не совсем макрос, это UDF. И думаю она ведь уже есть в файле DJ_Marker_MC - просто перетяните/скопируйте код (или модуль целиком) в свою персональныю книгу макросов или в рабочий файл, и используйте (из персональной - придётся ещё указать имя файла в строке формул, так что настривайте мастером из категории определённых пользователем).
Или откройте в фоне файл DJ_Marker_MC - и функция появится в списке длоступных.
Только замените в коде слово Integer на Long - чтоб не ограничиваться половиной листа xls.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЭто не совсем макрос, это UDF. И думаю она ведь уже есть в файле DJ_Marker_MC - просто перетяните/скопируйте код (или модуль целиком) в свою персональныю книгу макросов или в рабочий файл, и используйте (из персональной - придётся ещё указать имя файла в строке формул, так что настривайте мастером из категории определённых пользователем).
Или откройте в фоне файл DJ_Marker_MC - и функция появится в списке длоступных.
Только замените в коде слово Integer на Long - чтоб не ограничиваться половиной листа xls.
Автор - Hugo
Дата добавления - 11.03.2015 в 15:49
lebensvoll Дата: Среда, 11.03.2015, 22:24 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
Hugo, DJ_Marker_MC, О ВЕЛИКИЕ ИЗ ВЕЛИКИХ прошу вас простить меня без грамотного. НО у меня ни чего не получилось (((( а спросить у таких же в окружении меня бабушек :'( :'( :'( результат не изменится. Может есть простая формула, потому как когда я прописываю путь к файлу в данном файле от DJ_Marker_MC, в строке формул ни чего не выходит ((((( что мне делать КАК быть. Прошу вас упростите ход вычисления :'(

Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеHugo, DJ_Marker_MC, О ВЕЛИКИЕ ИЗ ВЕЛИКИХ прошу вас простить меня без грамотного. НО у меня ни чего не получилось (((( а спросить у таких же в окружении меня бабушек :'( :'( :'( результат не изменится. Может есть простая формула, потому как когда я прописываю путь к файлу в данном файле от DJ_Marker_MC, в строке формул ни чего не выходит ((((( что мне делать КАК быть. Прошу вас упростите ход вычисления :'(
Автор - lebensvoll
Дата добавления - 11.03.2015 в 22:24
buchlotnik Дата: Среда, 11.03.2015, 22:46 | Сообщение № 9
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
lebensvoll, вот тут использование макросов и пользовательских функций подробно описано
 
Ответить
Сообщениеlebensvoll, вот тут использование макросов и пользовательских функций подробно описано
Автор - buchlotnik
Дата добавления - 11.03.2015 в 22:46
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос данных с одного файла в другой (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!