Перейти к содержимому

Самый Популярный Контент


#51 Группы пользователей

Написано Alex87 05 Январь 2015

Описание и возможности групп пользователей в нашем сообществе infoffice.ru:

 

Обычные пользователи:

  • [color=#ff0000;]Нарушитель[/color] - ты перешёл за все рамки и нарушил всё, что только было возможно. Возможно тебе делали предупреждения, но ты просто напросто их игнорировал.
  • Гость - ты безбилетный пассажир, который пришёл на наш сайт и ещё в раздумьях, становиться членом сообщества или просто побродить и почитать темы на форуме.
  • [color=#d3d3d3;]Неактивный[/color] - ты ещё пока новичок, но уже изъявил желание стать профи в работе с приложениями Microsoft Office. Придётся многому учиться и искать на нашем форуме. Дерзай, у тебя всё получится, но только обязательно прочитав правила.
  • [color=#808080;]Пользователь[/color] - теперь ты стал на голову выше и изучил основы, задал важные и интересные вопросы. Ты на правильном пути, продолжай изучать дальше возможности приложений Microsoft Office.
  • [color=#1b546f;]Проверенный[/color] - ты уже прошёл через огонь, воду и медные трубы :) Ты стал по возможности помогать другим пользователям, изучил уже больше, чем обычный юзер. Совсем скоро ты станешь настоящим профи в своём деле и возможно, даже станешь членом команды сайта.

Команда сайта:

  • [color=#6db83b;]Команда[/color] - ты достиг вершины и стал членом нашей команды. Вместе с нами ты помогаешь другим пользователям решить их проблемы. Это дело очень ценится и поддерживается. Вместе мы делаем хорошие дела.
  • [color=#2026ab;]Модератор[/color] - ты отдал очень много времени нашему форуму и следишь за порядком, а так же помогаешь другим пользователям.
  • [color=#f7b126;]Ветеран[/color] - ты уже не модератор, но пока ещё и не админ. Находясь на сайте уже многое время, нелёгким трудом и оказанием помощи многим пользователям, ты заслужил большой авторитет и зарекомендовал себя с наилучшей стороны. Каждый пользователь хочет задать тебе вопрос. Тебя уже знают в лицо как постояльца.
  • [color=#d60000;]Администратор[/color] - наблюдатель всея сайта. Он будет наблюдать за всем происходящим и помогать всем пользователям столько, сколько это будет нужно. Поможет практически с любым вопросом.



#89 С днем Великой Победы! 70 лет!

Написано Alex87 09 Май 2015

bBgUiGfgirE1.jpg

 

Нет, не состарилась Победа! Ей скоро семьдесят всего. Взываю к вам, отцы и деды Во имя внуков и сынов: Восстаньте из земель российских И из украинских земель Отдавшие святые жизни Свои за мир, за мирный день. Восстаньте туляки, орловцы И киевляне, и азовцы, Херсонцы, ровенцы, полтавцы, Воронежцы, восстаньте братцы! Восстаньте москали-московцы И ленинградцы, запорожцы, Восстаньте псковичи, самарцы, Хабаровцы, восстаньте братцы! Восстаньте те, кто шёл под пули, Кто на смертельный шёл таран, Чтоб знать, что вас не обманули В веках ни Кремль, ни Майдан! Восстаньте и отцы, и деды Во имя внуков и сынов! Нет, не состарилась Победа! Ей скоро семьдесят… всего.

 

Поздравляем весь русский народ с Великой Победой! Дай Бог всем мира и чтобы не было войн! Ура!




#69 Как вставить музыку на фон презентации?

Написано Alex87 03 Май 2015

Джоконда, там в принципе нет ничего сложно ;) Если Вы используете Office 2010, то там очень легко всё сделать) После того, как добавили звук/песню в презентацию через вставку, появляется вот такой вот значок на первом слайде:

6957164.png

Нажав на него, в меню появится новая вкладка "Воспроизведение", где Вам нужно будет выбрать свойства воспроизведения песни. А ответ на вопрос Вы увидите в выпадающем списке на скриншоте ниже) Ставите для всех слайдов и она у Вас играет на всю презентацию))

 

Screenshot_2.png

 




#654 Друзья сайта

Написано Alex87 03 Май 2017

Друзья, рад сообщить вам радостную новость!

 

Сегодня, наконец-то, спустя долгое время переговоров, мы всё-таки обзавелись ещё одним другом, Сергеем Изотовым :) Этот человек является владельцем одного из самых популярных сайтов по Excel - Мир MS Excel. На его сайте вы сможете найти массу полезной информации и статей по разным аспектам Excel - от формул и функций, до макросов и VBA.




#48 Добавить новый раздел

Написано Alex87 30 Декабрь 2014

Джоконда, всё готово, можете использовать уже новый раздел/подфорум ;)




#42 Время показа слайдов в презентации PowerPoint

Написано Thomas 12 Декабрь 2014

Друзья, подскажите как решить проблему. У меня в каждой презентации от 50 до 80 слайдов приблизительно. Мне нужно запустить показ через флешку через телевизор, нужн ещё поставить на каждый слайд время, чтобы он показывался 30 секунд. Дело в том, что я нашла как это сделать во вкладке "Показ слайдов", "Запись показа слайдов", но....сами понимаете, сидеть и непрерывно смотреть на экран 20-30 минут и ещё переключать слайды не очень то удобно, потому как нет возможности сидеть на месте, т.к. одна беготня на работе. Пробовала искать на других сайтах, но ничего полезного не нашла.

 

В общем есть какое-то более простое решение данной ситуации. Заранее спасибо.

 

По моему, слишком много заморочек в вашей процедуре, всё значительно проще :)

