Офисное программирование
Добавить в закладки К обложке
- Введение - Страница 1
- Часть IОсноные седения о программироании на VBA - Страница 2
- 1.2. Редактор VBA. Первое знакомство - Страница 7
- 1.3. Изменение порядка выполнения операторов - Страница 9
- Глава 2Объект UserForm - Страница 14
- 2.2. Использование форм - Страница 16
- Глава 3Массивы, процедуры, функции - Страница 20
- 3.2. Работа с различными типами данных - Страница 24
- 3.3. Процедуры и функции VBA - Страница 26
- Глава 4Создание VBA-программ - Страница 31
- 4.2. Элементы управления ComboBox, OptionButton и Frame - Страница 34
- 4.3. Элементы управления MultiPage, ScrollBar, SpinButton[2] - Страница 37
- 4.4. Объект DataObject[3] - Страница 41
- Часть IIПрограммирование на VBA в Word - Страница 44
- 5.2. Форматирование документа - Страница 48
- Глава 6Автоматизация стандартных документов - Страница 52
- 6.2. Создание и автоматическое заполнение бланков стандартных документов - Страница 55
- Часть IIIПрограммирование на VBA в Excel - Страница 58
- 7.2. Использование возможностей VBA при непосредственных расчетах - Страница 63
- 7.3. Финансовые функции - Страница 67
- Глава 8Построение диаграмм средстами VBA - Страница 69
- 8.2. Построение круговых диаграмм и гистограмм - Страница 72
- Глава 9Базы данных в Excel - Страница 73
- 9.2. Конструирование пользовательского интерфейса - Страница 76
- Глава 10Создание собственного головного меню[9] - Страница 78
- Литература - Страница 83
Фамилия =.TextBox1.Text
Имя =.TextBox2.Text
Срок =.TextBox3.Text
Пол = IIf(.OptionButton1.Value, «Муж», «Жен»)
Оплачено = IIf(.CheckBox1.Value, «Да», «Нет»)
Фото = IIf(.CheckBox2.Value, «Да», «Нет»)
Паспорт = IIf(.CheckBox3.Value, «Да», «Нет»)
ВыбранныйТур =.ComboBox1.List(.ComboBox1.ListIndex, 0)
End With
'Ввод данных в строку с номером НомерСтроки рабочего листа
With ActiveSheet
Cells(НомерСтроки, 1).Value = Фамилия
Cells(НомерСтроки, 2).Value = Имя
Cells(НомерСтроки, 3).Value = Пол
Cells(НомерСтроки, 4).Value = ВыбранныйТур
Cells(НомерСтроки, 5).Value = Оплачено
Cells(НомерСтроки, 6).Value = Фото
Cells(НомерСтроки, 7).Value = Паспорт
Cells(НомерСтроки, 8).Value = Срок
End With
End Sub
В приведенной процедуре для определения первой пустой строки в заполняемой базе данных о туристах используется инструкция
НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1,
правая часть которой вычисляет число непустых ячеек в первом столбце активного рабочего листа. Переменной НомерСтроки присваивается значение на единицу большее, чем число непустых строк, что естественно, так как ей должен быть присвоен номер первой непустой строки базы данных. Подобные инструкции довольно часто используются при разработке приложений, поэтому следует обратить на них внимание.
Private Sub SpinButton1_Change()
'Процедура ввода значения счетчика в поле ввода
With UserForm1
TextBox3.Text = CStr(.SpinButton1.Value)
End With
End Sub
Private Sub TextBox3_Change()
'Процедура установки значения счетчика из поля ввода
With UserForm1
SpinButton1.Value = CInt(.TextBox3.Text)
End With
End Sub
Private Sub CommandButton2_Click()
'Процедура закрытия диалогового окна
UserForm1.Hide
Application.Caption = Empty
'Установка заголовка окна приложения по умолчанию
End Sub
Private Sub UserForm_Initialize()
'Процедура вызова диалогового окна
'и задание элементов раскрывающегося списка
'Задание пользовательского заголовка окна приложения
Application.Caption = «Регистрация. База данных туристов фирмы 'Балашов-Тур'»
Application.DisplayFormulaBar = False 'Закрытие строки формул окна Excel
With CommandButton1
Default = True
ControlTipText = «Ввод данных в базу данных»
End With
With CommandButton2
Cancel = True
ControlTipText = «Кнопка отмены»
End With
OptionButton1.Value = True
With ComboBox1
'Задание элементов раскрывающегося списка
List = Array(«Лондон», «Париж», «Берлин»)
ListIndex = 0
End With
'Задание начального и минимального значений счетчика и вывод текста
SpinButton1.Value = 1
SpinButton1.Min = 1
ЗаголовокРабочегоЛиста
UserForm1.Show
'Активизация диалогового окна
End Sub
Sub ЗаголовокРабочегоЛиста()
'Процедура создания заголовков полей базы данных
If Range(«A1»).Value = «Фамилия» Then Range(«A2»).Select Exit Sub 'Если заголовки существуют, то досрочный выход из процедуры
End If 'Если заголовки не существуют, то создаются заголовки полей
ActiveSheet.Сеlls.Clear
Range(«A1:H1»).Value = Array(«Фамилия», «Имя», «Пол», «Выбранный Тур», «Оплачено», «Фото», «Паспорт», «Срок»)
Range(«А: А»).ColumnWidth = 12
Range(«D: D»).ColumnWidth = 14.4
Range(«2:2»).Select
'Закрепляется первая строка с тем, чтобы она всегда отображалась на экране
ActiveWindow.FreezePanes = True
Range(«A2»).Select
'К каждому заголовку поля базы данных присоединяется примечание
Range(«Al»).AddComment
Range(«A1»).Comment.Visible = False
Range(«A1»).Comment.Text Text:="Фамилия клиента"
Range(«B1»).AddComment
Range(«B1»).Comment.Visible = False
Range(«B1»).Comment.Text Техt:="Имя клиента"
Range(«C1»).AddComment
Range(«C1»).Comment.Visible = False
Range(«C1»).Comment.Text Text:="Пол клиента"
Range(«D1»).AddComment
Range(«D1»).Comment.Visible = False
Range(«D1»).Comment.Text Text:="Направление" & Chr(lO) & «выбранного тура»
Range(«E1»).AddComment
Range(«E1»).Comment.Visible = False