Сообщество - MS, Libreoffice & Google docs
MS, Libreoffice & Google docs
120 постов 7 117 подписчиков
1797

Календарь на 2020 год

Закончились новогодние праздники и снова начались трудовые будни.

Автором сайта Планета Excel Николаем Павловым опубликован календарь на 2020 год с ежедневником, куда включены все официальные праздники и переносы рабочих дней.

Календарь на 2020 год Excel, Календарь, Полезное, Длиннопост

Имеется пинарик (дословно «пинающий календарик») — это календарь, который позволяет вести учет и оценку собственной продуктивности, эффективности использования своего времени, что вызывает определенный мотивирующий эффект и стимулирует проживать свою жизнь более эффективно.

Календарь на 2020 год Excel, Календарь, Полезное, Длиннопост

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

Календарь на 2020 год Excel, Календарь, Полезное, Длиннопост

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

Календарь на 2020 год Excel, Календарь, Полезное, Длиннопост

Список праздников, которые можно по желанию изменить

Календарь на 2020 год Excel, Календарь, Полезное, Длиннопост

Скачать календарь можно здесь


Начинай уже сейчас жить той жизнью, какой ты хотел бы видеть ее в конце. (Марк Аврелий)

Показать полностью 3
24

Расчет стоимости ремонтных работ в квартире в Опен офисе

Здравствуйте! Предстоит ремонт в квартире, поэтому взял и сделал себе калькулятор расчета стоимости работы без учета стоимости материала. Сделано в опен офисе, но в экселе должно работать. Расценки взял с одного из сайтов по своему региону.


Для расчета необходимо указать площадь помещения в квадратных метрах (ячейка C3), в столбце "E", напротив количества единиц вида работ, значение объема работ, если в столбце "E" напротив вида работ поле не заполнено, то позиция в расчете не участвует. В конце таблицы дана итоговая сумма стоимости работ. В таблице 248 наименований работ с ценой за 1 ед.измерений.


Ссылка на файл https://yadi.sk/d/RRJIlpW9XaLJfg

Расчет стоимости ремонтных работ в квартире в Опен офисе Excel, Таблица, Open Office

Мыло для вопросов Petrov210217@yandex.ru

21

Как сгенерировать случайный процент от числа в excel

Нужна помощь гуру экселя. Собственно вопрос в следующем: Необходимо число (принятое за 100%) разделить неравномерно на N количество частей, с условием, что на каждую часть будет приходится от A до B % и в сумме получалось то самое число (принятое за 100%).

Как сгенерировать случайный процент от числа в excel Ms Office, Excel, Вопрос, Помощь, Без рейтинга

Как будут выглядеть ячейки В6:F6?

69

Учет расходов реактивов в Эксель

Делал недавно на заказ, такую вот табличку в экселе. Суть простая:

Лист 1 заполняется в ручную, в нем указывается название реактива, дата его изготовления, краткое описание методики и вещество из которого изготавливается реактив. Вещества и реактивы могут повторяться.

Листа 1 на лист 2 переносятся все реактивы, считается расход каждого вещества.

Дополнительно при запуске книги эксель, если срок годности реактива вышел, то выскакивает сообщение, а реактив подкрашивается в красный.

Учет расходов реактивов в Эксель Excel, Расчет
Учет расходов реактивов в Эксель Excel, Расчет

Весь расчет проводит макрос, поэтому в бесплатных аналогах экселя (опен офис)  работать не будет. Сам файл на яндекс диске https://yadi.sk/i/ElPQX5ntu-EYqg

Мыло для связи, если есть вопросы Petrov210217@yandex.ru

32

Изобретаю велосипед. Крестики-нолики в Экселе

Доброго времени суток! Изучаю VBA, а как известно на одной теории далеко не уедешь. Вот и выбрал, для практики, нейронную сеть (пост здесь), а теперь игру крестики нолики в экселе. Так как я новичок и только учусь, сильно не пинайте.


Алгоритм игры особо не продумывал, поэтому сложность игры "супер легкая", скачать можно на яндекс диске https://yadi.sk/i/4G3zwFC3IqnbCA

Мыло для связи Petrov210217@yandex.ru

Изобретаю велосипед. Крестики-нолики в Экселе Miscrosoft Excel, Excel, Крестики-Нолики, Vba
220

Небольшая нейронная сеть в Эксель на VBA

Доброго времени суток! Несколько месяцев назад писал небольшую нейронную сеть в экселе на VBA в учебных целях и практики программирования на VBA.


