End With

With ListBox1

Dim A(2, 1) As String

End With

With ListBox1

End With

With ListBox1

Dim a(1 To 2) As Integer

B)

End With

With ListBox1

End With

With ListBox1

.AddItem "Июнь"

.AddItem "Июль"

.AddItem "Август"

2 Массивом, если список состоит из одной колонки

a)

.List = Array("Июнь", "Июль", "Август")

a(1) = 1: a(2) = 2

ListBox1.List = a

3 Из диапазона, в который предварительно введены элементы списка. Результат выбора (индекс выбранной строки) выводится в ячейку С1:

.ColumnCount=2

.RowSource=" A1:B4"

. ControlSource="C1"

4 Поэлементно, если список состоит из нескольких колонок, например двух:

.ColumnCount =2

.AddItem “Июнь”

.List(0,1)= “Сессия”

.AddItem “Июль”

.List(1,1)= “Каникулы”

.AddItem “Август”

.List(2,1)= “Каникулы”

5 Массивом если список состоит из нескольких колонок, например двух:

А(0, 0) = "Июнь”: А(0, 1) = “Сессия”

А(1, 0) = "Июль”: А(1, 1) = “Каникулы”

А(2, 0) = " Август ”: А(2, 1) = “Каникулы”

.ColumnCount =2

.List=A

Пример 1 (ListBox). Создадим приложение, которое позволит подсчитать сумму или произведение выбранных в списке чисел.

Перейдем в VBA и, выполнив команду Insert (Вставка) ® UserForm, добавим в проект форму. Расположим на форме следующие элементы управления

Рисунок 16 – Проектируемая пользовательская форма

Frame1 (рамка) используется для визуальной группировки элементов. Свойство Caption – отображает надпись рамки.

OptionButton (переключатель) – позволяет выбрать один из нескольких взаимоисключающих параметров. Переключатели обычно отображаются группами, обеспечивая возможность выбора альтернативного варианта. Свойство Caption – отображает надпись рядом с переключателем. Свойство Value возвращает True, если переключатель выбран, и False в противном случае.

Таблица 22

Элемент управления	Предназначение
CommandButton1 (кнопка)	Нажатие на кнопку запускает процедуру обработки события (Private Sub CommandButton1_Click()), которая определяет, какой переключатель выбран. В зависимости от выбранного переключателя производится действие над выбранными в списке числами. Найденное значение выводится в поле TextBox1.
CommandButton2 (кнопка)	Нажатие на кнопку запускает процедуру обработки события (Private Sub CommandButton2_Click()), которая закрывает диалоговое окно
TextBox1 (поле)	В это поле будет выводиться результат. Поле сделаем недоступным для пользователя, т.е. пользователь не сможет ни ввести, ни скорректировать данные в этом поле
Label1 (надпись)	Пояснительная надпись для поля вывода
Frame1 (рамка)	Используется для группировки переключателей
OptionButton1(переключатель) OptionButton2(переключатель)	Выбор переключателя указывает, какая операция будет выполняться над выбранными числами

Форма создана, осталось только в модуле формы набрать код.

Private Sub CommandButton1_Click() Dim i As Integer Dim n As Integer 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 UserForm1.ListBox1 For i = 0 To.ListCount - 1 If.Selected(i) = True Then Произведение = Произведение *.List(i) End If Next i End With Результат = Произведение End If TextBox1.Text = CStr(Результат) End Sub	При выборе первого переключателя вычисляется сумма выбранных элементов     При выборе второго переключателя вычисляется произведение выбранных элементов Результат выводится в поле TextBox1
Private Sub CommandButton2_Click() UserForm1.Hide End Sub	Процедура закрытия диалогового окна
Private Sub UserForm_Initialize()     With ListBox1   .List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) .ListIndex = 0 .MultiSelect = fmMultiSelectMulti   End With   With UserForm1.OptionButton1 .Value = True     .Caption = "Сумма" .ControlTipText = "Сумма выбранных элементов" End With OptionButton2.ControlTipText= "Произведение выбранных элементов" CommandButton2.ControlTipText = "Выход из программы" CommandButton1.ControlTipText = "Нахождение результата"   UserForm1.Caption = "Операции над элементами списка" OptionButton2.Caption = "Произведение" Label1.Caption = "Результат" CommandButton1.Caption = "Вычислить" CommandButton2.Caption = "Отмена" Frame1.Caption = "Операция"   TextBox1.Enabled = False   End Sub	Процедура инициализации диалогового окна     Заполнение списка   Установка режима выбора     При загрузке формы первоначально будет выбран переключатель «Сумма»   Задание текста всплывающих подсказок у элементов управления   Задание заголовка пользовательской формы Инструкции задают видимые надписи для объектов     Инструкция делает TextBox1 недоступным для пользователя

После конструирования формы и написания кода в модуле формы, выберем команду Run, и на экране появится форма, представленная на рисунке 17

Рисунок 17 – Спроектированная форма

Private Sub CommandButton1_Click()

Dim i As Integer

Dim n As Integer

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 UserForm3.ListBox1

For i = 0 To.ListCount - 1

If.Selected(i) = True Then

Произведение = Произведение *.List(i)

End If

Next i

End With

Результат = Произведение

End If

TextBox1.Text = CStr(Результат)

End Sub

Private Sub CommandButton2_Click()

UserForm3.Hide

ListBox1.Clear

End Sub

Private Sub ListBox1_Change()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

With ListBox1

.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

.ListIndex = 0

.MultiSelect = fmMultiSelectMulti

End With

With UserForm3.OptionButton1

.Value = True

.Caption = "Сумма"

.ControlTipText = "Сумма выбранных элементов"

End With

OptionButton2.Caption = "Произведение"

OptionButton2.ControlTipText = "Произведение выбранных элементов"

CommandButton1.Caption = "Вычислить"

CommandButton1.ControlTipText = "Нахождение результата"

CommandButton2.Caption = "Отмена"

CommandButton2.ControlTipText = "Выход из программы"

UserForm1.Caption = "Операции над элементами списка"

Label1.Caption = "Результат"

Frame1.Caption = "Операция"

TextBox1.Enabled = False

End Sub

Оператор With – выполняет несколько операторов для единственного объекта без повторного указания имени объекта.

Синтаксис:

Дата добавления: 2014-01-05