Есть вкладка "Переходы" и там справа есть отдельная графа Время показа слайдов, именно то, что Вам нужно.

Там просто выставляете нужное время, соответственно 30 секунд и убираете галочку "Смена по щелчку", далее "Применить ко всем" и после этого у Вас на каждом слайде будет стоять время 00:30:00.

 

Screenshot_1.png




#181 KiberInfinity's Screen Shooter v0.8.7 (KISS)

Написано Alex87 29 Июль 2015

Название: KiberInfinity's Screen Shooter v0.8.7 (KISS)

Добавил: Alex87

Добавлен: 29 Июл 2015

Категория: Другие программы

Версия: 0.8.7


Очень полезная и удобная программа для скриншотов KiberInfinity's Screen Shooter, а аббревиатура её KISS. Данная программа имеет множество полезных функций, например: снимок участка экрана, снимок всего экрана, снимок содержимого активного окна, а так же захват изображения из буфера обмена. Изображения можно сохранять на компьютер, а так же загружать на сервера.

Помимо этого каждое изображение открывается в собственном мини редакторе. В общем советую Вам качать и пробовать, оно того стоит :)


Нажмите здесь, чтобы скачать файл




#81 Не работает поиск в Outlook 2010

Написано Thomas 06 Май 2015

Владимир, ну пока здесь, отвечаю быстро) просто Вам повезло, написали вовремя)))

 

В общем идём в Файл - Параметры, там выбираем Поиск и жмём на Параметры индексирования. Далее выбираем Microsoft Outlook и жмём Изменить.

 

Там дальше смотрите, если галочка не стоит на Файл данных, то поставить и подождать пару минут, всё должно заработать. Ну а если уже стоит, то снимите со всех, сохраните и закройте Outlook. Потом откройте заново, пройдите по тому же пути и поставьте вновь галочки везде на место. Соответственно должно заработать.




#749 Не печатаются примечания в Word 2013

Написано pavelviktorovich87 30 Январь 2018

Файл не могу прислать, т.к. тут коммерческая тайна. Создал новый файл, полностью всё скопировал в новый файл, сделал, как сказано в теме и всё нормально распечатал.


  • Alex87 это нравится