Книга с одним листом, в котором настройки нейронной сети, обучающая выборка и веса.


Параметры сети:

прямая, обучение методом обратного распространения ошибки;

активационная функция- биполярная сигмоида;

входы- до 20;

формат входов- подаются данные (1;-1)

слоев- 2 (один скрытый слой);

нейронов в скрытом слое- до 100;

выход-1.


Файл старался сделать наиболее простым и понятным.

Небольшая нейронная сеть в Эксель на VBA Excel, Нейронные сети, Машинное обучение, Длиннопост

Для запуска сети необходимо ввести следующие данные:


- примеры для обучения и указать их количество в настройках;


- правильные ответы;


- количество входов;


- количество нейронов в скрытом слое;


- скорость обучения;


- сколько эпох обучать сеть


Нажать кнопку "Старт"


Эксель не очень подходит для этих целей, поэтому обучение может занять довольно длительное время.


Скачать файл можно с яндекс диска https://yadi.sk/d/PBG5DMQC_M42Ag

Небольшая нейронная сеть в Эксель на VBA Excel, Нейронные сети, Машинное обучение, Длиннопост

Если есть вопросы или идеи по применению пишите в комментариях или на электронную почту Petrov210217@yandex.ru

Показать полностью 1
606

Защита данных в Excel

Приветствую всех! В этот раз мы рассмотрим способы защиты данных в Excel, от примитивных приёмов, до более серьёзных с паролированием.


Спрятать содержимое ячеек


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

Нажимаем Ctrl+1 или выбираем «Формат ячеек», в открывшемся меню «Число»-«Все форматы»-«Тип» вводим подряд 3 точки с запятой без пробелов.

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

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

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


Защита ячеек листа от изменений


В случаях, когда необходимо защитить не весь лист, а только некоторые его части, оставив пользователям возможность вводить информацию в определенные ячейки, нужно выделить ячейки, которые не надо защищать (если такие есть), нажимаем Ctrl+1 «Формат ячеек»-«Защита» и снимаем флажок «Защищаемая ячейка».

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

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

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

Этот приём необходим т.к. в Excel команда «защитить диапазон», отсутствует, а есть только «защитить лист» и «защитить книгу», поэтому таким образом мы решаем эту проблему.


Далее для включения защиты текущего листа нажимаем кнопку «Защитить лист» на вкладке «Рецензирование». В открывшемся окне можно установить пароль (он необходим, чтобы кто попало не мог снять защиту) и при помощи списка флажков настроить исключения:

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Например, необходимо оставить пользователям:

- возможность помечать ячейки маркером (но не менять их содержимое) –включаем флажок «Форматирование».

- использование фильтрации и/или сортировки (через Автофильтр) – включаем флажки «Использование автофильтра» и/или «Сортировка». Только перед включением защиты сперва создайте сам фильтр на вкладке «Данные».


Чтобы предотвратить выделение защищённых ячеек и копирование их на новый лист с последующим редактированием, снимите в списке разрешений все флажки, кроме второго. В результате вы разрешаете выделять только разблокированные ячейки (для которых вы предварительно выключили флажок «Защищаемая ячейка»), а все остальные ячейки на листе выделить и скопировать будет невозможно.


Выборочная защита диапазонов листа для разных пользователей


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

Чтобы это сделать, выбираем на вкладке «Рецензирование» кнопку «Разрешить изменение диапазонов».

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

В появившемся окне нажимаем кнопку «Создать» и вводим имя диапазона, адреса ячеек и пароль к нему:

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Повторяем эти действия для каждого из диапазонов разных пользователей, пока все они не окажутся в списке. Далее нажимаем кнопку «Защитить лист» (предыдущий пункт) и включаем защиту всего листа.

Теперь при попытке доступа к любому из защищенных диапазонов из списка, Excel будет требовать пароль именно для этого диапазона.


Защита листов книги


С помощью кнопки «Защитить книгу» на вкладке «Рецензирование» защищаем документ от удаления, переименования, перемещения листов в книге, изменения закрепленных областей (зафиксированной «шапки» таблиц и т.п.), возможности сворачивать/перемещать/изменять размеры окна книги внутри окна Excel:

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Флажок «Структуру» отмечен по умолчанию, т.к. он подразумевает стандартный набор функций защиты листов от удаления, переименования, копирования.

Флажок «Окна» не обязательный и необходим для запрета пользователю сворачивать и/или изменять размеры окна книги внутри окна Excel или изменять закрепление областей.


