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

Вход

Регистрация

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

 

= Мир MS Excel/Добавка исключений в файл случайной выборки адресов файлов. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавка исключений в файл случайной выборки адресов файлов. (Макросы/Sub)
Добавка исключений в файл случайной выборки адресов файлов.
perven Дата: Пятница, 13.10.2017, 14:22 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, знатоки ВБА.
Помогите разобраться с проблемой.

У меня имеется макрос, который по адресу папки, записанному в ячейке E4 - производит выборку трех случайных файлов (точнее их адресов) - в столбец E6:E15.
(С условием, что не может быть выведено два или более - одинаковых адресов)

Как добавить в этот макрос исключения расширений, вписанные в столбец ?
(То есть - если адрес файла - заканчивается на разрешение, представленное в столбце B4:B12 - то этот адрес игнорируется и не записывается в столбец E6:E15 )
К сообщению приложен файл: 151684389.xls (39.0 Kb)
 
Ответить
СообщениеДобрый день, знатоки ВБА.
Помогите разобраться с проблемой.

У меня имеется макрос, который по адресу папки, записанному в ячейке E4 - производит выборку трех случайных файлов (точнее их адресов) - в столбец E6:E15.
(С условием, что не может быть выведено два или более - одинаковых адресов)

Как добавить в этот макрос исключения расширений, вписанные в столбец ?
(То есть - если адрес файла - заканчивается на разрешение, представленное в столбце B4:B12 - то этот адрес игнорируется и не записывается в столбец E6:E15 )
Автор - perven
Дата добавления - 13.10.2017 в 14:22
sboy Дата: Пятница, 13.10.2017, 14:46 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Как вариант проверять имя файла функцией Like при добавлении в коллекцию
К сообщению приложен файл: 9351713.xls (44.5 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Как вариант проверять имя файла функцией Like при добавлении в коллекцию
Автор - sboy
Дата добавления - 13.10.2017 в 14:46
perven Дата: Пятница, 13.10.2017, 15:02 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, что-то не работает.
Добавил дополнительное расширение, для исключения - в столбец B4:B12.

И макрос это исключение почему-то игнорирует.
К сообщению приложен файл: 7089799.xls (45.0 Kb)
 
Ответить
Сообщениеsboy, что-то не работает.
Добавил дополнительное расширение, для исключения - в столбец B4:B12.

И макрос это исключение почему-то игнорирует.
Автор - perven
Дата добавления - 13.10.2017 в 15:02
sboy Дата: Пятница, 13.10.2017, 15:08 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
perven, Ну у Вас в примере было одно исключение) ща подправим. Исключения B4:B12?

Яндекс: 410016850021169
 
Ответить
Сообщениеperven, Ну у Вас в примере было одно исключение) ща подправим. Исключения B4:B12?
Автор - sboy
Дата добавления - 13.10.2017 в 15:08
perven Дата: Пятница, 13.10.2017, 15:13 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, B4:B12
 
Ответить
Сообщениеsboy, B4:B12
Автор - perven
Дата добавления - 13.10.2017 в 15:13
sboy Дата: Пятница, 13.10.2017, 15:24 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Диапазон исключений сделал от B4 до первой незаполненной вниз (как Cntrl Shift вниз)
К сообщению приложен файл: 6102896.xls (45.5 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДиапазон исключений сделал от B4 до первой незаполненной вниз (как Cntrl Shift вниз)
Автор - sboy
Дата добавления - 13.10.2017 в 15:24
perven Дата: Пятница, 13.10.2017, 15:37 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, теперь все работает как надо.
большое спасибо.
 
Ответить
Сообщениеsboy, теперь все работает как надо.
большое спасибо.
Автор - perven
Дата добавления - 13.10.2017 в 15:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавка исключений в файл случайной выборки адресов файлов. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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