#73 Как вставить таблицу с данными Excel в документ Word

Написано Alex87 06 Май 2015

Всем здрасте! Не многие знают, как можно вставить таблицу из файла Excel с данными в документ Word. Сейчас мы и разберем данную возможность на примере. Предположим у Вас есть экселевский файл с таблицей данных и Вам нужно данную таблицу вставить в документ Word без потери каких-либо данных. Простым копированием (Ctrl+C) из Excel в Word у вас ничего не получится. Поэтому мы первым делом открываем документ Word, в который нам нужно вставить таблицу и переходим во вкладку "Вставка:  

69877031.png

 

Далее нам нужно выбрать пункт "Объект" и в выпадающем списке выбрать так же "Объект":  

69743911.png

 

После этого у нас открывается окно, в котором нам нужно перейти во вкладку "Создание из файла" и нажать на кнопку "Обзор":  

69651751.png

 

Далее мы выбираем тот файл Excel с данными, который нам нужно вставить в документ Word и жмём кнопку "Вставить". После этого мы возвращаемся к предыдущему окну вставки объекта, где нам нужно нажать на кнопку "ОК":  

69569831.png

 

Примечание: советую вам обратить своё внимание на пункт "Связь с файлом". Если поставить в нем галочку, то файлы будут связаны между собой. И когда будут происходить какие-либо изменения в файле Excel, то в документе Word так же будут происходить изменения. Но в этой случае оба файла должны находиться в одной папке. На этом всё, вроде ничего сложного ;) Приходите к нам еще)


  • Natali это нравится


#674 Новое в Office 365 в июне

Написано technet 10 Июль 2017

На конференции Международного сообщества технологий в образовании (ISTE) компания Майкрософт представила новые функции для студентов. Июньские обновления Office 365 расширяют возможности для сферы образования и включают новые способы работы в Microsoft Teams в аудиториях, расширения в области безопасности и многое другое.

Новые способы работы в Microsoft Teams в аудиториях

Мы рады объявить о том, что подписчиков Office 365 для образования ожидают новые способы работы в Microsoft Teams. Teams помогает учащимся создавать безопасную классную среду с коммуникациями посредством текста, видео и голоса, а также настраиваемыми классными темами, стикерами и эмодзи. Преподаватели могут экономить время, автоматически получая списки учащихся из информационной системы школы. Также можно легко переключаться между планированием занятий, созданием материалов и предоставлением обратной связи с помощью интеграции с записными книжками OneNote для занятий, Назначениями и приложениями Office. Наконец, Teams создает единый центр для преподавателей и персонала для коммуникаций за пределами аудиторий (например, в профессиональных учебных сообществах), который находится в едином представлении Office 365 для образования.

Изображение

В Microsoft Teams доступно все, что нужно студентам – OneNote Class Notebook, Назначения и приложения Office.

Доступность: Microsoft Teams для аудиторий разворачивается для пользователей Office 365 для образования на 181 рынках и 25 языках на ПК Windows, Mac, Windows Mobile, iOS и Android, а также в Интернете.

Обновления безопасности, защиты и соответствия требованиям Office 365

Несколько обновлений Office 365 в июне обеспечат лучшую защиту конфиденциальной информации корпоративных пользователей, улучшат управление рисками и защиту от угроз внутри организации.

Windows Information Protection расширяется в Office на ПК Windows — поддержка Windows Information Protection (WIP) расширяется за пределы мобильных приложений Office на Office для ПК Windows. WIP помогает предотвращать случайные утечки данных, в то же время позволяя сотрудникам поддерживать контроль над своими персональными данными. Можно легко маркировать контент, создаваемый в этих приложениях как “рабочий” или “персональный,” так что ИТ отдел может защитить или удалить только бизнес данные. Узнать больше о Windows Information Protection.

Доступность: Поддержка Windows Information Protection в Word, Excel, PowerPoint и Outlook на ПК Windows доступна для коммерческих пользователей Office 365 с Windows 10 корпоративная E3 или E5. Он уже поддерживается в мобильных приложениях Office для планшетов и смартфонов Windows.