После включения такой защиты сделать подлость с листами внутри книги Excel становится затрудненным, т.к. большинство команд становится неактивными, пока не снять защиту:

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Шифрование книги


В Excel имеется возможность зашифровать весь файл книги, используя алгоритм шифрования AES 128-bit. Взломать его напрямую невозможно, а автоматический подбор пароля осложнён низкой скоростью перебора вариантов, поэтому не забывайте свои пароли.


Данную защиту можно задать при сохранении книги, выбрав «Файл» – «Сохранить как» или клавишу F12, в окне сохранения нажать «Сервис» – «Общие параметры».

В появившемся окне можно ввести два разных пароля – на открытие файла (только чтение) и на изменение:

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Если задать первый пароль (для открытия), то пользователь не сможет даже открыть файл для просмотра.

Если же пользователь знает первый пароль, но мы задали и второй (для изменения), то пользователю надо будет либо ввести пароль для изменения, либо ограничиться просмотром, нажав на кнопку «Только для чтения».

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

Кстати, в Microsoft Word этот способ тоже работает.


Суперскрытый лист


Иногда некоторые листы (например, с личными заметками) приходится скрывать от глаз пользователей. Простым способом является скрытие листа нажав правой кнопкой мыши по ярлыку листа «Скрыть», но это малоэффективно.

Чтобы улучшить защиту у нас должно быть открыто минимум два листа (т.к. один лист мы скроем), затем открываем редактор Visual Basic, на вкладке «Разработчик» или нажатием Alt+F11, выбираем «Visual Basic».


Нажатием Project Explorer или Ctrl+R откроется меню

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

В верхней части выделяем наш Лист1, а в нижней части находим свойство Visible и делаем его xlSheetVeryHidden.

Защита данных в Excel Excel, Защита, Защита информации, Полезное, На заметку, Длиннопост

Можно переименовать Лист2 на какое-нибудь слово, чтобы не палиться о наличии Листа1 и теперь узнать о его существовании можно только в редакторе Visual Basic, в других местах он отображаться не будет.


Берегите свои данные, чаще сохраняйтесь Shift+F12 и вы никогда ничего не потеряете.

Показать полностью 9
1002

Лайфхак  как открыть дважды  тот же лист Excel

опять опишу очевидное ( но невероятное).

Иногда бывает, что нужно сделать так, чтобы  один и тот же лист документа был виден  на экране дважды ( допустим, начало  длиннючего документа и  его окончание). ( я работаю с длинными контрактными сметами, где частенько овер 3000 строк и постоянно надо метаться по всему листу). Тогда  в экселе можно сделать так:  Вид-  Новое окно

Лайфхак  как открыть дважды  тот же лист Excel Excel, Лайфхак, Длиннопост

происходит еле уловимое движение в Экселе.  это открылся этот же документ в новом окне. но ты его не увидишь, пока не свернешь окно в уменьшенный  размер. имена у открытых окон разные  ( обвел зеленым овалом).

Лайфхак  как открыть дважды  тот же лист Excel Excel, Лайфхак, Длиннопост

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


где же тут лайфхак? он в том, что нашему мозгу не нужно тратить свою оперативную память на удержание в уме изображения различных участков документа. а оперативка, как вы знаете, очень нужная вещь в нашем мире. ты не просто начинаешь быстрее работать, ты меньше устаешь от примитивных, но трудозатратных действий.  у меня прямо гора с плеч ( с головы) свалилась, когда я стал использовать этот прием.


чаще всего я использую этот прием при работе с "пакетными" актами скрытых работ ( это когда все АОСР находятся в одном файле, а не раскиданы по всему компу, их можно даже заранее написать, до начала работ, имея лишь контрактную смету). вот пример

Лайфхак  как открыть дважды  тот же лист Excel Excel, Лайфхак, Длиннопост

слева - отображаемая часть акта, а справа - сама плоть АОСР, большая часть которой скопирована из сметы.  ну да ладно, это специфика.


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

Показать полностью 1
141

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel

Многие из тех, кто часто работает в MS Excel, собрали коллекцию макросов на VBA, которые облегчают их ежедневный труд. У кого-то эти макросы хранятся в отдельной книге, кто-то собрал их в "личной книге макросов" (personal.xlsb), доступной на уровне всего приложения, и вручную добавил кнопки вызова нужных скриптов на панель инструментов. В первом случае коллекцией удобно делиться с коллегами - достаточно переслать файл, но чтобы ей воспользоваться, необходимо каждый раз открывать эту книгу. Во втором случае доступ к функциональности есть сразу при запуске Excel, но могут возникнуть проблемы с передачей наработок другим пользователям.

