- •Введение Она носила усы, и считала себя тигрицей.
- •Объектно-ориентированное программирование
- •Обзор типов данных vba
- •Типы данных vba
- •Переменные
- •Константы
- •Математические функции
- •1.2. Редактор vba. Первое знакомство Запуск редактора vba
- •Создание простейших программ
- •1.3. Изменение порядка выполнения операторов Операторы и выражения
- •Арифметические операторы
- •Символы совпадения с образцом для оператора Like
- •Логические операторы
- •Изменение порядка выполнения операторов
- •Повторение действий: циклы
- •Глава 2 Объект UserForm
- •2.1. Свойства и методы объекта UserForm Свойства объекта UserForm
- •Задачи на закрепление материала
- •Глава 3 Массивы, процедуры, функции
- •3.1. Организация массивов Одномерные массивы
- •Двумерные массивы
- •3.2. Работа с различными типами данных Тип, определяемый пользователем
- •Перечисляемый тип
- •Приведение и преобразование типов
- •Функции преобразования типов
- •Операции со строками
- •Функции работы со строками
- •3.3. Процедуры и функции vba Описание процедур и функций vba
- •Объявление процедуры инициализации массива
- •Объявление функции, подсчитывающей сумму любого числа аргументов
- •Вызов подпрограмм и функций
- •Макросы
- •Редактирование программного кода макроса в редакторе Visual Basic
- •Задачи на закрепление материала
- •Глава 4 Создание vba-программ
- •4.1. Элемент управления ListBox
- •Задачи на закрепление материала
- •Дополнительные задания
- •4.2. Элементы управления ComboBox, OptionButton и Frame Поле со списком
- •Переключатель и рамка
- •Задачи на закрепление материала
- •4.3. Элементы управления MultiPage, ScrollBar, SpinButton Коллекция Controls
- •Набор страниц MultiPage
- •Значения свойства TabOrientation
- •Полоса прокрутки ScrollBar
- •Счетчик SpinButton
- •4.4. Объект DataObject Описание объекта DataObject
- •Перемещение объектов. Реализация технологии DragAndDrop
- •Свойства объекта Word.Application
- •Работа с документами и класс Document
- •События объекта Document
- •Документ и его части
- •Объекты Range и Selection
- •Работа с текстом
- •5.2. Форматирование документа Работа с текстом(продолжение)
- •Создание кнопки или панели в Word
- •Задачи на закрепление материала
- •Заявление
- •При поездке на дачу, находящуюся на расстоянии 55 км, при цене бензина за литр 18,50 руб., потребление бензина составит 101,75 руб.
- •Отчет о доходе
- •Глава 6 Автоматизация стандартных документов
- •6.1. Встроенные диалоговые окна Диалоговые окна
- •Значения аргумента кнопки процедуры MsgBox
- •Значения аргумента кнопки процедуры MsgBox
- •Задачи на закрепление материала
- •6.2. Создание и автоматическое заполнение бланков стандартных документов Создание vba-программ
- •Задача на закрепление материала
- •Свойства объекта Range
- •Методы объекта Range
- •Методы объекта Range, использующие команды Excel
- •Округление чисел
- •Приведение данных
- •Создание vba-программ
- •Использование методов AutoFill при заполнении таблиц
- •7.2. Использование возможностей vba при непосредственных расчетах Создание vba-программ
- •Отклонение фактического уровня издержек обращения от плана за месяц _________________ 20__ г.
- •Задачи на закрепление материала
- •7.3. Финансовые функции Расчет амортизации
- •Общие параметры функций для расчетов амортизации
- •Создание vba-программы
- •Задача на закрепление материала
- •Глава 8 Построение диаграмм средстами vba
- •8.1. Построение гладких диаграмм Диаграммы в Excel
- •Создание vba-программы
- •8.2. Построение круговых диаграмм и гистограмм Создание vba-программ
- •Глава 9 Базы данных в Excel
- •9.1. Заполнение базы данных Элементы управления
- •Создание vba-программы
- •Задача на закрепление материала
- •9.2. Конструирование пользовательского интерфейса Создание vba-программы
- •Конструирование интерфейса. Презентация
- •Задача на закрепление материала
- •Глава 10 Создание собственного головного меню
- •Создание меню с помощью vba
- •Фрагмент таблицы идентификаторов встроенных команд меню
- •Литература
Задачи на закрепление материала
Пример 16. Создать программу, рассчитывающую значения выражений в зависимости от выбранного переключателя на форме и введенных значений в текстовые поля. Основная программа после нажатия на кнопку Вычислитьвызывает процедуру Shet,рассчитывающую все необходимые выражения. После нажатия на кнопку Закрытьразработанное приложение закрывается (рис. 34). Примечание.При разработке данной формы используется новый элемент Переключатель
(optionButton), который позволяет выбрать один из нескольких взаимоисключающих параметров или действий. Наиболее часто используемые свойства элемента управления OptionButton: value – возвращает True, если переключатель выбран, и False в противном случае; enabled – допустимые значения: Тrue (пользователь может выбрать переключатель) и False (в противном случае); visible – допустимые значения: Тrue (переключатель отображается во время выполнения программы) и False (в противном случае); caption – надпись, отображаемая рядом с переключателем.
Рис. 34.Форма примера 16 в режиме конструктора и рабочем состоянии Технология выполнения 1. Откройте приложение Word, сохраните документ и перейдите в редактор VBA. 2. Создайте форму (рис. 34). 3. Пропишите обработчики событий кнопок Закрытьи Вычислить. Объявление глобальных переменных
Dim a, b, c, k, l, m As Double
Создание процедуры Shet
Sub shet() a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) k = a * b + b / c l = Sin(a) + (b + c) ^ 2 m = a + b + c End Sub
Кнопка Вычислить
Private Sub CommandButton1_Click() Call shet If OptionButton1.Value = True Then Label5.Caption = «a*b+b/c=» & k End If If OptionButton2.Value = True Then Label5.Caption = «sin(a)+(b+c)^2=» & l End If If OptionButton3.Value = True Then Label5.Caption = «a+b+c=» & m End If End Sub
Кнопка Закрыть
Private Sub CommandButton2_Click() Unload Me End Sub
4. Откомпилируйте программу. 5. Запустите форму на выполнение. Пример 17. Создать программу, выполняющую следующее: при вводе имени пользователя, среднего балла и числа пропусков в соответствующие текстовые поля формы: •если средний балл от 4 до 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы в поощрительном списке у директора!» (рис. 35); •если средний балл меньше 4 и число пропусков больше 100, то выдается сообщение: «Имя, Вы еще учитесь здесь?». При другом раскладе выдумайте свое сообщение.
Рис. 35.Форма примера 17 в рабочем состоянии Примечание.Можно использовать различные варианты построения данной программы, один из них – использование инструкций If else или Select case. Пример 18. Создать программу, выполняющую следующее: при вводе имени пользователя, среднего балла студента в текстовые поля формы и выбора числа пропусков: •если средний балл 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы молодец! У Вас меньше 100 часов пропуска и … средний балл»; •если средний балл от 4 до 5 и число пропусков меньше 150, то выдается сообщение: «Имя, хорошо! У Вас меньше 150 часов пропуска и … средний балл» (рис. 36); •если средний балл от 3 до 4 и число пропусков до 200, то выдается сообщение: «Имя, надо лучше! У Вас до 200 часов пропуска и … средний балл»; •если средний балл от 2 до 3 и число пропусков больше 200, то выдается сообщение: «Имя, плохо! У Вас больше 200 часов пропуска и … средний балл». При другом раскладе выдумайте свое сообщение.
Рис. 36.Форма примера 18 в рабочем состоянии Пример 19. Создать программу, выполняющую следующее: при вводе имени пользователя и возраста в текстовые поля формы, выбора среднего балла и числа пропусков: •если средний балл 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы молодец! У Вас меньше 100 часов пропуска, средний балл равен 5, и Вам всего … лет!»; •если средний балл от 4 до 5, число пропусков меньше 150, то приложение выдает сообщение: «Имя, Вы молодец! У Вас меньше 150 часов пропуска, средний балл от 4 до 5, и Вам всего … лет!» (рис. 37); •если средний балл от 3 до 4, число пропусков меньше 200, то приложение выдает сообщение: «Имя, надо лучше! У Вас до 200 часов пропуска и средний балл от 3 до 4, и Вам уже … лет!»; •если средний балл от 2 до 3, число пропусков больше 200, то приложение выдает сообщение: «Имя, плохо! У Вас больше 200 часов пропуска, средний балл от 2 до 3, и Вам уже … лет!». Примечание.Предусмотреть выбор переключателей в произвольном порядке и прописать это в коде. При другом раскладе выдумайте свое сообщение.
Рис. 37.Форма примера 19 в рабочем состоянии