Дополнительные обновления безопасности и соответствия требованиям в Office 365 — В этом месяце мы также анонсировали дополнительные обновления, которые помогут управлять угрозами и обеспечивать защиту конфиденциальной информации. Office 365 Advanced Threat Protection (ATP) включает расширенные отчеты об обнаруженных и заблокированных вредоносных сообщениях электронной почты. Новая конфигурация политик ATP Safe Links позволяет блокировать специфические адреса URL, настраивать политики для определенных людей и делать много другое. Office 365 Advanced eDiscovery обладает оптимизированным пользовательским интерфейсом для управления всем жизненным циклом прецедента. Также он может считывать текст с изображений, используя оптическое распознавание символов, что позволит контролировать коммуникации сотрудников на предмет соответствия внутренним политикам и политикам регулирующих органов. Наконец, новый соединитель защиты информации и управления событиями (SIEM) для Office 365 Advanced Security Management (ASM) помогает централизовать мониторинг уведомлений ASM с существующим программным обеспечением SIEM.

Изображение

Расширенные отчеты защиты от угроз дают наглядное представление о вредоносных сообщениях.

Доступность: Обновления Office 365 Advanced Threat Protection, Advanced Data Governance, Advanced eDiscovery и Advanced Security Management доступны и включены в планы Office 365 E5 и Secure Productive Enterprise E5.

Дополнительные обновления для коммерческих пользователей Office 365

В июне были и другие обновления для коммерческих пользователей, которые дают возможность собирать обратную связь в опросах, а также управлять и обмениваться видео во внутренней корпоративной среде.

Microsoft Forms доступен в виде публичной коммерческой предварительной версии Ранее доступный для пользователей из сферы образования, Microsoft Forms разворачивается для коммерческих пользователей. Microsoft Forms – это прострой веб-инструмент для создания опросов, викторин и голосований. Он помогает каждому сотруднику легко собирать отзывать заказчиков, измерять степень удовлетворенности персонала, организовывать командные мероприятия и делать много другое.

Изображение

Microsoft Forms – это простой веб-инструмент для создания опросов, викторин и голосований.

Доступность: Microsoft Forms разворачивается в виде публичной предварительной версии для коммерческих пользователей Office 365 по программе First Release.

Microsoft Stream доступен для широкой аудитории Microsoft Stream – это интеллектуальный видео сервис для коммерческих пользователей, который позволяет легко и безопасно загружать, обмениваться, управлять и просматривать видео. Транскрипция речи в текст, распознавание лиц, интеллектуальный поиск повышают эффективность использования видео. С помощью возможностей управления и безопасности сотрудники ИТ могут настраивать Microsoft Stream для соответствия требованиям компании. Приступить к работе с Microsoft Stream.

Изображение

Microsoft Stream может распознавать лица, преобразовывать речь в текст и выполнять другие функции, повышающие продуктивность.

Доступность: Microsoft Stream доступен для коммерческих пользователей Office 365 с корпоративными планами и планами для образования в 181 странах и на 44 языках.

Улучшение интеллектуальных сервисов Office 365

Июньские обновления интеллектуальных сервисов на базе облака в приложениях Office 365 помогают экономить время, добиваться лучших результатов и обмениваться информацией о ваших рабочих привычках с коллегами.

Находите достоверные источники и контент из большего числа приложений —Мы расширяем функцию Researcher за пределы Word на ПК Windows на Word для Mac, а также на OneNote для Windows 10. Researcher помогает находить и встраивать надежные источники и контент для онлайн заметок или документов в несколько шагов. Используя Bing Knowledge Graph, Researcher помогает обнаружить материал на нужную тему и добавить его в один клик, не покидая приложения. Больше информации о Researcher.

Изображение

Researcher помогает находить и встраивать надежные источники и контент, не выходя из приложения.