В данном посте описан способ создания VBA-настройки с пользовательской панелью инструментов на ленте Excel (Ribbon), которая позволяет воспользоваться преимуществами обоих подходов. Это файл в формате xlam, который можно передавать как обычную Excel-книгу. При её открытии пользователь видит появившуюся панель инструментов, которая даёт доступ к функциональности надстройки:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

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

Используемые инструменты: MS Excel, 7zip, Visual Sudio Code. Последние два необязательны, подойдёт любой архиватор с поддержкой zip-формата и любой текстовый редактор, умеющий в UTF-8 (если Вы хотите использовать кириллицу).

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


Код и результат в виде книги xlsm можно найти на гитхабе:

https://github.com/navferty/SampleExcelXlamAddin

Итак, для начала откроем новую книгу, и добавим модуль с образцом кода:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Сохраним книгу в формате xlsm (книга с поддержкой макросов). Современные форматы документов MS Office (xlsx, xlsm, docx, docm, pptx и т.д.) основаны на стандарте OpenXML и представляют из себя обычный zip-архив, который состоит из компонентов (например, XML-файлы, соответствующие листам, изображения, бинарный контент и прочее), а также файлов отношений (.rels), которые задают структуру всего документа, путём ссылок на компоненты.

Чтобы получить доступ к внутреннему содержимому книги, можно переименовать файл Sample.xlsm в Sample.zip, после чего открыть его любым архиватором. Некоторые архиваторы, например 7zip, умеют открывать файлы напрямую, без изменения имени файла:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Чтобы добавить ribbon-панель, нам нужно будет создать новый компонент customUI/customUI.xml, а также добавить ссылку на него в корневой файл отношений _rels/.rels

Разархивируем весь документ в отдельную папку ("Распаковать в "Sample\""), и создадим в ней новую папку customUI:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Теперь добавим собственно компонент:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Ниже приводится текстовая версия содержимого customUI.xml


<?xml version="1.0" encoding="utf-8"?>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

<ribbon>

<tabs>

<tab id="customTab" label="Sample Add-in" keytip="XT">

<group id="Tools" label="Group 1">

<button id="HelloWorldBtn" imageMso="BlackAndWhiteAutomatic" keytip="H" label="Привет, Мир!"

onAction="SayHelloWorld" screentip="Поприветствовать мир" size="large" />

<button id="DuplicatesBtn" imageMso="SmartArtChangeColorsGallery" keytip="D"

label="Выделение цветом дублей" onAction="DuplicateColors"

screentip="Выделение парными цветами повторов в выделенном диапазоне" size="large" />

</group>

</tab>

</tabs>

</ribbon>

</customUI>

Коротко расскажу о важных элементах и атрибутах.

Значения идентификаторов (атрибут id) должны быть уникальными. Для некоторых элементов (например, tab - в случае, если Вы объявляете новую вкладку, а не существующую, путем указания idMso) также обязательно указать label - иначе Excel не отобразит этот элемент.

С помощью атрибута imageMso можно определить иконку элемента из числа имеющихся в MS Office. Список доступных значений весьма объемный, поэтому здесь приводить не буду - он легко гуглится.

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

Атрибут onAction задаёт название процедуры, которая будет выполнена при основном взаимодействии с элементом (например, при нажатии на кнопку button). Процедура должна иметь определённую сигнатуру (количество и тип аргументов), их можно найти в спецификации. Например, метод для onAction у элемента button принимает один аргумент типа IRibbonControl.

Название этого метода также не должно совпадать с названием модуля (либо необходимо явно указать имя модуля перед именем самого метода: "Module1.SayHelloWorld").

Атрибут keytip поможет в навигации с помощью клавиатуры - с помощью клавиши Alt можно осуществлять навигацию по вкладкам MS Excel.


Вы можете скопировать образец вёрстки на официальном сайте с документацией от Microsoft:

Образец customUI на docs.microsoft.com


Для тех, кто хочет подробно изучить стандарт, есть спецификация, также на docs.microsoft.com:

[MS-CUSTOMUI]: Custom UI XML Markup Specification

Обратите внимание, что при наличии не-ASCII символов (например, кириллицы) файл следует сохранить в кодировке UTF-8, иначе Вы можете столкнуться с тем, что Excel не будет отображать новую вкладку.


