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

Страницы: 1 2 3 4 След.
После обновления windows жутко тормозит макрос
 
, если поможет: макрос работает с одной книгой, анализирует две таблицы, расположенные на разных страницах, и создает новую таблицу на третьей странице. В алгоритме применяется несколько циклов for nex и функция find. Вроде бы никаких нюансов с кодом быть не должно, неделю назад все летало....
После обновления windows жутко тормозит макрос
 
, макрос большой и сложный, выложить сюда пример не получится. Проблемы связаны именно с обновлением, то есть решение не зависит от кода. Надеюсь на то, что найдутся люди, кто с этим сталкивался и знает решение.
После обновления windows жутко тормозит макрос
 
Приветствую всех гуру и не гуру excel - подскажите, пожалуйста, можно ли решить эту проблему без отката обновлений офиса и виндовс?
Кратко по ситуации: макрос исправно работал несколько лет, обсчитывал 40000 строк за 2 минуты. После обновления (возможно, виндовс, возможно, офис) ту же задачу обсчитывает примерно за два часа. Работает без ошибок. Конфигурация системы: виндовс 10, офис 2019, процессор Raizen 5. Ускорение отключением обновления экрана и т.п. практически не помогает. При анализе работы макроса выяснилось, что макрос стартует бодро, но сильно замедляется в процессе работы. Повторюсь, макрос старый, то есть ошибки в коде исключены. Тормозить начал с неделю назад.
И второй вопрос, неоднократно отмечено, что при прерывании работы некоторых макросов комбинацией ctrl + break все макросы начинают тормозить или перестают работать. Помогает перезагрузка ОС. Готов предположить, что перезагрузка очищает память ошибок макросов (не знаю правильный термин) - подскажите как очистить память ошибок программно или вручную? Возможно это чем-то поможет и в решении первой проблемы.
Найти первую ячейку в столбце, имеющую границы
 
Коллеги, спасибо за помощь.
Найти первую ячейку в столбце, имеющую границы
 
Коллеги, можете еще подсказать, что не правильно в указанном ниже коде? - решил сделать предыдущий код универсальнее - выдает ошибку: Application-defined or object-defined error (run-time error 1004). Идея была не ограничивать цикл 10 строками, но сразу его прервать, как только будет найдена искомая ячейка.
Код
For Each Row In ActiveSheet.UsedRange
    If Cells(Row, 1).Borders.LineStyle <> xlNone Then
        GoTo LLLL
    End If
Next Row
LLLL:
    MsgBox "Row = " & Row
Exit Sub
Найти первую ячейку в столбце, имеющую границы
 
, спасибо, все работает. Оказалось все так просто, но самостоятельно я бы не смог разобраться...
Найти первую ячейку в столбце, имеющую границы
 
Коллеги, помогите новичку советом:
Кратко:
  • имеем столбец на странице, верхние ячейки которого могут быть заполнены, но не принадлежат таблице
  • ячейки, расположенные ниже, могут быть пустыми или заполненными и принадлежат таблице (имеют границы)
  • задача - найти первую строку таблицы (самую верхнюю ячейку с границами)
Такая идея не помогла
Код
For tb = 1 To 10
    If Cells(tb, 2).Borders.LineStyle = True Then
        MsgBox "Cells(tb, 1).address= " & Cells(tb, 1).address
    End If
Next tb
Ускорить копирование/сложения диапазонов, расположенных на разных страницах
 
New, спасибо за совет, наверняка with ускорит процесс и ScreenUpdating не понадобится. Потестирую, но уже завтра. если нужно - о результатах сообщу.
Ускорить копирование/сложения диапазонов, расположенных на разных страницах
 
vikttur, на листе-источнике копируется 300 столбцов и они прибавляются в нужные столбцы на лист для загрузки. Опасаюсь, что это перегрузит память ПК.
И, если честно - с массивами слабо дружу, может быть подскажете как скопировать в массив данные с 8 по 308 столбец со страницы Динамика и прибавить их к данным в столбцах 5 - 305 на странице Шахматка?