Доступность: Researcher доступен в OneNote для Windows 10, для всех подписчиков Office 365. Researcher доступен в Word на Macs для пользователей программы Office Insider Fast. Researcher уже был доступен в Word на ПК Windows.

Делитесь своими рабочими привычками с MyAnalytics — Теперь можно обмениваться с коллегами данными MyAnalytics о персональном стиле работы. Это поможет побудить к обсуждению продуктивных привычек среди людей, с которыми вы работает, продвигать новые стандарты встреч, сообщений электронной почты и сверхурочной работы. Данные MyAnalytics являются конфиденциальными по умолчанию до тех пор, пока вы не решите ими поделиться. Узнайте больше в статье блога о MyAnalytics.

Изображение

Теперь можно обмениваться данными из MyAnalytics о персональном стиле работы.

Доступность: Обмен в MyAnalytics доступен для всех коммерческих пользователей Office 365 с MyAnalytics.

Узнайте больше о том, что нового для подписчиков Office 365 в этом месяце в статьях: Office 2016 | Office для Mac | Office Mobile для Windows | Office для iPhone и iPad | Office на Android. Если вы пользуетесь Office 365 для дома или персональный, подпишитесь на программу Office Insider, чтобы первым использовать последние нововведения в продуктивность Office. Коммерческие пользователи программ Current Channel и Deferred Channel также могут получить ранний доступ к полностью поддерживаемым сборкам по программе First Release.

Статья первоначально опубликована Кирком Кёнингсбауэром (Kirk Koenigsbauer), корпоративным вице-президентом команды Office, на английском языке здесь.


Источник: официальный блог Microsoft Office
  • Alex87 это нравится


#556 Анимация в презентации PowerPoint

Написано Amurka 07 Декабрь 2016

Доброй ночи!

Сейчас мы разберем один вариант создания анимации в презентации PowerPoint своими руками, на примере обычного прыгающего мячика. На самом деле в программе Microsoft PowerPoint есть великое множество различных анимационных эффектов и наворотов, которые вполне можно сравнить с обычным Adobe Flash. Но в нём делать анимации намного сложнее, поэтому мы разложим по полочкам сегодня создание анимации в Microsoft PowerPoint 2010.

 

Итак, приступим. По сути, наша анимация в презентации будет состоять и 4 шагов, которые мы разберем более подробно.

  • падение мячика вниз;
  • деформация мячика при ударе о поверхность;
  • отскок мячика от поверхности и восстановление исходной формы;
  • вылет мячика в сторону после отскока.

1. Создаем поверхность внизу слайда, о которую будет ударяться наш мячик.

Вставка -> Фигуры -> Прямоугольник

84327171.png

 

2. Далее создаем сам мячик за пределами презентации в левом верхнем углу

Вставка -> Фигуры -> Овал (чтобы получить ровный круг, а не овал, зажимаем Shift и левую кнопку мыши и тянем)

 

3. После этого начинаем создавать саму анимацию

Анимация -> Добавить анимацию -> Пользовательский путь

84368131.png

 

4. Проводим линию в виде дуги от центра мячика до нашей поверхности (прямоугольника) не доводя её до линии соприкосновения

84245251.png

 

5. Поскольку при падении мяча на поверхность он должен немного деформироваться, поменять форму, то нам нужно создать этот эффект.

Для этого: выделяем наш мячик и идём в Анимация -> Добавить анимацию -> Изменение размера

В параметрах эффекта задаем значения:

- размер: 75%

- начало с предыдущим

 

6. После этого мячик у нас должен отскочить от поверхности и принять исходную форму.

Для создания этого эффекта: снова выделяем наш мячик и идём в Анимация -> Добавить анимацию -> Изменение размера

В параметрах эффекта задаем значения:

- размер: 133,33%

- начало с предыдущим

84173571.png

 

7. Дальше мячик у нас должен отскакивать от поверхности и улетать в правый верхний угол.

Для этого нам нужно: зайти в Анимация -> Добавить анимацию -> Пользовательский путь

