Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: Илья Кудинов. СИТУАЦИЯ:
Имеется столбец данных.
Ячейки столбца могут содержать 3 варианта значений:
1) 0
2) 1
3) пустая ячейка (в которую никакая формула не возвращает значение, в неё просто ничего не писали никогда)
НУЖНО:
Записать справа от каждой ячейки значение, соответствующее каждому варианту исходного значения.
Для 0 вернуть 1.
Для 1 вернуть 0.
Для пустой ячейки вернуть пустую ячейку.
РЕШЕНИЕ:
Написал формулу в ячейке справа от исходной:
=ЕСЛИ(A1=0;1;(ЕСЛИ(A1=1;0;"")))
...
Изменен: 10.03.2023
Читать сообщение на форуме или сайте.Автор: Виталий Донец. Есть таблица с большим объемом данных, нужно объединить текстовые значения двух столбцов по определенному критерию в одну ячейку (наименование-1: значение-1; наименование-2: значение-2; ...).
Смысл, автоматизировать составление ТЗ для копирайтера по написанию статей.
Есть название темы статьи - это и есть критерий, например "Как переобуть машину?"
Есть ключевые слова (фразы) для этой статьи, каждая имеет: отдельную ячейку, отдельную строчку.
Есть слова подсветки ( ...
Изменен: 16.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
Читать сообщение на форуме или сайте.Автор: Мария Рычагова. Добрый день! Есть таблица, в которой находится 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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: BigVeter. Ищу Excel специалиста в Ангарске - поддержка, модернизация файла расчета изделий.
Макросы, сложные формулы, много зависимостей внутри файла, системность отсутствует.
Удаленные попытки неудачны.
На начальном этапе предполагается сориентироваться в файле при непосредственном общении.
Далее возможна работа из дома. При возникновении сложных вопросов, непосредственное общение. Поэтому Ангарск.
Ежемесячный бюджет от 25000 и выше.
Изменен: 10.05.2022
Читать сообщение на форуме или сайте.Автор: Евгений Рыбников. Задание на создание облачной файловой системы для хранения и обмена информации в формате Excel.
Формирование файловой системы, управляющей таблицами Excel (не более 50 файлов) на облачном сервисе (к примеру, One Drive).
Главная задача – организация обмена информацией через облачную файловую систему между Генератором информации и Получателем информации по средствам стандартной синхронизации Excel.
Информация для обмена указана в Приложении 1.
Так же во вложении подробное ...
Изменен: 30.03.2022
Читать сообщение на форуме или сайте.Автор: Владислав Тимонин. Есть таблица, как сделать эти шаги подскажите
Если C2 время работы с 8:00 до 17:00, то D1 с 10:15 до 10:30, то E1 С 12:30 до 13:00, то F1 с 15:00 до 15:15(Этот интервал как пример)
И чтобы не повторялось время перерывов у сотрудников работающие в это же время
И чтобы был авто выставление перерывов
Или подскажите Материал где можно это найти
Изменен: 24.03.2022
Читать сообщение на форуме или сайте.Автор: Сырым Жанжигитов. Добрый день! Помогите пожалуйста, написать макрос с такой целью: Макрос ищет слова имеющие определенную букву и выделяет найденные слова красный цветом.Например, имеющие букву "и". Обязательно должен выделить все слово,имеющие букву "и", именно слова должен выделить, а не букву и.
Изменен: 16.03.2022
Читать сообщение на форуме или сайте.Автор: Сабит Алдонгров. Добрый день! Хочу автоматизировать таблицу для работы с заказами. Есть несколько магазинов, есть остатки в данных магазинах, есть остатки на складе. Необходимо добавлять к заказу по одной позиции вплоть до Того момента пока заказ не будет соответствовать необходимому количеству.
Помогите пожалуйста в решении данного вопроса!
Изменен: 01.03.2022
Читать сообщение на форуме или сайте.Автор: tango_nefer. Добрый день!
Задача: Есть файлы по 5 пользователям, в одном файле: карточка, акты и несколько отчетов из этих актов.
Нужно:
1. закрыть у ячеек, в которых есть формулы возможность корректировки
2. создать отчеты (такого же формата) в которые будет «сливаться» информация из пяти. Количество строк в карточке динамично и в течение года будет прирастать, поэтому нет возможности жестко закрепить в сводном отчете кто идет за кем. Нужен макрос? Который будет ...
Изменен: 20.02.2022
Читать сообщение на форуме или сайте. ... Откупщикова. Здравствуйте! Мне необходимо написать макрос для статистической обработки данных. При ... придется в разных местах в таблице. Мне потребовалось ввести цикл типа ... код). Однако Excel выдает ошибку 1004 и прекращает выполнение макроса. В чем ... очевидного.
Первоначальный циклSub Цикл3()
'
' Цикл3 Макрос
'
' Сочетание клавиш: Ctrl+с
' Начало ... SubИзмененный цикл
Sub Цикл3()
'
' Цикл3 Макрос
'
' Сочетание клавиш: Ctrl+с
' Начало ...
Изменен: 07.02.2022
Читать сообщение на форуме или сайте.Автор: Ирина Откупщикова. Необходимо написать макрос для статистической обработки данных. Мне нужно, чтобы расчет по формуле происходил пока ячейка в соседнем столбце не пустая, поэтому использую операции DO until - Loop. Адресация ячеек относительная, поэтому возникла проблема в этом цикле с ссылкой на ячейку, которая при переходе в следующую строку должна оставаться на том же месте. То есть мне нужно, чтобы расчет в 3м столбце (см прикрепленную картинку) по формуле происходил до тех пор, пока ...
Изменен: 07.02.2022
Читать сообщение на форуме или сайте.Автор: DNail. Есть столбец с маркой оборудования, есть столбец с моделями этого оборудования, есть столбец с количеством и столбец с серией оборудования. Нужно осуществить поиск по марке и моделе оборудования с получением результата по количеству и серии. Используя при этом TextBox/ComboBox. Пример ниже
Изменен: 20.01.2022
Читать сообщение на форуме или сайте.