Чтобы MS Excel "увидел" и "понял", что за компонент мы добавили, нужно указать ссылку на него в корневом файле отношений, который лежит в папке _rels, и называется .rels

Он также имеет xml-формат, и для удобства можно отформатировать его (в VS Code для этого есть команда: Ctrl-Shift-P -> Format Document).

Добавляем элемент Relashionship, указав путь к customUI.xml, тип компонента, а также идентификатор (не имеет значения, какой именно. Главное, чтобы он был уникальным среди других элементов Relashionship):

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Добавляю текст отношения для удобства копирования (чтобы парсер не "съел" URL, добавил пробел перед .com - не забудьте его убрать при копировании)

<Relationship Id="rID4" Target="customUI/customUI.xml" Type="http://schemas.microsoft .com/office/2006/relationships/ui/extensibility" />

Теперь заархивируйте обратно все файлы, и верните исходное имя файла Sample.xlsm

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Если всё было сделано правильно, то при открытии книги Вы увидите новую вкладку на ленте:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Однако при попытке запустить макрос HelloWorld Вы можете столкнуться с таким предупреждением:

Wrong number of arguments or invalid property assignment

Это связано с тем, что функция-коллбэк должна иметь определенную сигнатуру. Так, обработчик нажатия на кнопку button должен выглядеть следующим образом:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Добавьте аргумент "rc As IRibbonControl", и Вы увидите долгожданное приветствие:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Список сигнатур можно найти на сайте документации Microsoft


Теперь осталось лишь сохранить книгу с макросами как надстройку. В редакторе VBE выберите объект ThisWorkbook и установите свойство IsAddin в значение True.

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Теперь нужно сохранить книгу в новом формате (Excel предупредит об этом, если Вы попытаетесь сохранить книгу нажатием Ctrl-S)

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Теперь надстройку можно открыть, как обычную книгу Excel. Она не будет отображаться в отдельном окне, как книга, но её можно увидеть в Project Explorer'е редактора VBE:

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Для того, чтобы надстройка была доступна сразу при запуске Excel, установите её в меню Excel Add-ins на вкладке разработчика...

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

...или через настройки Excel, в разделе Надстройки (Add-ins)

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

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

P.S. В качестве бонуса приведу примеры использования различных элементов в Custom UI

toggleButton - кнопка, которая может быть в двух состояниях

splitButton - составной компонент из button или toggleButton и выпадающего меню

dropDown - выпадающее меню с заранее определённым набором элементов

comboBox - интерактивное поле ввода, которое может содержать заранее определённый набор элементов

dynamicMenu - выпадающий список, элементы которого определяются динамически в методе getContent

checkBox - чекбокс, который может быть в двух состояниях

Туториал: создание VBA-надстройки с отдельной вкладкой в MS Excel Excel, Vba, Туториал, Вкладки, Длиннопост

Разметка и код VBA модуля ниже, также их можно найти на гитхабе


customUI.xml


<?xml version="1.0" encoding="utf-8"?>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

<ribbon>

<tabs>

<tab id="customTab" label="Sample Add-in" keytip="XT">

<group id="SampleControls" label="Group 2">

<splitButton id="splitButton" size="large" >

<button id="SplitButton" imageMso="HappyFace" label="Split Button" />

<menu id="menu">

<button id="button1" label="Button 1" onAction="OnSplitButton1Click" />

<button id="button2" label="Button 2" onAction="OnSplitButton2Click" />

</menu>

</splitButton>

<toggleButton id="ToggleButton" label="Toggle Button" onAction="OnToggleButtonClick" />

<dropDown id="DropDown" label="DropDown" onAction="OnDropDownSelected" >

<item id="DropDownItem1" label="Item 1" />

<item id="DropDownItem2" label="Item 2" />

<item id="DropDownItem3" label="Item 3" />

<button id="button" label="Button..." />

</dropDown>

<comboBox id="ComboBox" label="Combo Box" onChange="OnComboBoxSelected" >

<item id="ComboBoxItem1" label="Item 1" />

<item id="ComboBoxItem2" label="Item 2" />

<item id="ComboBoxItem3" label="Item 3" />

</comboBox>

<separator id="separator" />

<dynamicMenu id="DynamicMenu" label="Dynamic Menu" getContent="GetMenuContent" />

<checkBox id="CheckBox" label="Check Box" onAction="OnCheckBoxToggled" />

</group>

</tab>

</tabs>

</ribbon>

</customUI>

