End Sub. Шаг 3. Программный код для кнопки «Заполнить лист»

Шаг 3. Программный код для кнопки «Заполнить лист»

Замечание. В ней для определения первой пустой строки в заполняемой базе данных используется инструкция

N = Application.CountA(Sheets(“Данные”).Columns(2)) + 1,

правая часть которой вычисляет число з аполненных ячеек в втором столбце рабочего листа «Данные». Переменной N присваивается значение на единицу большее, т.е. номер следующей уже пустой строки. Подобные инструкции довольно часто используются при разработке приложений, поэтому следует обратить на них внимание.

При выполнении события Click() ячейки таблицы заполняются данными, текстовые поля очищаются.

Private Sub CommandButton2_Click()

Dim N As Integer

Sheets(“Данные”).Select

N =Application.CountA(Sheets(“Данные”).Columns(2)) + 1

Cells(N, 2).Value=Emitent 'Ввод данных в строку N листа «Данные»

Cells(N, 3).Value=CB

Cells(N, 4).Value = Date

Cells(N, 5).Value=Nom

Cells(N, 6).Value=Emis

Cells(N, 7).Value=Spros

Cells(N, 8).Value=Kurs

Cells(N, 9).Value=StSpr

Cells(N, 10).Value=StPr

TextBox1.Text = Clean

TextBox2.Text = Clean

TextBox3.Text = Clean

TextBox4.Text = Clean

TextBox5.Text = Clean

TextBox6.Text = Clean

End Sub

Шаг 4. Программный код инициализации (вызова) формы и задание элементов списка. Для выбора процедуры нужно в окне кода указать в выпадающем списке объектов (см. рисунок 1) вариант UserForm1,а в списке событий – Initialize.

Private Sub UserForm_Initialize()

ComboBox1.AddItem "АО Сигнал"

ComboBox1.AddItem "ПО Вымпел"

ComboBox1.AddItem "Банк Астра"

ComboBox1.AddItem "Банк Сигма"

ComboBox1.AddItem "ПО Телеком"

ComboBox1.ListIndex = 0

ComboBox2.AddItem "Акция"

ComboBox2.AddItem "Вексель"

ComboBox2.AddItem "Облигация"

ComboBox2.ListIndex = 0

CommandButton2.Enabled = False ‘ Кнопка «Заполнить лист» недоступна