Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/автоматизация почты, конверты - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » автоматизация почты, конверты (Макросы/Sub)
автоматизация почты, конверты
ArhAngel Дата: Вторник, 16.07.2019, 21:56 | Сообщение № 21
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!

На работе тоже постоянно отправляю конверты и решил запилить макет. Моя печаль в том, что на работе стоит Ubuntu с его LibreOffice. И суть в том, что там макросы из Экселя не работают, либо их надо переписывать, а я с макросами не дружу от слова совсем). Из макросов заработал только школьный ActiveX (на нем сделал выпадающий список с поиском по получателям, чтобы не жать каждый раз CTRL+F). Поэтому макет собрал на коленке самым простым способом, какой смог придумать. Прикрепил к сообщению.
В файлике все просто: получателей записываем в Базу, а сверху кнопка по выбору получателя, который потом подставляется в макет конверта. Конверт печатает через выделение и печать выделенной области. Размер конверта откуда-то содрал, под мои конверты на работе еще не подгонял, но примерно должно подойти. И последнее: если адрес очень длинный (у меня наверно тоже таких будет на работе парочку), то в базе получателей сделал дополнительный столбик, куда буду выносить не влезающее и в конверте это писать в строчку ниже. Сделал наверно колхозно, но быстро, просто и должно работать не прибегая к адским макросам. Шрифт у меня PostIndex, на Печкина переставить не сложно, кому надо.
PS. На Убунту поставить шрифт это вообще отдельный квест при наличии несколько учеток, но решили проблему. Вариант в шапке темы мне очень понравился, буду пробовать его все ж перенести на Убунту в свободное время.
К сообщению приложен файл: 0318020.xlsx (17.4 Kb)
 
Ответить
СообщениеДобрый вечер!

На работе тоже постоянно отправляю конверты и решил запилить макет. Моя печаль в том, что на работе стоит Ubuntu с его LibreOffice. И суть в том, что там макросы из Экселя не работают, либо их надо переписывать, а я с макросами не дружу от слова совсем). Из макросов заработал только школьный ActiveX (на нем сделал выпадающий список с поиском по получателям, чтобы не жать каждый раз CTRL+F). Поэтому макет собрал на коленке самым простым способом, какой смог придумать. Прикрепил к сообщению.
В файлике все просто: получателей записываем в Базу, а сверху кнопка по выбору получателя, который потом подставляется в макет конверта. Конверт печатает через выделение и печать выделенной области. Размер конверта откуда-то содрал, под мои конверты на работе еще не подгонял, но примерно должно подойти. И последнее: если адрес очень длинный (у меня наверно тоже таких будет на работе парочку), то в базе получателей сделал дополнительный столбик, куда буду выносить не влезающее и в конверте это писать в строчку ниже. Сделал наверно колхозно, но быстро, просто и должно работать не прибегая к адским макросам. Шрифт у меня PostIndex, на Печкина переставить не сложно, кому надо.
PS. На Убунту поставить шрифт это вообще отдельный квест при наличии несколько учеток, но решили проблему. Вариант в шапке темы мне очень понравился, буду пробовать его все ж перенести на Убунту в свободное время.

Автор - ArhAngel
Дата добавления - 16.07.2019 в 21:56
WestSide Дата: Понедельник, 10.02.2020, 09:43 | Сообщение № 22
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Это гениально!

Подскажите как расширить строки для конверта С5?
 
Ответить
СообщениеЭто гениально!

Подскажите как расширить строки для конверта С5?

Автор - WestSide
Дата добавления - 10.02.2020 в 09:43
ichilloff Дата: Вторник, 07.02.2023, 16:13 | Сообщение № 23
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Спасибо автору за этот пост, очень помог с идеей.
Хотел в свою очередь предложить свой вариант, возможно кому-то поможет.
На вкладке Mail нужно выбрать любую ячейку в строке адреса(в противном случае скрипт выдаст ошибку) и нажать кнопку "Печать конверта".
Данные переносятся на вкладку "ENVELOPE" - конверт расчерчен в формате DL.
Оправляется на печать, на принтер указанный в скприте.
P.S. Шрифт для печати индекса во вложении.

Сам макрос(есть в книге)
[vba]
Код
Rem Печать конверта
Sub PrintEnvelopeDL()
i = ActiveCell.Row
If ActiveCell = "" Or i < 3 Then
MsgBox "Не указан адресат!"
Exit Sub
End If

