Поиск
Автор: Maxim. Доброго времени суток эксперты, столкнулся с задачей необходимости создания множества типовых документов с различными данными в определенных местах, это проблема решается добавлением в ворд документ полей в которые будет вноситься информация из excel файла с помощью макроса. На форуме "cyberforum.ru" 10 лет назад было предложено решение которое соответствует моей задачи - https://www.cyberforum.ru/vba/thread1072655.html (https://www.cyberforum.ru/vba/thread1072655.html) ,...
Изменен: 23 сен 2020
Читать сообщение на форуме или сайте.Автор: Ranker Dark. На странице википедия есть несколько таблиц. И таких страниц несколько. Структура всех таблиц одинакова.
Я могу и вручную скопировать все таблицы, но они постоянно обновляются и каждый раз копировать одни и теже таблицы, с новыми данными, немного запарно.
Знаю, что есть способ парсить данный в Excel, но не знаю как. Не подскажете, пж.
Изменен: 17 сен 2020
Читать сообщение на форуме или сайте.Автор: Walkish. Доброго времени суток,
Есть ли возможность сделать макрос, который запускался бы из книги excel , открывал Outlook и фильтровался во всех входящих по адресату, которого я бы указал в определенной ячейке?
нашел такой кусок кода, но как адаптировать под свои хотелки не пойму, опыта работы с Outlook objects нет.
Sub getmail()
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
'Dim msg As Outlook.MailItem
Dim InboxItem As Object
Set olApp...
Изменен: 29 авг 2020
Читать сообщение на форуме или сайте.Автор: Pankiller. Всем привет!
Такая задача:
Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку.
В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце.
То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров.
Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
Изменен: 1 апр 2020
Читать сообщение на форуме или сайте.Автор: mickeylikebeatle. Коллеги, приветствую.
Только начинаю путь к изучению макросов. Есть задача увязать таблицы и текст Word с Excel. Файлов excel много, в каждом из них таблицы и текст. Хочу связать word, чтобы по нажатию кнопки прогружались куски и таблицы из разных файлов excel, которые лежат на сетевом диске. Есть пару вопросов. Помогите прояснить, пожалуйста.
1. Если я делаю увязку через связь ячеек таблицы word с таблицей excel, как я могу посмотреть код своего каждого действия в word?...
Изменен: 23 май 2019
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было значение...
Изменен: 21 июн 2018
Читать сообщение на форуме или сайте.Автор: pluto21. Добрый день
Требуется написать макрос, который подсчитывает число вложений.
Алгоритм.
Если количество листов 1 или 2, то конверт е65.
От 3 до 10 (включительно) с4.
Пример, если вложений 152 штуки. То будет 15 конвертов c4 по 10 вложений и один е65 с 1 вложением.
Если 156, то 15 с4 (10 вложений) и 1 с4(6 вложений)
Таблицу для примера прилагаю. По данным листа Таблица, нужно заполнять лист Результат
Бюджет 500 рублей.
Изменен: 14 дек 2017
Читать сообщение на форуме или сайте.Автор: next777pro. Нужно цифры, которые есть в столбце и считаются путем сжатия исправить в функции следующее
1) соединять в тире только если три и более, в количестве двух и одного не соединять через тире
пример 1, 2, 4-7, 11, 12, 22-45
2) убрать в конце лишние пробелы и запятые
Function Sgatie(диапазон As Range) As String
Dim i&, j&, a()
a = диапазон.Value
j = 1: Sgatie = a(1, 1)
For i = 2 To UBound(a, 1)
If a(i, 1) = a(i - 1, 1) + 1 Then
j = j + 1
ElseIf j = 1 Then
...
Изменен: 27 май 2016
Читать сообщение на форуме или сайте.