Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Анализ содержимого PDF-файлов
 
Первые страницы содержат графическую рамку и разной длины заголовки с колонтитулами за пределами рамки.
Возможно ли как-то просканировать область внутри рамки и в случае отсутствия в ней текста или других объектов вернуть Nothing?
Для экспорта в PDF:
Собрать уникальные значения с нескольких диапазонов, UDF похожая на ВПР
 
Здравствуйте!
Под номером совпадения нужно вытянуть уникальные значения относящиеся к одному критерию, сразу с четырех столбцов.
В файле есть хорошая функция (брал когда-то на этом сайте) которая вытягивает только с одного столбца. Может быть ее нужно как-то модифицировать?
UDF: подсчет значений по текстовым критериям ("<10")
 
Доброго всем здоровья! Как прописать условие если критериями являются  какие нибудь: ">1", "<=10" и (или) если задан один критерий а следующие опущены?
Проверить идентичность таблиц макросом
 
Дернуло меня сверить две таблицы, с целью сэкономить время за счет исключения напрасной процедуры обновления данных. Оказалось - палка о двух концах.
Придумал цикл - for each (есть в примере). Он хорошо справляется с небольшими массивами. На больших таблицах, если долго перебирает, то вгоняет Эксель в кому.
Стал разбираться со словарями - не разобрался. Но, заметил что большие массивы загружаются относительно долго. Если данные разнятся в начале таблиц,то цикл оказывается гораздо быстрее. Как можно оптимизировать эти дела?

Пример нужно немножко "приготовить". Первый макрос раздует файл до 5 МБ - по 1 млн.ячеек на каждый лист.
Ускорить вставку ячеек
 
На днях родился макрос для заполнения таблиц. У него все хорошо, до момента когда нужно добавить несколько строк подряд. Резко падает скорость процесса, можно забыть чем занимаешься.

Существует ли более шустрая альтернатива этой команде?
Код
.Insert Shift:=xlDown
Изменено: qwerrr - 15.07.2017 09:57:23
Извлечь наименьший номер столбца из определенных
 
Код
For Each q In [1:1]
If q = "первыййй" Then w = q.Column
If q = "непервый" Then e = q.Column
If q = "еще один" Then r = q.Column
Next
Как извлечь наименьшее или как перебрать переменные? Или как определить самый левый?
Перебор ячеек одновременно в четырех диапазонах
 
Здравствуйте!
Имеется проблемный файл где списки значений прописываются прямо в макросе, а нужно прописывать на листе.
В прилагаемом файле это ("Лист2"). Подскажите пожалуйста, что можно сделать?
Предполагается что количество искомых будет измерятся в нескольких десятках.

Здесь Макрос1 показывает каким должен быть результат.
Страницы: 1
Наверх