VBA модуль SampleControls

Option Explicit


Public Sub OnSplitButton1Click(rc As IRibbonControl)

MsgBox "Split button 1 was clicked"

End Sub


Public Sub OnSplitButton2Click(rc As IRibbonControl)

MsgBox "Split button 2 was clicked"

End Sub


Public Sub OnToggleButtonClick(rc As IRibbonControl, isButtonPressed As Boolean)

MsgBox "Toggle button was toggled, button now is " & IIf(isButtonPressed, "pressed", "not pressed")

End Sub


Public Sub OnDropDownSelected(rc As IRibbonControl, selectedItemId As String, selectedItemIndex As Integer)

MsgBox "DropDown was changed, selected item id is " & selectedItemId

End Sub


Public Sub OnComboBoxSelected(rc As IRibbonControl, comboBoxValue As String)

MsgBox "Combo box was changed, value is " & comboBoxValue

End Sub


Public Sub GetMenuContent(rc As IRibbonControl, ByRef returnedVal)

Dim xml As String


xml = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & _

"<button id=""but1"" imageMso=""Help"" label=""Help"" onAction=""OnHelpPressed""/>" & _

"<button id=""but2"" imageMso=""FindDialog"" label=""Find"" onAction=""OnFindPressed""/>" & _

"</menu>"


returnedVal = xml

End Sub


Public Sub OnCheckBoxToggled(rc As IRibbonControl, isButtonChecked As Boolean)

MsgBox "Check box was toggled, value is " & IIf(isButtonChecked, "checked", "not checked")

End Sub


Public Sub OnHelpPressed(rc As IRibbonControl)

MsgBox "Help button pressed"

End Sub


Public Sub OnFindPressed(rc As IRibbonControl)

MsgBox "Find button pressed"

End Sub

Более подробная информация о различных элементах Custom UI есть в документации:

Документация по элементам Custom UI от Microsoft

P.P.S. Дополнительный бонус для тех кто дочитал до конца - горячие клавиши редактора VBE

Навигация по редактору

Ctrl-R - перейти в окно проектов (Project Explorer)

F4 - перейти к свойствам

Ctrl-G - перейти к Immediate window

F7 - перейти в окно редактора кода

Ctrl-Tab (Ctrl-Shift-Tab) - переключение между открытыми окнами модулей

Ctrl-F4 -закрыть текущий модуль

Alt-F11 - открыть редактор кода VBE


Редактирование и навигация по коду

Ctrl-Space - автодополнение

Ctrl-J - показать доступные варианты (IntelliSense)

Ctrl-I - показать информацию о методе (аргументах)

Shift-F2 - перейти к определению переменной/метода


Отладка

F5 - запустить макрос/продолжить исполнение

F8 - шаг вперёд (с заходом во вложенные функции)

Shift-F8 - шаг вперёд (без захода вглубь)

F9 - установить/снять точку останова (breakpoint)

Shift-F9 - добавить наблюдателя (quick watch)

Ctrl-L - показать стек вызовов (кликабельный)

Показать полностью 14
610

Отключение защищенного просмотра в MS Office

Для тех, кого раздражает при постоянной работе с документами нажимать "Разрешить редактирование". Это можно отключить. Для этого идем по пути: Файд - Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Защищенный просмотр и снимаем все галки. Для наглядности прикрепил пошаговые скрины. Причем проделать это нужно в каждом приложении MS Office.


P.S.Для тех, кто беспокоится о безопасности, делать этого не рекомендую. Но на работе используем только внутреннюю интранет-сеть, поэтому опасаться нечего.

Отключение защищенного просмотра в MS Office Ms Office, Microsoft Word, Excel, Miscrosoft Excel, Длиннопост
Отключение защищенного просмотра в MS Office Ms Office, Microsoft Word, Excel, Miscrosoft Excel, Длиннопост
Отключение защищенного просмотра в MS Office Ms Office, Microsoft Word, Excel, Miscrosoft Excel, Длиннопост
Отключение защищенного просмотра в MS Office Ms Office, Microsoft Word, Excel, Miscrosoft Excel, Длиннопост
Отключение защищенного просмотра в MS Office Ms Office, Microsoft Word, Excel, Miscrosoft Excel, Длиннопост
Показать полностью 3
Мои подписки
Подписывайтесь на интересные вам теги, сообщества,
пользователей — и читайте персональное «Горячее».
Чтобы добавить подписку, нужно авторизоваться.
Отличная работа, все прочитано!