Формы пользователя

Управление электронными документами в Excelудобно производить с помощью вспомогательных диалоговых окон, которые в проекте документа называются пользовательскими формами (UserForms).

Для того чтобы в проект документа включить пользовательскую форму, нужно в редакторе VBAвыполнить командуВставка / UserForm (Insert / UserForm). После этого в проект документа добавится объектUserForm1, а на экране появится заготовка для формы пользователя с именемUserForm1и панель элементовToolbox.

На форме пользователя так же, как и на рабочем листе, можно создавать кнопки, текстовые поля, надписи, списки и другие объекты. Задание конкретных значений свойств объекта осуществляется в окне свойств или программным путем.

Например, можно задать заголовок (свойство Caption) формы с именем UserForm1 (свойство Name) в программном коде следующим образом: UserForm1.Caption = «Список сотрудников». Чтобы задать нужный размер букв для текстового поля можно, например, записать следующую строку в программе: TextBox1.Font.Size = 14

Перечислим еще некоторые свойства объектов: BackColor – цвет фона, ForeColor – основной цвет, Height – высота окна формы, Width – ширина окна формы, Picture – отображение рисунка (позволяет отобразить на форме рисунок, файл с которым можно открыть, нажав кнопку в правой части), Top – координата верхней границы, Left – координата левой границы окна формы на экране. Элементы управления, такие как кнопки, поля, надписи и др., имеют и вышеперечисленные свойства, и собственные. Например, текстовое поле имеет свойство Text, в котором записывается содержимое поля. Полный перечень свойств объектов можно найти в справочной системе VBА.

Для появления на экране формы UserForm1 следует в программе использовать метод Show (UserForm1.Show), а чтобы убрать форму – метод Hide. Например, при выполнении следующей программы появляется форма красного цвета:

PrivateSubCommandButton1_Click()

UserForm1.BackColor = RGB(255, 0, 0)

UserForm1.Show

End Sub

Цвет здесь задается цифрами от 0 до 255 функцией RGB, в которой оттенки красного (red) на первом месте, оттенки зеленого (green) – на втором, оттенки синего (blue) – на третьем.

Пример. Пусть в окне редактора Visual Basic разработана форма, представленная ниже.

Sub CommandButton1_Click() Dim x As Single, y As Single Dim a As Single, b As Single, z As Single x = Val(UserForm1.TextBox1.Text) y = Format(x, "####.##") a = (x + y) ^ 2 : b = Sin(a) – Sin(b) ^ 3 UserForm1.TextBox2.Text = "a=" & a UserForm1.TextBox3.Text = "b=" & b UserForm1.Label2.Caption = "z = " & 5 * Sin(10) / 3 End Sub

Программу можно запустить нажатием кнопки Run на листе редактора Visual Basic. При появлении формы на экране надо ввести значение х в верхнее поле и нажать кнопку «Вывод результатов». Программа для кнопки «Вывод результатов» вводит значение х из верхнего поля, рассчитывает значения а, b, z и выводит их в поля TextBox1, TextBox2, а значение z выводит в надпись Label2, расположенную в нижней части формы.

Назад