И задаем путь от центра нашего мячика за пределы слайда справа.

 

На этом всё. Запускаем просмотр презентации и смотрим, что получилось. Если есть желание, то параметры анимации, скорость эффектов и прочего вы можете изменить в окне настройки эффектов, которое выглядит следующим образом

84112131.png

 

Ну а совсем ниже вы можете скачать образец анимации в презентации PowerPoint

Прикрепленные файлы


  • Thomas это нравится


#550 Не запускается Outlook 2016

Написано Alex87 06 Декабрь 2016

Aragorn, помнится мне сталкивался я с подобной проблемой, но с Outlook 2013. Попробуйте сделать следующее:

 

Не открывая Outlook зайдите в Панель управления -> Почта -> Учётные записи... Далее выбрать свою учётную запись и удалить её.

 

84306531.png

 

Ну а после этого, запустить Outlook и снова добавить/подключить свою учётную запись, введя правильные настройки подключения.




#374 ТОП 10 в поисковой выдаче

Написано Alex87 01 Июль 2016

Ну вот наконец-то ещё и индекс цитирования (тИЦ) поднялся до 10. Значит двигаемся в правильном направлении :)


  • Thomas это нравится


#268 Как открыть файл RTF

Написано Alex87 22 Январь 2016

Fisher, эммм, может он заблокирован? Правой кнопкой нажмите на файле и зайдите в Свойства. Там должна быть кнопка разблокировать.


  • Fisher это нравится


#22 Функция VarType

Написано Thomas 24 Ноябрь 2014

VarType (VarName)
Функция служит для определения кодового обозначения типа данных переменной или свойства объекта.
 
Возвращаемое значение
Возвращает значение типа Integer, указывающее подтип переменной.
 
Параметры
VarName
Обязательный параметр, являющий значением типа Variant, содержащим любую переменную.

Константа Значение Описание
vbEmpty 0 Значение Empty (не инициализированная переменная)
vbNull 1 Значение Null (действительные данные отсутствуют)
vbInteger 2 Значение типа Integer
vbLong 3 Значение типа Long integer
vbSingle 4 С плавающей точкой обычной точности
vbDouble 5 С плавающей точкой двойной точности
vbCurrency 6 Значение типа Currency
vbDate 7 Значение типа Date
vbString 8 Значение типа String
vbObject 9 Объект
vbError 10 Значение ошибки
vbBoolean 11 Значение типа Boolean
vbVariant 12 Значение типа Variant (используется только с массивами значений типа Variant)
vbDataObject 13 Объект доступа к данным
vbDecimal 14 Значение типа Decimal
vbByte 17 Значение типа Byte
vbUserDefinedType 36 Значения типа Variant, содержащие типы, определенные пользователем
vbArray 8192 Массив

Примечания
Функция VarType никогда не возвращает значение vbArray само по себе. Эта константа всегда складывается с каким-либо другим значением, указывающим тип массива. Константа vbVariant возвращается только в сочетании с константой vbArray, чтобы показать, что в параметре функции VarType указан массив типа Variant. Например, значение возвращенное для массива целых чисел вычисляется как vbInteger + vbArray, или равняется 8194. Если объект имеет свойство, установленное по умолчанию, то функция VarType(Object) возвращает тип этого свойства объекта.

