Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: focus_487164. всем добрый день.
есть таблица, в которую выгружены логи проверок по заявкам. Данные логи содержат название проверки в начале строки, и уникальные значения (номер заявки, ФИО и прочее) в конце строки.
Вопрос - как сопоставить начало строки (название проверки) со словарем (в котором названия этих проверок) и вернуть значение (название проверки) в результирующую таблицу. Пример в приложенном файле.
попробовала искать по маске "*"&А1&"*", но половину не ...
Изменен: 20.12.2023
Читать сообщение на форуме или сайте.Автор: TheArhus. Добрый день!
Прошу решить следующую проблему:
Есть файл (во вложении)
Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию:
Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то
К каждой такой строке нужно добавить строку сверху.
В этой строке ячейки со "Стоимость руб." нужно зачеркнуть.
Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...
Изменен: 23.10.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте!
Есть макрос, который удаляет лист после выполнения пересчета. Но появляется окно с запросом стоит ли удалить лист, ведь там есть данные.
Можно ли обойти это окно, тк нужно чтобы лист удалялся без вмешательства пользователя
Изменен: 25.09.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!
Изменен: 21.09.2023
Читать сообщение на форуме или сайте.Автор: RinatSibay. Здравствуйте, подскажите пожалуйста как решить такую задачу, уже больше 2 недель не могу найти возможных путей решения: Нужно подсчитать количество людей получивших консультацию/патронаж/лекцию/... в определенное время и месте. Я смог найти количество проведенных консультаций и по датам и по местам, но не могу их сопоставить с количеством получшившим помощь людей.
Тоесть если у нас 6 человек пришли за услугой, то нужно узнать сколько из них получили консультацию в 1 квартале ...
Изменен: 19.08.2023
Читать сообщение на форуме или сайте.Автор: magistr_ken. Привет, знатоки.
Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи.
Мне нужно привести это в вид где все это стоит вертикально.
При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз.
Пример как должно выглядеть показал.
Изменен: 04.07.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
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 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
Читать сообщение на форуме или сайте.Автор: Alexander Kruglov. Привет друзья, есть умная таблица (прайс-лист) примерно 500 строк и 20 колонок, вся она создана на основе данных других с др листов. Обновляю я ее протягиванием и выглядит примерно так:
SKU ID NAME QTY тд 12323 HJWW001,HJWW003 text 5 text SKU ID NAME QTY тд 12323-HJWW001 HJWW001 text 5 text 12323-HJWW003 HJWW003 text 5 text
Я нашел код, который работает, но у него есть минусы, поэтому прошу помощи в доработке
1. самое главное он очень сильно ...
Изменен: 03.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
Читать сообщение на форуме или сайте.Автор: Евгений Г. Доброго времени суток, Уважаемые форумчане!
Не силен в написаниях макросов. Прошу вашей помощи.
Есть таблица, в которой есть однотипные значения, начинающиеся на одни и те же символы.
Есть отчет в который нужно эти однотипные значения снести под одну строку. Делается это каждый раз вручную.
Прошу вас помочь написать макрос, с помощью которого можно будет делать это автоматически.
Количество строк всегда разное, количество столбцов одинаковое ( 79 )
Если можно, то прописать, ...
Изменен: 28.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
Читать сообщение на форуме или сайте.Автор: Padavone. Здравствуйте, уважаемые программисты!
Кто может помочь в решении вопроса при использовании Word и Excel 2019?
Как автоматизировать следующие действия?
Открыть файл Word, в его таблицах определить только параметры и их результаты/значения (иной текст игнорировать), открыть итоговый файл Excel, в ячейку А2 внести имя файла Word, в ячейку В1 и далее вправо внести выявленные в таблицах файла Word параметры, в ячейку В2 и далее вправо, внести выявленные в таблицах файла Word ...
Изменен: 18.12.2021
Читать сообщение на форуме или сайте.Автор: Din Adiev. Добрый день! Возникла следующая проблема:
Имеется таблица с двумя столбами,
наименования компаний
N-ная сумма
Для примера приведу несколько:ГАТЕ Иншаат Таахют Санайи ве Тиджарет4 099 330,00Сервисный Центр “ТурбоРемонт”3 930 654,00Бетеге холдинг3 565 210,00ISTEK Construction3 433 600,00НАО Государственная корпорация2 856 000,00Baku Consolidate Supply and Services2 460 000,00ККТС2 370 383,97
Необходимо удалить из данной таблицы определенные компании,
имеющиеся в другой ...
Изменен: 09.12.2021
Читать сообщение на форуме или сайте.Автор: Андрей Малышев. Добрый день!
Есть некая таблица со значениями в столбик, пользователь с использованием функции "СУММ" сам выбирает нужные ему значения. Ячейка "СЧЁТЗ" должна автоматический выводить количество ячеек, которые выбрал пользователь для подсчета в функции "СУММ" . Подскажите, пожалуйста, как это можно реализовать?
Изменен: 14.10.2021
Читать сообщение на форуме или сайте.