Создание пользовательской формы VBA.
Далее, мы будем использовать так называемое визуальное программирование с помощью стандартных элементов управления (кнопка, строка редактирования, полоса прокрутки и т.д.). Наши программы будут обрабатывать события (например, щелчок мышью на элементе управления) связанные с этими элементами управления.
Пользовательская форма создается при помощи Insert-User Form.
Рис.4.
Затем на нее мышью перемещаются элементы управления с палитры Toolbox.
Элемент управления CommandButton (кнопка),
Элемент управления CommandButton (кнопка) — самый распространенный элемент управления в формах (см. рис. 4).
Рис.4
Кнопки (объект CommandButton) на форме
Нажав мышью на кнопке (DoubleClick), мы попадаем в процедуру обработки события Click.
Рис.5
Самые важные свойства кнопки:
Cancel — если для него установить значение True, то это значит, что кнопка будет нажиматься при нажатии на клавишу . Как правило, на такие кнопки помещаются надписи типа "Отмена", "Выход", "Вернуться в окно приложения". Однако кроме назначения клавише , ничего больше этой кнопке такое свойство не дает. Необходимо будет еще добавить код в обработчик события Click, например, такой:
Caption — надпись, которая будет на кнопке;
Default — такая кнопка будет считаться нажатой, если пользователь нажал на клавишу , а фокус находился в другом месте формы (но не на другой кнопке). Обычно такие кнопки являются главными, по которым выполняется действие, ради которого создавалась форма (печать отчета, занесение информации в базу данных, отправка почты и т.п.);
Picture — если просто надпись вас не устраивает, можно назначить кнопке рисунок;
TakeFocusOnClick — будет ли передаваться управление этой кнопке при нажатии на нее. По умолчанию True.
Элемент управления TextBox
Текстовое поле (TextBox) — один из самых часто используемых элементов управления
Рис. 6
Текстовое поле (элемент управления TextBox) на форме
Текстовое поле используется:
для приема каких-либо текстовых данных, вводимых пользователем или для вывода пользователю текстовых данных с возможностью их редактирования (из базы данных, листа Excel и т.п.);
для вывода пользователю текстовых данных с возможностью копирования и печати, но без возможности изменения (классический пример — текст лицензионного соглашения).
Некоторые важные свойства этого элемента управления:
Value (или Text, эти два свойства для текстового поля идентичны) — то текстовое значение, которое содержится в этом поле.
AutoSize — возможность для текстового поля автоматически менять свой размер, чтобы вместить весь текст.
ControlSource — ссылка на источник текстовых данных для поля. Может ссылаться, например, на ячейку в Excel, на поле в Recordset и т.п.
ControlTipText — текст всплывающей подсказки, которая появляется, когда пользователь наводит указатель мыши на элемент управления.
Enabled — если переставить в False, то текст в поле станет серым и с содержимым поля ничего сделать будет нельзя (ни ввести текст, ни выделить, ни удалить).
Locked — поле будет выглядеть как обычно, пользователь сможет выделять и копировать данные из него, но не изменять их.
MaxLength — максимальная длина значения, которое можно ввести в поле. Иногда можно использовать свойство AutoTab — при достижении определенного количества символов управление автоматически передается другому элементу управления.
MultiLine — можно ли использовать в текстовом поле несколько строк или необходимо обойтись одной. Если вам нужно текстовое поле для приема
PasswordChar — указать, за каким символом будут "прятаться" вводимые пользователем значения. Используется, конечно, при вводе пароля.
ScrollBars — будут ли показаны горизонтальная и вертикальная полосы прокрутки (в любом сочетании). Если текст может быть большим, без них не обойтись.
WordWrap — настоятельно рекомендуется включать в тех ситуациях, когда значение MultiLine стоит в True. В этом случае будет производиться автоматический переход на новую строку при достижении границы текстового поля.
Главное событие для текстового поля — это событие Change (то есть изменение содержания поля). Редактирование этого события вызывается двойным щелчком.
Рис. 7
Элемент управления ComboBox
Комбинированный список также используется очень часто. Этот элемент управления позволяет пользователю как выбирать "готовые" значения из списка, так и вводить значения самостоятельно (хотя это можно запретить)
Элемент управления ListBox
Основные свойства, методы и события у ListBox — те же, что и у ComboBox. Главное отличие — то, что имеется свойство MultiSelect, которое позволяет пользователю выбирать несколько значений. По умолчанию это свойство отключено.
Пример программы с использованием операторов ветвления.
Поместим на форме кнопку и напишем в обработке события Click (см. рис.4) следующую программу:
Рис 8.
Затем, возвращаемся в лист Excel, пишем числа в ячейках A1,B1,C1 (то есть cells(1,1), cells(1,2),cells(1,3)) и нажимаем Enter. Переходим в редактор Visual Basic и запускаем программу через пункт меню Run.
Рис 9.
Программа находит наибольшее число из трех.
Варианты задания 1.
Внести координаты центра окружности, ее радиус и координаты точки, проверить лежит ли точка внутри окружности.
Внести координаты 3 точек, проверить принадлежат ли точки одной прямой.
Внести координаты 3 точек, проверить лежат ли точки внутри окружности с центром в начале координат и радиусом 2.
Внести координаты 3 точек, найти точку наименее удаленную от начала координат.
Внести координаты 4 точек, найти точку наименее удаленную от первой.
Внести координаты 3 точек (вершин треугольника), найти сторону с наименьшей длиной.
Внести координаты 4 точек, найти точку наиболее удаленную от второй точки.
Внести координаты 3 точек (вершин треугольника), найти сторону с наибольшей длиной.
Внести координаты 3 точек (вершин треугольника), найти наибольший угол.
Внести координаты 3 точек (вершин треугольника), найти наибольшую высоту.
Внести 3 числа (длины отрезков), проверить можно ли из них построить треугольник.
Внести 4 числа, проверить образуют ли любые три из них арифметическую прогрессию.
Внести 4 числа, проверить образуют ли любые три из них геометрическую прогрессию.
Внести 4 числа, проверить образуют ли любые три из них последовательность Фибоначчи.
Внести 3 числа, проверить, не равно ли одно из них кубу другого.
Внести 3 числа, проверить, не равно ли одно из них квадрату суммы двух других.
Внести 3 числа, расположить их в порядке возрастания.
Внести 3 числа, расположить их в порядке убывания.
Внести 4 числа, проверить образуют ли любые три из них длины сторон прямоугольного треугольника.
Внести 5 чисел, проверить образуют ли любые четыре из них длины сторон параллелограмма.
Пример программы с использованием операторов цикла For.
Рис 10.
Рис 11.
Программа берет n чисел из первого столбца и записывает четные числа во второй столбец, а нечетные в третий.
Рассмотрим еще примеры важных программ нахождения суммы и минимума массива чисел.
Рис 12.
Рис 13.
Варианты задания 2.
Найти наибольшее число из заданного количества чисел.
Найти наибольшее четное число из заданного количества чисел.
Найти среднее арифметическое из заданного количества чисел.
Найти среднее геометрическое из заданного количества чисел.
Найти среднее арифметическое нечетных чисел из нескольких.
Найти среднее арифметическое элементов массива с нечетными индексами.
Найти сумму чисел делящихся на 3 из некоторых чисел.
Найти среднее арифметическое отрицательных из нескольких чисел.
Найти среднее арифметическое отрицательных из нескольких чисел.
Найти все квадраты целых чисел из нескольких целых.
Найти наибольшее число из отрицательных в массиве целых чисел.
Найти наименьшее число из положительных в массиве целых чисел.
Вывести все числа, делящиеся на 5 из массива целых чисел.
Вывести все четные отрицательные числа из массива целых чисел.
Найти сумму всех отрицательных четных чисел из массива целых чисел.
Найти произведение всех отрицательных нечетных чисел из массива целых чисел.
Найти сумму всех чисел, делящихся на 3 или на 5 из массива целых чисел.
Каждые 2 числа из массива целых чисел переставить местами (1со 2, 3 с 4).
В массиве целых чисел первое переставить с последним числом, второе с предпоследним и т.д.
Каждые 3 числа из массива целых чисел циклически переставить местами.
Пример программы с использованием пользовательской функции.
Рис 14.
Рис 15.
Варианты задания 3.
Найти с помощью функции факториал заданного числа.
Найти с помощью функции степень ab.
Написать функцию, определяющую кратность двух целых аргументов.
Написать функцию, определяющую остаток от деления двух целых аргументов.
Написать функцию, определяющую максимум из трех целых аргументов.
Написать функцию, переводящую рубли в доллары.
Написать функцию, переводящую угловую меру радиан в градусы.
Написать функцию, переводящую угловую из градусов в радианы.
Написать функцию, переводящую градусы Цельсия в градусы Фаренгейта.
Написать функцию, находящую логарифм по произвольному основанию.
Написать функцию, которая находит сторону треугольника по двум другим и углу между ними.
Написать функцию, которая находит площадь треугольника по двум сторонам и углу между ними.
Написать функцию, которая находит площадь треугольника по трем сторонам.
Написать функцию, находящую корни квадратного уравнения.
Написать функцию, которая находит n-ое число Фибоначчи.
Написать функцию, которая находит углы при катетах треугольника по их величинам.
Написать функцию, находящую произвольную степень 2-ки.
Написать функцию, проверяющую является ли число кубом целого числа.
Написать функцию, проверяющую является ли число квадратом целого числа.
Написать функцию, находящую число сочетаний из N по m.
|