New, файла с примером нет, может быть поможет такое уточнение? На странице Динамика есть числовые данные в столбцах с 8-го по 308-ий. Они прибавляются к данным в столбцах с 5-го по 305-ый на странице Шахматка. Данные именно прибавляются - поэтому я использую код со специальной вставкой (взял из макрекордера).
Ускорить копирование/сложения диапазонов, расположенных на разных страницах
 
Прошу не ругать новичка за, вероятно, простейший вопрос)

Код, указанный ниже, копирует диапазон с одной страницы и прибавляет его данные к диапазону на другой странице. Макрос работает долго (40000 строк в отчете), подозреваю, что это происходит из-за того, что макрос прыгает по страницам. Application.ScreenUpdating уже использую. Можно ли переписать макрос так, чтобы он не выделял данные на соседних страницах, а просто их копировал?
Код
        Sheets("Ассортимент").Select
        Range(Cells(i, 8, Cells(i, 237)).Select
        Selection.Copy
        Sheets("Шахматка").Select
        Cells(LastRow + 1, 5).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
            :=False, Transpose:=False
Буду признателен за любой совет.
Нужен макрос переносящий все столбцы таблицы в первый столбец или в новый столбец
 
Юрий М, спасибо, все работает.
Нужен макрос переносящий все столбцы таблицы в первый столбец или в новый столбец
 
Юрий М,устроит на любом листе
Нужен макрос переносящий все столбцы таблицы в первый столбец или в новый столбец
 
Юрий М, файл добавил
Нужен макрос переносящий все столбцы таблицы в первый столбец или в новый столбец
 
Буду признателен всем кто откликнется - подскажите как решить задачу макросом. Вводные такие: есть таблица с произвольным количеством столбцов и строк. В таблице имеется много пустых ячеек и строк (с текстовой информацией). Необходимо все столбцы таблицы перенести в первый столбец (выстроить столбцы один под другой). Либо в новый столбец. И затем удалить пустые строки в этом столбце.
Преобразовать значение ячейки в число
 
Всем спасибо, все способы понравились. Вопрос решен!
Преобразовать значение ячейки в число
 
Уважаемые специалисты, подскажите какой-нибудь макрос, который позволит преобразовать значение ячейки в число. Макрекордер не помог решить эту задачу.
Пример: было так 0018 и пометка "число сохранено как текст" - нужно сделать так 18. Макрос нужен для активной ячейки, но идеально сделать для диапазона К17:К5000
Спасибо всем, кто откликнется.
Изменено: vikttur - 02.09.2021 11:43:04
Скрытие строк таблицы, если хотя бы одна ячейка не закрашена зеленым цветом
 
Shama, вы решили противоположную задачу - оставили не закрашенные ячейки, а зеленые скрыли. Нужно наоборот - оставить только те строки, где есть хотя бы одна зеленая ячейка.
Теоретически после ваших манипуляций можно закрасить ячейки в дежурный цвет и повторить вашу процедуру уже с дежурным цветом. Но такой способ нам не подойдет.
Скрытие строк таблицы, если хотя бы одна ячейка не закрашена зеленым цветом
 
Shama, пусть это будет настраиваемая сортировка, фильтр или что-то другое.
Скрытие строк таблицы, если хотя бы одна ячейка не закрашена зеленым цветом
 
Пример таблицы во вложении - нужны скрыть строки, в которых нет ни одной зеленой ячейки . Макросы не желательны - хотелось бы решить вопрос функциями.
Заполнение ячеек в строках, скрытых фильтром
 
Дмитрий(The_Prist) Щербаков, Вы совершенно правы, дело не в этих строках. Идя от обратного я нашел массив, который, вероятно, пропускает скрытые строки. В общем, макрос требует изучения опытным специалистом и не в бесплатной ветке. Спасибо, что уделили внимание.
Заполнение ячеек в строках, скрытых фильтром
 
Jack Famous, погуглил, параметр LookIn:=xlValues как раз определяет поиск в скрытых строках. То есть дело не в этой строке. Выкладывать полный макрос не буду - модератор не одобрит.
Спасибо всем, кто откликнулся.
Заполнение ячеек в строках, скрытых фильтром
 
vikttur, я задал конкретный вопрос про конкретную строку. Если это не поможет, то выкладывать весь код макроса не имеет смысла - он очень длинный - вряд ли кто-то решит в него вникать. Но. если вы рекомендуете - выложу весь макрос.
Заполнение ячеек в строках, скрытых фильтром
 
Цитата
Jack Famous написал:
данная строка кода никак не учитывает видимость ячеек
Данная строка находится внутри цикла  Do Loop Until и больше внутри цикла ничего нет. Возможно дело в этом поиске (стоит перед циклом)
Код
Set a1 = Область.Find(What:=Сцепка, lookat:=xlWhole, LookIn:=xlValues)
Этот поиск просматривает скрытые строки, как его научить просматривать скрытые строки?
Заполнение ячеек в строках, скрытых фильтром
 
Уважаемые гуру экселя, подскажите как доработать указанный ниже макрос, чтобы он заполнял не только видимые ячейки, но и ячейки в скрытых строках (скрыты фильтром).
Код
Проплаты.Cells(a1.Row, 17).Value = ДатаПогашения
Настраиваемая сортировка таблицы, необходимо подсказать решение для настройки сортировки с учетом промежуточных сумм
 
Кратко по задаче (см. файл с примером - страница "исходные"): в столбце D содержится перечень клиентов, в столбце В указан код, обозначающий принадлежность клиента к холдингу, в теле таблицы указаны суммы заказов
Задача: отсортировать таблицу, например по столбцу AQ по порядке убывания сумм заказов холдингов (см. страницу "как нужно"). То есть первые три строки должен занимать холдинг 134, так как у этого холдинга самый большой оборот (9 400 922 руб.). В таблицу нельзя добавлять новые строки или столбцы.
Если стандартных инструментов для такой сортировки в экселе нет, то просьба предложить макрос - хотя бы часть кода.
Изменено: VIZ_VIZ - 18.08.2020 13:06:12
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
Заказывал макрос для парсинга Яндекса, исполнитель doober - отзывы только положительные - работу выполнил мгновенно, помог с хотелками. По деньгам я почитал отзывы выше и понял - наша макрос обошелся нам очень демократично. Автор производит положительное впечатление и вызывает доверие.
макрос для парсинга Яндекса и пр. (сбор названий сайтов по ключевому слову), необходим макрос. который позволит по произвольному поисковому запросу заполнять таблицу url-ами с выдачи Яндекса
 
Необходим макрос, который бы через Яндекс/Google собирал адреса сайтов в таблицу. Примерный механизм работы: пользователь нажимает кнопку макроса - вводит ключевое слово (запрос для Яндекса), макрос самостоятельно открывает браузер, вводит запрос в поиск и затем собирает все сайты, которые нашел Яндекс в таблицу excel. Поиск можно ограничить 10 страницами выдачи. На данный момент интересует стоимость и сроки разработки такого макроса.
Возможное продолжение разработки - доработка макроса под сбор всех контактных данный по найденным url.
Макрос для сбора названий сайтов по ключевому слову, макрос по поиску сайтов по конкретной тематике
 
Дмитрий(The_Prist) Щербаков, если вас не обременит, можете показать вариант этого же макроса, чтобы он не генерировал запросы на яндекс, а брал информацию из открытого сеанса браузера (то есть, чтобы пользователь предварительно руками вводил запрос)?
Макрос для сбора названий сайтов по ключевому слову, макрос по поиску сайтов по конкретной тематике
 
Дмитрий(The_Prist) Щербаков, почитал инет, похоже на защиту Яндекса или особенности internet explorera. Буду изучать вопрос дальше. Подскажите, а для Хрома можно сделать такой макрос. что нужно в коде поменять?
Макрос для сбора названий сайтов по ключевому слову, макрос по поиску сайтов по конкретной тематике
 
Дмитрий(The_Prist) Щербаков, подскажите еще, пожалуйста, что это означает?
Код
.readyState <> 4
Это интервал ожидания Яндекса? Его нужно увеличить?
Страницы: 1 2 3 4 След.
Наверх