- •Офисное программирование Введение
- •Часть I. Основные сведения о программировании на vba Глава 1. Типы данных, условные операторы и массивы vba
- •1.1. Введение в vba. Типы данных
- •Объектно-ориентированное программирование
- •Обзор типов данных vba
- •Переменные
- •Константы
- •1.2. Редактор vba. Первое знакомство Запуск редактора vba
- •Создание простейших программ
- •1.3. Изменение порядка выполнения операторов Операторы и выражения
- •Арифметические операторы
- •Символы совпадения с образцом для оператора Like
- •Логические операторы
- •Изменение порядка выполнения операторов
- •Повторение действий: циклы
- •Глава 2 Объект UserForm
- •2.1. Свойства и методы объекта UserForm Свойства объекта 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[2] Коллекция Controls
- •Набор страниц MultiPage
- •Значения свойства TabOrientation
- •Полоса прокрутки ScrollBar
- •Счетчик SpinButton
- •4.4. Объект DataObject[3] Описание объекта DataObject
- •Перемещение объектов. Реализация технологии DragAndDrop
- •Свойства Calendar
- •Свойства объекта 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 Создание собственного головного меню[9]
- •Создание меню с помощью vba
- •Фрагмент таблицы идентификаторов встроенных команд меню
- •Литература
- •Приложение 1. Функции vba
- •Математические функции
- •Функции преобразования данных
- •Функции даты и времени
- •Строковые функции
- •Примечания
Использование методов AutoFill при заполнении таблиц
Пример 42. Создать программу, которая по введенным текстовым данным в соотвествующие текстовые поля формы автоматизирует ввод данных на студентов некоторой специальности учебного заведения. Результаты заполнения текстовых полей выводятся на лист excel, что позволяет при необходимости распечатать данные.
Технология выполнения
1. Запустите приложение Excel, сохраните документ.
2. Перейдите в редактор VBA. Создайте форму согласно приведенному рис. 94.
Рис. 94. Разработанная форма примера 42 в режиме конструктора
3. На листе Excel расположите необходимый текст (оформление), предусмотрев соответствующие ячейки вывода информации (рис. 95).
Рис. 95. Вывод результатов на лист excel после запуска формы
4. Обработайте кнопки.
Кнопка Создать таблицу
Const strNomer = 3 количество строк для заголовка
Dim strName1 As String 'строка для адресации ячеек
Dim strName2 As String
DimNomer As Long номер очередной строки таблицы
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs («работа с базой данных. xls»)
nomer = 1 End Sub
Кнопка Добавить строку
Private Sub CommandButton2_Click()
strName1 = Trim(Str(strNomer +Nomer))
With ActiveSheet 'ввод данных для новой отчетной таблицы
Range("A" + strName1).Value =Nomer
Range("B" + strName1).Value = TextBox1.Text
Range("C" + strName1).Value = TextBox2.Text
Range("D" + strName1).Value = TextBox3.Text
'автозаполнение с текущей строки таблицы
strName2 = Trim(Str(strNomer +Nomer + 1))
Set range1 =.Range("A" + strName1 +":D" + strName1)
Set range2 =.Range("A" + strName1 +":D" + strName2)
range1.AutoFill Destination:=range2
Range("A" + strName2 +":D" + strName2).Clear
End With
' очистка полей формы для ввода очередной записи
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
nomer =Nomer + 1
End Sub
Кнопка Закончить таблицу
Private Sub CommandButton3_Click()
'закрытие формы подведение итогов и вывод фамилии преподавателя
UserForm1.Hide
With ActiveSheet
strName2 = Trim(Str(strNomer +Nomer + 2))
Range("A" + strName2).Value = «классный руководитель»
Range("D" + strName2).Value = TextBox4.Text
End With
End Sub
5. Откомпилируйте программу и запустите на выполнение.
Пример 43. Разработать программу, которая по введенным переменным в соответствующие поля формы решает простейшее линейное уравнение y = a*x + b*x, находит неизвестную переменную х и выводит результат вычислений на рабочий лист Excel.
Пример 44. Разработать программу, которая по введенным переменным в соответствующие поля формы решает уравнение вида y = a*x^3 + 3b*sinx, находит неизвестную переменную х и выводит результат вычислений на рабочий лист Excel.
Пример 45. Разработать программу, которая по введенным переменным в соответствующие поля формы решает уравнение вида y = 5a*x^1/3 + 3b*tg4x, находит неизвестную переменную х и выводит результат вычислений на рабочий лист Excel.
Пример 46. Разработать программу, которая по введенным переменным в соответствующие поля формы решает уравнение вида y = ln(a*x^3) + 3b*cos(e^x), находит неизвестную переменную х и выводит результат вычислений на рабочий лист Excel.