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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск заданного списка в папке с файлами с заполнением формы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск заданного списка в папке с файлами с заполнением формы (Макросы/Sub)
Поиск заданного списка в папке с файлами с заполнением формы
stria Дата: Вторник, 16.10.2018, 17:26 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Возможно ли автоматизировать процесс поиска целым списком фамилий (более 200) с указанием папки с файлами, в которых множество фамилий?
Найдя фамилию нужно вычислить время (столбец M и J), используя формулу =(M-J)+(M<J). Результат попадает на отдельный лист.
В примере форма для заполнения и папка (2018.10) с файлами (год.мес.день), в которых нужно найти фамилии из списка.
К сообщению приложен файл: 7019321.xlsx(15.1 Kb) · 2018.10.rar(92.3 Kb)


Сообщение отредактировал stria - Среда, 17.10.2018, 15:32
 
Ответить
СообщениеЗдравствуйте!
Возможно ли автоматизировать процесс поиска целым списком фамилий (более 200) с указанием папки с файлами, в которых множество фамилий?
Найдя фамилию нужно вычислить время (столбец M и J), используя формулу =(M-J)+(M<J). Результат попадает на отдельный лист.
В примере форма для заполнения и папка (2018.10) с файлами (год.мес.день), в которых нужно найти фамилии из списка.

Автор - stria
Дата добавления - 16.10.2018 в 17:26
stria Дата: Вторник, 16.10.2018, 21:19 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Наверное сложная или невыполнимая задача. Может как то упростить (поиск не списком, а по отдельности)?
 
Ответить
СообщениеНаверное сложная или невыполнимая задача. Может как то упростить (поиск не списком, а по отдельности)?

Автор - stria
Дата добавления - 16.10.2018 в 21:19
Pelena Дата: Вторник, 16.10.2018, 21:41 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13225
Репутация: 2909 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Выполнимая, но не очень интересная)
Вы хотя бы начните что-то делать. Вот, например, здесь есть готовое решение, как перебрать все файлы в папке.
А уже, как найти нужную фамилию, кто-нибудь подскажет


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Выполнимая, но не очень интересная)
Вы хотя бы начните что-то делать. Вот, например, здесь есть готовое решение, как перебрать все файлы в папке.
А уже, как найти нужную фамилию, кто-нибудь подскажет

Автор - Pelena
Дата добавления - 16.10.2018 в 21:41
stria Дата: Вторник, 16.10.2018, 22:32 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо, но там не нашел что то подобное. Может подскажете с чего начать?
Есть готовый макрос для поиска одного значения, но как сделать поиск списком?
К сообщению приложен файл: search.xlsm(16.5 Kb)


Сообщение отредактировал stria - Вторник, 16.10.2018, 22:38
 
Ответить
СообщениеPelena, Спасибо, но там не нашел что то подобное. Может подскажете с чего начать?
Есть готовый макрос для поиска одного значения, но как сделать поиск списком?

Автор - stria
Дата добавления - 16.10.2018 в 22:32
stria Дата: Среда, 17.10.2018, 09:30 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ОЧЕНЬ НУЖНО....
 
Ответить
СообщениеОЧЕНЬ НУЖНО....

Автор - stria
Дата добавления - 17.10.2018 в 09:30
_Boroda_ Дата: Среда, 17.10.2018, 09:58 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13514
Репутация: 5529 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Непонятно что делать, когда найдено несколько строк с фимилией
Короче вот примерный (непроверенный!!!)текст макроса (основное взять по ссылке Лены) нахождения ФИО. Что дальше - не знаю
[vba]
Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    r0_ = 3
    n_ = Cells(Rows.Count, 1).End(3).Row - r0_ + 1
    ar = Cells(r0_, 1).Resize(n_, 32)
    sFolder = "Здесь/полный путь/к/папке с файлами/"
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        Workbooks.Open sFolder & sFiles
        With ActiveWorkbook
            With .Sheets(1)
                For i = 1 To n_
                    r_ = .Columns("R:R").Find(What:=ar(i, 1), After:=ActiveCell, LookIn:=xlFormulas _
                        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                        MatchCase:=False, SearchFormat:=False).Row ' это строка с найденной фамилией
                    'что делать дальще - не знаю
                Next i
            End With
            .Close False
        End With
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНепонятно что делать, когда найдено несколько строк с фимилией
Короче вот примерный (непроверенный!!!)текст макроса (основное взять по ссылке Лены) нахождения ФИО. Что дальше - не знаю
[vba]
Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    r0_ = 3
    n_ = Cells(Rows.Count, 1).End(3).Row - r0_ + 1
    ar = Cells(r0_, 1).Resize(n_, 32)
    sFolder = "Здесь/полный путь/к/папке с файлами/"
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        Workbooks.Open sFolder & sFiles
        With ActiveWorkbook
            With .Sheets(1)
                For i = 1 To n_
                    r_ = .Columns("R:R").Find(What:=ar(i, 1), After:=ActiveCell, LookIn:=xlFormulas _
                        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                        MatchCase:=False, SearchFormat:=False).Row ' это строка с найденной фамилией
                    'что делать дальще - не знаю
                Next i
            End With
            .Close False
        End With
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 17.10.2018 в 09:58
stria Дата: Среда, 17.10.2018, 12:05 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо, вы мне не раз помогали.
Непонятно что делать, когда найдено несколько строк с фимилией