Пример
[color=#008000;]' В данном примере функция VarType используется для проверки подтипа переменной[/color]
Dim IntVar, StrVar, DateVar, retval
[color=#008000;]' Инициализируем переменные[/color]
IntVar = 459 [color=#008000;]'число типа Integer[/color]
StrVar = "Русский_Проект" [color=#008000;]'строка[/color]
DateVar = #7/27/66# [color=#008000;]'дата[/color]
retval = VarType(IntVar)
Print retval
retval = VarType(DateVar)
Print retval
retval = VarType(StrVar)
Print retval

 

Данная функция является функцией преобразования чисел в разные системы исчисления.


  • Alex87 это нравится


#192 Microsoft Office 2010

Написано Alex87 03 Август 2015

Название: Microsoft Office 2010

Добавил: Alex87

Добавлен: 03 Авг 2015

Категория: Office

Разработчик: Microsoft
Официальный сайт: www.microsoft.com


Представляем вашему вниманию Microsoft Office 2010, который Вы сможете скачать бесплатно в нашем сообществе для операционных систем Windows XP, Windows 7 и Windows 8. Данный пакет приложений очень популярен среди многих других своих "родственников", т.к. больше всего зарекомендовал себя с хорошей стороны. В этой версии Microsoft Office 2010 есть такие популярные программы, как:

  • Microsoft Word 2010 - программа для работы с текстом, в которой Вы можете создавать любые документы, доклады, рефераты, коммерческие предложения и многое другое.
  • Microsoft Excel 2010 - программа для работы с таблицами, формулами, графиками и диаграммами, в которой Вы сможете производить различные сложные расчеты, делать сводные таблицы, строить графики и объединять их с другими данными.
  • Microsoft PowerPoint 2010 - программа для создания презентаций. В этой программе Вы сможете создать полноценную презентацию, например, для представления какого-либо проекта, товара или компании. Так же в презентацию можно вставлять музыку, видео, делать различную анимацию и многое другое.
  • Microsoft Outlook 2010 - почтовая программа для работы с письмами. В этой программе Вы легко сможете подключить один или несколько любых почтовых ящиков.

Ну а так скачивайте бесплатно Microsoft Office 2010 и без рекламы или установки дополнительных программ с нашего сообщества по прямой ссылке. ;)


Нажмите здесь, чтобы скачать файл




#184 Удалить ненужные ячейки

Написано Thomas 30 Июль 2015

Leha85, можно сделать всё намного проще при помощи функции

=ЕСЛИ(ЕОШ(-ЛЕВБ(A1));A1;"")

СКАЧАТЬ



  • Leha85 это нравится


#133 Данные со всех листов в один

Написано Thomas 13 Июль 2015

Александр, ну вот собственно сам код макроса:

Sub sborka()If MsgBox("Сборка производится на первый лист, правильно?", vbYesNo + vbDefaultButton2) = 6 ThenSheets(1).Range("a1").CurrentRegion.Clears_ = Sheets.CountSheets(2).Range("1:1").Copy Sheets(1).Range("a1")For i = 2 To s_    r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row + 1    Sheets(i).Range("a1").CurrentRegion.Offset(1).Copy Sheets(1).Range("a" & r_)    Range("d" & r_) = Sheets(i).NameNext    r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row    Range("d2:d" & r_).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"    Range("d2:d" & r_).Value = Range("d2:d" & r_).ValueEnd IfEnd Sub

А вот прикрепил готовый файл

 

СКАЧАТЬ


 

Так пойдёт?




#119 Как настроить в Exchange приём писем со всех ящиков в один?

Написано Alex87 23 Май 2015

Fisher, есть такая фишка, как транспортные правила, как вариант можно попробовать использовать его. Но, увы, как показывает практика, не всегда оно может срабатывать. В общем пробуйте, чем чёрт не шутит :)   Идёте в:

Центр администрирования Exchange - Поток обработки почты - Правила - Создать новое

Далее переходите в:

Дополнительные сведения - Применить правило, если отправитель находится вне организации - Выполнить следующие действия - Перенаправить сообщение (Указать адресат, кому будем перенаправлять, в вашем случае director@domain.ru). После этого добавляете исключение "Кроме случаев, когда получатель..." - выбираете всех пользователей организации, после чего жмёте "Сохранить".

 

После этого нужно сделать ещё одну небольшую процедурку)

Идёте туда же в Поток обработки почты - Обслуживаемые домены (выбрать нужный домен), выбираете "Внутренняя ретрансляция" и сохраняете.

 

Вот как-то так ;)


  • Fisher это нравится