Офисное программирование
Добавить в закладки К обложке
- Введение - Страница 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
Процедура нажатия кнопки Вычислить
Private Sub CommandButton1_Click ()
Dim i As Integer
Dim n As Integer
Dim Сумма As Double
Dim Произведение As Double
Dim Среднее As Double
Dim Результат As Double
' При выборе первого переключателя вычисляется сумма
If OptionButton1.Value = True Then
Сумма = 0
With ListBox1
For i = 0 To.ListCount – 1
If.selected(i)=true then
Сумма = Сумма +.List(i)
End if
Next i
End With
Результат = Сумма
End If
' При выборе второго переключателя вычисляется произведение выбранных элементов
If OptionButton2.Value = True Then
Произведение = 1
With ListBox1
For i = 0 To.ListCount – 1
If.Selected(i)=True Then
Произведение = Произведение *.List(i)
End if
Next i
End With
Результат = Произведение
End If
' При выборе третьего переключателя вычисляется среднее арифметическое
If OptionButton3.Value = True Then
Среднее = 0
n = 0
With ListBox1
For i =0 To.ListCount – 1
If.Selected(i)=True Then
n=n+1
Среднее = Среднее +.List(i)
End if
Next i
End With
Результат = Среднее /n
End If
' Полученное значение Результат выводится в текстовое поле
TextBox1.Text = CStr(Format(Результат, «Fixed»))
End Sub
Процедура нажатия кнопки «Закрыть»
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Процедура инициализации диалогового окна заключается в заполнении списка и выводе его на форме, организации всплывающих подсказок, запрещении ввода текста в поле результата на форме.
Private Sub UserForm_Initialize()
With ListBoxl
List = Array(1, 3, 4, 5, 6, 7, 8, 10)
Listlndex = 0 'начальная индексация массива
MultiSelect=fmMultiSelectMulti
End With
' Первоначальный выбор переключателя Сумма при инициализации диалогового окна и задание текста всплывающих подсказок у переключателей With OptionButton1.Value = True
ControlTipText ="Сумма выбранных элементов"
End With
OptionButton2.ControlTipText ="Произведение выбранных элементов"
OptionButton3.ControlTipText = «Среднее значение выбранных элементов»
' Поле Результат не доступно для пользователя
TextBox1.Enabled = False
' Назначение клавише <Enter> функции кнопки Вычислить и задание текста всплывающей подсказки
With CommandButton1
Default = True
ControlTipText = «Нахождение результата»
End With
' Назначение клавише <Esc> функции кнопки Закрыть и задание текста всплывающей подсказки
CommandButton2.Cancel = True
' Задание заголовка пользовательской формы
UserForm1.Caption = «Операции над элементами списка»
UserForm1.Show
End Sub
Примечание. Интересной особенностью приводимой процедуры инициализации UserForm_initialize является то, что заголовок диалогового окна вводится программно при помощи свойства Caption, а не вручную при помощи окна Properties.
Пример 23. Разработать программу нахождения среднего балла студентов, выбранных из списка в диалоговом окне «Средний балл». Список содержит фамилию студента и его средний балл (двумерный массив) (рис. 41).
Рис. 41. Разработанная форма примера 23 в рабочем состоянии
Дополнительно для каждого элемента управления следует прописать процедуры для осуществления всплывающих подсказок.
При выполнении задания опирайтесь на приводимые ниже примечания.
Примечание. Обратите внимание на то, что в отличие от примера 22 данный пример требует ввода двумерного списка: столбца фамилий и столбца оценок. Фактически разница заключается лишь в том, что в приведенном примере массив ListBoxl.List, отвечающий за список элементов, был одномерным, а в данном случае должен быть двумерным. Сделать это можно двумя способами:
• непосредственно заполнить двумерный массив ListBoxl.List;
• задать произвольный двумерный массив, а затем присвоить его значение для ListBoxl.List (см. п. 3.1 и 4.1).
В конце февраля 2009 года в продаже на Amazon появил
Электронная читалка - вещь очень хрупкая. Если с ней обращаться не правильно - она может сломаться. Чтобы этого не случилось, нужно придерживаться лиш
Большинство книг в сети интернет распространяется в формате FB2 (Fiction Book). Этот формат очень удобен для чтения. Файлы, в нем созданные, отличаютс
Популярность электронных книг у читателей неуклонно растет. Для доказательства этого мы провели маленький эксперимент. Из 10 людей, читающих в метро,
Файлы формата FB2 часто можно увидеть среди огромнейшего разнообразия текстовых форматов. Такая высокая популярность объясняется его предназначением.
Первую версию формата PDF (Portable Document Format) еще в 1993 году разработала фирма Adobe Systems. В 2006 году она уже разработала версию 1.7, а с
Фирма Apple порадовала пользователей iPad, выпустив под него красивую и удобную читалку iBooks.