В файле есть пояснения по условиям
ред. 17.10.18 17:00
К сообщению приложен файл: SPISOK-redactir.xlsx(16.5 Kb)


Сообщение отредактировал stria - Среда, 17.10.2018, 17:22
 
Ответить
Сообщение_Boroda_, Спасибо, вы мне не раз помогали.
Непонятно что делать, когда найдено несколько строк с фимилией

В файле есть пояснения по условиям
ред. 17.10.18 17:00

Автор - stria
Дата добавления - 17.10.2018 в 12:05
sboy Дата: Среда, 17.10.2018, 17:42 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2198
Репутация: 624 ±
Замечаний: 0% ±

Excel 2010
 
Ответить
СообщениеКросс

Автор - sboy
Дата добавления - 17.10.2018 в 17:42
stria Дата: Среда, 17.10.2018, 18:20 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, Ну очень надо..))
 
Ответить
Сообщениеsboy, Ну очень надо..))

Автор - stria
Дата добавления - 17.10.2018 в 18:20
_Boroda_ Дата: Среда, 17.10.2018, 23:09 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13514
Репутация: 5529 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Проверяйте
К сообщению приложен файл: SPISOK-redactir.xlsm(25.2 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПроверяйте

Автор - _Boroda_
Дата добавления - 17.10.2018 в 23:09
stria Дата: Четверг, 18.10.2018, 08:52 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Спасибо ВАМ, что взялись помочь.
Но что то не так(. Путь прописал. Не работает.
 
Ответить
Сообщение_Boroda_, Спасибо ВАМ, что взялись помочь.
Но что то не так(. Путь прописал. Не работает.

Автор - stria
Дата добавления - 18.10.2018 в 08:52
_Boroda_ Дата: Четверг, 18.10.2018, 09:05 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13514
Репутация: 5529 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Пишите адрес, оплачивайте дорогу, выезжаю
что то не так
Вот давайте я скажу Вам, что у меня в файле что-то не так и попрошу помочь. Что Вы мне ответите?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПишите адрес, оплачивайте дорогу, выезжаю
что то не так
Вот давайте я скажу Вам, что у меня в файле что-то не так и попрошу помочь. Что Вы мне ответите?

Автор - _Boroda_
Дата добавления - 18.10.2018 в 09:05
stria Дата: Четверг, 18.10.2018, 09:12 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,
Проверяйте

 sFolder = "D:\Стереть\2018.10\" ' здесь напишите свой путь

Я прописал путь к папке (C:\Users\Igor\Desktop\2018.10). Не работает.
 
Ответить
Сообщение_Boroda_,
Проверяйте

 sFolder = "D:\Стереть\2018.10\" ' здесь напишите свой путь

Я прописал путь к папке (C:\Users\Igor\Desktop\2018.10). Не работает.

Автор - stria
Дата добавления - 18.10.2018 в 09:12
Pelena Дата: Четверг, 18.10.2018, 09:28 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 13225
Репутация: 2909 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Слэш последний куда-то пропал


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеСлэш последний куда-то пропал

Автор - Pelena
Дата добавления - 18.10.2018 в 09:28
stria Дата: Четверг, 18.10.2018, 09:34 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 61
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, _Boroda_, Спасибо за неоценимую помощь. Извините за невнимательность. Каюсь %) .
 
Ответить
СообщениеPelena, _Boroda_, Спасибо за неоценимую помощь. Извините за невнимательность. Каюсь %) .

Автор - stria
Дата добавления - 18.10.2018 в 09:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск заданного списка в папке с файлами с заполнением формы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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