Поиск
Автор: Reaper. Добрый день, нужен макрос для печати четных и нечетных страниц с разными полями. Есть такой, но он печатает все листы как четные. Я плохо разбираюсь в кодах и вообще не пойму как его исправить. Помогите, пожалуйста!Sub PrintActiveSheet()
Dim ws As Worksheet
Dim oddPages As Boolean
Set ws = ActiveSheet
oddPages = False
With ws.pageSetup
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
End With
If ws.Index Mod 2 ...
Изменен: 30.01.2024
Читать сообщение на форуме или сайте.Автор: romeiro. Здравствуйте! Пожалуйста, подправьте мой код, ниже пример исходных данных и желаемого результата. Нужно по Номеру короткому(nname) и Уровню(Uroven) сгруппировать строки. Уровень для одного номера может отличаться, но для след. строк Уровень также будет расти внутри группы.Sub Sostav_po_uzlam()
Application.ScreenUpdating = False ' îòêëþ÷àåì îáíîâëåíèå ýêðàíà
Set wb = ActiveWorkbook
x = 2 'ÁÛËÎ 2 !!!
y = 1
For Each nname In Range("A3:A50000").Cells
x = x + 1
nvbom = ...
Изменен: 24.01.2024
Читать сообщение на форуме или сайте.Автор: TheArhus. Добрый день!
Прошу решить следующую проблему:
Есть файл (во вложении)
Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию:
Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то
К каждой такой строке нужно добавить строку сверху.
В этой строке ячейки со "Стоимость руб." нужно зачеркнуть.
Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...
Изменен: 23.10.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте!
Есть макрос, который удаляет лист после выполнения пересчета. Но появляется окно с запросом стоит ли удалить лист, ведь там есть данные.
Можно ли обойти это окно, тк нужно чтобы лист удалялся без вмешательства пользователя
Изменен: 25.09.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!
Изменен: 21.09.2023
Читать сообщение на форуме или сайте.Автор: magistr_ken. Привет, знатоки.
Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи.
Мне нужно привести это в вид где все это стоит вертикально.
При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз.
Пример как должно выглядеть показал.
Изменен: 04.07.2023
Читать сообщение на форуме или сайте.Автор: Sur Arutyuni. Здравствуйте, Мне нужно создать таблицу, которая обновляется, но проблема в том, что на странице из интернета, с которой я импортируют таблицу видно только 50 строк, а для того чтобы увидеть все 1200 строк нужно нажимать “show more”(тогда всё появляется), но excel распознает только первые 50 строк, когда вставляешь ссылку на импорт.Как сделать так, чтобы обновляемая таблица распознавала все строки сразу, чтобы даже «show more” не нужно было нажимать
Изменен: 19.04.2023
Читать сообщение на форуме или сайте.Автор: i molecule. Доброго времени суток!
Есть довольно длинная формула (1580 знаков), которая никак не хочет работать в VBA, даже после обработки макрорекордером – вылетает ошибка 1004.
Формула, вставляемая вручную (есть в файле-примере):
=ЕСЛИ(ИЛИ(ПСТР([@Номер];1;2)="05";ПСТР([@Номер];1;2)="06";ПСТР([@Номер];1;2)="07";ПСТР([@Номер];1;5)="08";ПСТР([@Номер];1;5)="09";ПСТР([@Номер];1;2)="10& ...
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.Автор: Артём Б.
Всем добрый день!
Есть легкое непонимание, т.к. на одном пк макрос работает корректно и переносит значения ячеек из таблицы "Таблицаисточник" в "Таблицаприемник".
При попытке скопипастить макрос с заменой путей на актуальный, выходит ошибка 9, т.к. макрос не видит листа "Лист1" в "Таблицаисточник", но если добавить лист под названием "Лист1" - все значения исправно встают куда им нужно, но не в ту книгу.
Вопрос в следующем, ...
Изменен: 21.03.2023
Читать сообщение на форуме или сайте.Автор: Pushninka. Коллеги, добрый день!
Прошу помочь с решением такой задачи:
"Есть две даты (начало и конец периода) и сумма, нужно понять, как можно разбить сумму по месяцам в этом временном отрезке"
Прикладываю Excel для наглядности.
Спасибо!
Изменен: 30.01.2023
Читать сообщение на форуме или сайте. ... Внешним источником служит таблица в отдельном файле excel (Все таблицы НЕ сводные!!!).
... защищённых листах при помощи запуска макроса. Макрос, по задумке, должен снять ... .
К сожалению, я с макросами Excel до этого не работал и ... листах при помощи макроса у меня не получилось. Макросы из примеров ... выполняются без ошибок, снимают и ставят пароль, но таблицы ... просто не обновляют (причём, макросы под другие задачи ... так что дело в конкретном макросе).
Вот ссылка один из ...
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: allovar. Добрый день всем! Есть сайт фондовой биржи. На сайте в углу есть кнопка "ТОРГОВАЯ ИНФОРМАЦИЯ", при нажатии на которую вызывается страница с информацией по торгам на бирже. Как можно с помощью Power Query правильно спарсить данную страницу? Ссылка https://kase.kz/ru/#trade_info_period. У меня при обычном Get From Web по этой ссылке парситься только главная страница, а всплывающая нет. Как быть?
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: Daryana Sova. Добрый вечер. Есть такая проблема, высылают числовые данные, которые нужно привести к особому шаблону. Вводить вручную около двух тысяч знаков это ужас ужасный, может есть какой-либо макрос или формула? Помогите пожалуйста. Фишка вот в чем, допустим есть три столбца, в первом указано количество знаков всего, во втором количество знаков после запятой, в третьем само значение. К примеру 8/3/45. Мне нужно, чтобы в четвертом встало число 00045,000. Первый и второй столбец не ...
Изменен: 15.12.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 10. Понимаю что скорее всего нужно взять это все в массив и использовать\внедрить For Each, но никак не получается разобраться. Заранее благодарен.Private Sub CommandButton1_Click()
Dim m As Integer
Dim x As Integer
Dim out As Integer
m = Cells(2, 1)
x = Cells(2, 2)
out = Cells(2, 3)
For i = m To x Step -x
If i > 0 Then
i = i - out
...
Изменен: 22.11.2022
Читать сообщение на форуме или сайте.Автор: В. Здравствуйте.
Нужен VBA макрос скрипт который бы сохранял активный лист в виде отдельного файла, но вся информация в новом файле должна быть сохранена как текст а в исходном файле должно все остаться как было.
P.S. Находил примерно похожие решения, но они мне не подошли, либо меняли информацию в исходном листе, либо сохраняли формулы, либо сохраняли все листы, либо сохраняли листы с определенным именем(а не активный).
Изменен: 03.11.2022
Читать сообщение на форуме или сайте.Автор: Estelio Ammen. Подскажите, пожалуйста, как можно реализовать следующее:
Необходимо обновлять все запросы и подключения (я так понимаю это ActiveWorkbook.RefreshAll)
Далее сохранять файл.
Сделать цикличность выполнения макроса.
Есть несколько оговорок - изначально я сделал просто обновление запросов и сохранение книги, но в этом случае эксель не успевает обновить запросы перед сохранением, так что я предполагаю нужно сделать задержку между обновлением запросов и сохранением книги.
Вот что ...
Изменен: 18.10.2022
Читать сообщение на форуме или сайте.Автор: Сергей Бригса. Здравствуйте. Посоветуйте как подправить макрос. Имеется документ из более 100 листов с данными и оглавлением. В оглавлении указаны названия тех самых 100 листов, и столбец "кол-во печати". Нужно чтобы макрос проверил данный столбец и если в нем >0, то отправил тот лист на печать (напротив которого указана цифра) и столько копий, сколько указано. На данном форуме нашел нечто похожее, но там проверяется просто заполнена определённая ячейка или нет и печатает эти ...
Изменен: 10.10.2022
Читать сообщение на форуме или сайте.Автор: mvfedosov. Добрый день.
Необходим парсер на VBA (excel, макрос) highchart графика
https://yield.chinabond.com.cn/cbweb-mn/indices/single_index_query?locale=en_US (скриншот 1234567890).
Парсер должен записывать на лист excel значения в три колонки: дата, значение в этой дате красного графика и значение в этой дате желтого графика.
Алгоритм получения html кода страницы не важен, преимущественно нужно сделать акцент на решении преобразования данных (скриншот 12345678901, выделено красной ...
Изменен: 16.09.2022
Читать сообщение на форуме или сайте.Автор: BUCK. Всем добрый день!
Очень прошу вас помочь в создании макроса для переноса уникальных данных из одной книги в другую, так как макросами владею не сильно. Пример приложил в файле, для простоты Лист=Книга.
Допущения следующие:
Исходный файл "Книга 2", который выгружается из открытого источника, и куда постоянно добавляются данные в верхнюю часть таблицы, а также обновляются существующие данные
"Книга 1" - рабочий файл, в который мне необходимо перенести новые ...
Изменен: 09.09.2022
Читать сообщение на форуме или сайте.Автор: borro. Здравствуйте!
Файл xlsx подготавливается с помощью файла rdl программы Report Builder от Microsoft. Когда ты его получаешь и пытаешься открыть, Excel сразу предлагает восстановить файл. Можно ли как-то узнать, что не нравится Excel в файле с тем, чтобы это попытаться исправить в генераторе отчета?
Изменен: 05.09.2022
Читать сообщение на форуме или сайте.Автор: Жан Коштоян. Добрый день!
Прошу помочь с Excel VBA. У меня excel 2010.
На листе "Лист1" в ячейке R7C53 записана формула массива:
{=НАИМЕНЬШИЙ(ЕСЛИ(ДВССЫЛ($AZ$7 )>=$AX$7;ДВССЫЛ($AZ$7));1)}
Она вычисляет минимальное значение из диапазона записанного в R7C52 превышающее расчетное значение в ячейке R7C50.
Алгоритм действий:
1. Вычисляем сечение клапана (Высота*ширину). Записываем в ячейку R7C50;
2. В диапазоне $AW$6:$AW$36 (в макросе записано в стиле R1C1) записаны максимальные ...
Изменен: 31.08.2022
Читать сообщение на форуме или сайте.Автор: Мария Рычагова. Добрый день! Есть таблица, в которой находится 12 продавцов одного товара, фото во вложении. Есть товары, у которых 1 продавец, есть у которых 12. Нужен макрос или формула, благодаря которой номер продавца из столбца будет переносится на новую строчку + не будут добавляться пустые строки (если у товара не 12 продавцов, а меньше) + будут автоматически заполнятся данные о товаре, т.е. будут повторятся все значения, которые есть в других столбцах.
Изменен: 25.08.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, есть макрос копирования картинок по критерию и централизация картинок в ячейке, который работает, но чем больше строк тем больше нагрузка, соответственно медленнее и тд. Вопрос: Есть ли вариант упрощения или улучшение данного макроса? Подобных строк, как в файле, 300+Sub Вставка2()
Dim i&, r As Range, shp As Shape
For i = 4 To 393
Set r = Sheets(2).Cells.Find(Cells(i, 3).Value, LookAt:=xlWhole)
For Each shp In Sheets(2).Shapes
If shp.TopLeftCell.Address = r ...
Изменен: 25.08.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, стоит задача составить макрос для копирования данных с одного листа по критериям в другой. На просторах интернета нашел похожую, но все равно иную и попытался этот макрос переделать по нужную мне задачу. И вот он вроде бы работает, но криво. Прошу помощи разобраться. Сама задача звучит так: Нужно чтобы данные с листа 2 копировались на лист 1 по критерию в столбце С. Подобных строк в листе 2 будут около 250, а листе 1 зависит от заказа. Sub Копирование()
...
Изменен: 22.08.2022
Читать сообщение на форуме или сайте.Автор: Александр Юдин. Добрый день. Возникла интересная проблема: при подключениях в Power query к двум идентичным листам происходит смещение строк внутри pq. Файлы приложил в примере, может кто-то сталкивался и знает причину?
Изменен: 18.08.2022
Читать сообщение на форуме или сайте.Автор: twistd. Добрый день. Необходимо при изменении значения в ячейках столбца1 (Таблица2[Столбец1]) преобразовать строку с формулами в значения. При выполнении макроса цикл не заканчивается и уходит в ошибку.
Помогите подкорректировать макрос.Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("Таблица2[Столбец1]")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range(ActiveCell, ActiveCell.End ...
Изменен: 14.07.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии время событий (убраны из файла-примера, оставил только дату и время) приходит в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00 (наша первая минута ночи 00:01 у них идёт как 12:01) — тут проблема в том, что точно так же обозначается первая минута после полудня. То есть, дальше часы ночного/утреннего времени идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня). И возникает путаница во ...
Изменен: 16.06.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии приходят события в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00
2) дальше идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня).
3) далее снова 01:** — 11:** (что соответствует «нашим» 13:** — 23:**)
Строки (события) идут в том порядке, в каком они происходили (сверху вниз от новых и в историю) — иначе вообще было бы не разобрать что за чем следует (и что было до полудня, а что было после ...
Изменен: 15.06.2022
Читать сообщение на форуме или сайте.Автор: sekutor. Вcем привет.
Cтолкнулcя c задачей, которую пытаюcь решить c помощью макроcа.
Еcть файл X.xlsb, в котором 100 вкладок: "АВ01", "АВ02", ..., "АВ50" и "АC01", "АC02", ..., "АC50".
Нужно cоздать 50 файлов c именами "X01", "X02", ..., "X50", в каждом из которых будет две вкладки: "АВ01" и "АC01" в файле "X01", "АВ02" и "АC02" в файле "X02& ...
Изменен: 07.06.2022
Читать сообщение на форуме или сайте.Автор: xxx996. Здравствуйте,
Подскажите, пожалуйста, как можно сделать так, что бы если в ячейке M2 было заполнено "Иное(обязательный комментарий)", то ячейка N2 обязательна к заполнению(если не заполнена и пользователь пытается сохранить файл выводить ошибку "Не заполнены ячейки в столбце M").
И так по всему столбцу.
Пример во вложении.
Заранее спасибо.
Изменен: 31.03.2022
Читать сообщение на форуме или сайте.