ThisWorkbook.Sheets("ENVELOPE DL").Range("AR17").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 2).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AR21").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 4).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AN23").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 5).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AR25").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 6).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AM29").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 3).Value
'ThisWorkbook.Sheets("ENVELOPE DL").Visible = True
ThisWorkbook.Sheets("ENVELOPE DL").PrintOut ActivePrinter:="\\LUZVMFP.mars-ad.net\LUZ-Bunin" 'ваш принтер
Application.DisplayAlerts = False 'отключение всплывающего окна(предупреждения)
'ThisWorkbook.Sheets("ENVELOPE DL").Visible = False
'ThisWorkbook.Sheets("MAIL").Activate
End Sub
[/vba]
К сообщению приложен файл: ZIPcode_Regular.ttf (7.8 Kb) · Mail.xlsm (29.4 Kb)


Сообщение отредактировал Serge_007 - Вторник, 07.02.2023, 16:39
 
Ответить
СообщениеСпасибо автору за этот пост, очень помог с идеей.
Хотел в свою очередь предложить свой вариант, возможно кому-то поможет.
На вкладке Mail нужно выбрать любую ячейку в строке адреса(в противном случае скрипт выдаст ошибку) и нажать кнопку "Печать конверта".
Данные переносятся на вкладку "ENVELOPE" - конверт расчерчен в формате DL.
Оправляется на печать, на принтер указанный в скприте.
P.S. Шрифт для печати индекса во вложении.

Сам макрос(есть в книге)
[vba]
Код
Rem Печать конверта
Sub PrintEnvelopeDL()
i = ActiveCell.Row
If ActiveCell = "" Or i < 3 Then
MsgBox "Не указан адресат!"
Exit Sub
End If

ThisWorkbook.Sheets("ENVELOPE DL").Range("AR17").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 2).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AR21").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 4).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AN23").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 5).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AR25").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 6).Value
ThisWorkbook.Sheets("ENVELOPE DL").Range("AM29").Value = ThisWorkbook.Sheets("MAIL").Cells(i, 3).Value
'ThisWorkbook.Sheets("ENVELOPE DL").Visible = True
ThisWorkbook.Sheets("ENVELOPE DL").PrintOut ActivePrinter:="\\LUZVMFP.mars-ad.net\LUZ-Bunin" 'ваш принтер
Application.DisplayAlerts = False 'отключение всплывающего окна(предупреждения)
'ThisWorkbook.Sheets("ENVELOPE DL").Visible = False
'ThisWorkbook.Sheets("MAIL").Activate
End Sub
[/vba]

Автор - ichilloff
Дата добавления - 07.02.2023 в 16:13
bosika Дата: Среда, 19.07.2023, 13:47 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010, 2013, 2016
_Boroda_, приветствую Вас Гуру. Я в макросах не силен. Может подскажете как подпилить макрос так, чтоб переносилось на вторую строку КОМУ и что не влезло КУДА на третью строку. Уж очень востребовано. Заранее благодарю.


Начинающий. Много и долго не пинать. Больно однако.
 
Ответить
Сообщение _Boroda_, приветствую Вас Гуру. Я в макросах не силен. Может подскажете как подпилить макрос так, чтоб переносилось на вторую строку КОМУ и что не влезло КУДА на третью строку. Уж очень востребовано. Заранее благодарю.

Автор - bosika
Дата добавления - 19.07.2023 в 13:47
Serge_007 Дата: Среда, 19.07.2023, 13:57 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 16453
Репутация: 2746 ±
Замечаний: ±

Excel 2016
К сообщению приложен файл: 0261048.png (54.4 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение

Автор - Serge_007
Дата добавления - 19.07.2023 в 13:57
bosika Дата: Четверг, 20.07.2023, 08:16 | Сообщение № 26
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010, 2013, 2016
Гуру экселя, может кто подскажет как подпилить макрос так, чтоб переносилось на вторую строку КОМУ и что не влезло КУДА на третью строку. Уж очень стало востребовано. Заранее благодарю за помощь.
К сообщению приложен файл: formirpochty.xls (145.5 Kb)


Начинающий. Много и долго не пинать. Больно однако.

Сообщение отредактировал bosika - Четверг, 20.07.2023, 08:24
 
Ответить
СообщениеГуру экселя, может кто подскажет как подпилить макрос так, чтоб переносилось на вторую строку КОМУ и что не влезло КУДА на третью строку. Уж очень стало востребовано. Заранее благодарю за помощь.

Автор - bosika
Дата добавления - 20.07.2023 в 08:16
Мир MS Excel » Вопросы и решения » Готовые решения » автоматизация почты, конверты (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!