ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Создание элементов управления интерфейса на листах MS Excel
Помимо использования стандартных возможностей, многие удачно реализованные на Excel проекты имеют удобный, максимально приспособленный для решения конкретной задачи интерфейс. Это можно осуществить, используя средства VBA.
Пример.
На ЛистеЗ поместить кнопку, при нажатии которой вызывается калькулятор из стандартных программ Windows.
Перейдем на ЛистЗ, активизируем панель инструментов Элементы управления и нажав на ней кнопку Режим конструктора переведем MS Excel
в режим конструктора. Перетащим мышью элемент Кнопка на лист в нужное местоположение. На поверхности кнопки будет автоматически отображена надпись CommandButtonl.
Нажмем кнопку Свойства на панели инструментов Элементы управления и изменим значения некоторых свойств Кнопки:
• Caption - введем надпись «Калькулятор»,
• Font - увеличим размер шрифта и установим его жирность,
• BackColor - установим красный цвет шрифта,
• ForeCblor - установим желтый цвет фона кнопки.
Нажмем кнопку Исходный текст на панели инструментов, в результате откроется редактор VBA, причем в окне кода автоматически будут создана первая и последняя инструкции обработки события Click кнопки, генерируемого при ее нажатии. Добавим строку вызова функции Shell(...), которая будет запускать на выполнение программу калькулятора calc.exe
|
| Private Sub CommandButtonl click() MyAppID = Sheiil(“C:\Windows\System32\calc.exe'r) End:Sub |
Замечание. Если функция Shell успешно запускает исполняемый файл, она возвращает ID запущенной программы - уникальный номер, который идентифицирует выполняемую программу. В противном случае, если функция Shell не может запустить программу, она возвращает значение МуАррID=0.
На ЛистеЗ получаем результат нажатия кнопки:
Упражнение
На Листе1 поместить кнопку, при нажатии которой активным становился бы Лист2 и выполнялся бы макрос примера 8.1.
Замечание. Для запуска макроса можно использовать метод Run(...).
Не нашли, что искали? Воспользуйтесь поиском: