Малюнок 1

Image

Name = Bo­ard2_­­Image

Pictue = …

Picture­Si­ze­­Mode = 1-fmPicture­SizeModeStretch

Label

Name = Family_­Label

BackStyle = 0-fmBackStyleTransparent

Caption = Прізвище, ім'я та по батькові

ForeColor = (чорний)

Label

Name = Group_­Label

BackStyle = 0-fmBackStyleTransparent

Caption = Група

ForeColor = (чорний)

Label

Name = Rate_­Label

BackStyle = 0-fmBackStyleTransparent

Caption = Пароль

ForeColor = (чорний)

Label

Name = Password_­Label

BackStyle = 0-fmBackStyleTransparent

Caption = Прізвище, ім'я та по батькові

ForeColor = (чорний)

ComboBox

Name = Group_ComboBox

ForeColor = (синій)

ListStyle = fmListStyleOption

Тext = ФН-99-1

Value = ФН-99-1

TextBox

Name = Rate_TextBox

ForeColor = (синій)

Shadow = True

SpecialEffect = 2-fmSpecialEffectSunken

Тext = 1

Value = 1

TextBox

Name = Password_TextBox

ForeColor = (синій)

Shadow = true

SpecialEffect = 2-fmSpecialEffectSunken

TextBox

Name = Family_TextBox

ForeColor = (синій)

Shadow = True

SpecialEffect = 2-fmSpecialEffectSunken

Тext = Інкогніто

Value = Інкогніто

CheckBox

Name = Password_CheckBox

BackStyle = 0-fmBackStyleTransparent

Caption =

Value = Інкогніто

SpinButton

Name = Rate_SpinButton

Max = 6

Min = 1

Value = 1

ToggleButton

Name = Form1_ToggleButton

Caption = Очна

Picture = …

PicturePosition = 7-fmPicturePositionAboveCenter

Shadow = True

Value = False

ToggleButton

Name = Form2_ToggleButton

Caption = Заочна

Picture = …

PicturePosition = 7-fmPicturePositionAboveCenter

Shadow = True

Value = True

OptionButton

Name = Order1_OptionButton

BackStyle = 0-fmBackStyleTransparent

Caption = За державним замовленням

ForeColor = (синій)

SpecialEffect = 2-fmButtonEffectSunken

Value = True

OptionButton

Name = Order2_OptionButton

BackStyle = 0-fmBackStyleTransparent

Caption = За контрактом

ForeColor = (синій)

SpecialEffect = 2-fmButtonEffectSunken

Value = False

CommandButton

Name = About_CommandButton

Caption = Про користувача

Picture = …

PicturePosition = 1-fmPicturePositionLeftCenter

Shadow = True

CommandButton

Name = Exit_CommandButton

Caption = Завершення реєстрації

Picture = …

PicturePosition = 1-fmPicturePositionLeftCenter

Shadow = True

3. Для підтримки функціонування розташованих компонентів треба визначити події, на які будуть реагувати компоненти і створити функції (фрагменти програми на VBA); ці функції будуть реагувати на події, які виникать під час функціо­ну­ван­ня прикладення, і обробляти їх.

До наведеного вище прикладу розроблено такі реакції на події:

Private Sub Group_ComboBox_GotFocus()

' *************************************************************

' Реакція на отримання фокусу вводу компонентом Group_ComboBox

' *************************************************************

' формування списку груп

Group_ComboBox.AddItem "ФК-09-1"

Group_ComboBox.AddItem "МН-09-1"

Group_ComboBox.AddItem "МК-09-1"

Group_ComboBox.AddItem "ПЭ-09-1"

Group_ComboBox.AddItem "ЭП-09-1"

Group_ComboBox.Text = "ФК-09-1"

End Sub

Private Sub Rate_SpinButton_Change()

' ****************************************

' Реакція на зміну стану лічильника курсу

' ****************************************

Rate_TextBox.Value = Rate_SpinButton.Value

End Sub

Private Sub Form1_ToggleButton_Click()

' ***********************************************

' Реакція на вибір перемикача Form1_ToggleButton

' ***********************************************

Form2_ToggleButton.Value = Not Form1_ToggleButton.Value

End Sub

Private Sub Form2_ToggleButton_Click()

' ***********************************************

' Реакція на вибір перемикача Form2_ToggleButton

' ***********************************************

Form1_ToggleButton.Value = Not Form2_ToggleButton.Value

End Sub

Private Sub Password_CheckBox_Click()

' ********************************************

' Реакція на вибір прапорця Password_CheckBox

' ********************************************

Password_TextBox.Enabled = Password_CheckBox.Value

End Sub

Private Sub Password_TextBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

' ******************************************************************

' Реакція на подвійне клацання мишою по компоненту Password_TextBox

' ******************************************************************

' формування коду натискування клавиші <Enter>

SendKeys "{ENTER}", True

End Sub

Private Sub Password_TextBox_GotFocus()

' ***************************************************************

' Реакція на отримання фокусу вводу компонентом Password_TextBox

' ***************************************************************

MsgBox "Введіть пароль <Password>", vbInformation + vbOKOnly, _

"Зведення про пароль"

End Sub

Private Sub Password_TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

' ********************************************************************

' Реакція компонента Password_TextBox на натискування клавиші <Enter>

' ********************************************************************

If KeyCode = vbCrLf Then ' натиснуто клавишу <Enter>

If Password_TextBox.Text = "Password" Then

MsgBox "Пароль вірний", vbInformation + vbOKOnly, _

"Зведення про пароль"

Else

MsgBox "Пароль хибний!", vbCritical + vbOKOnly, _

"Зведення про пароль"

End If

End If

End Sub

Private Sub About_CommandButton_Click()

' ********************************************

' Реакція на вибір кнопки About_CommandButton

' ********************************************

' формування повідомлення

Dim Message As String

Message = "Користувач: " + Family_TextBox.Text + ". " + vbCrLf + _

"Група: " + Group_ComboBox.Value + ". " + vbCrLf + _

"Курс " + Rate_TextBox.Value + ". " + vbCrLf + _

"Форма навчання: "

If Form1_ToggleButton.Value = True Then

Message = Message + "очна"

Else

Message = Message + "заочна"

End If

If Order1_OptionButton.Value = True Then

Message = Message + " за державним замовленням."

Else

Message = Message + " за контрактом."

End If

' віведення повідомлення

MsgBox Message, vbOKOnly, "Зведення про користувача"

End Sub

Private Sub Exit_CommandButton_Click()

' *******************************************

' Реакція на вибір кнопки Exit_CommandButton

' *******************************************

Dim Response ' відповідь на повідомлення

' виведення повідомлення із запитом, який потребує відповіді

Response = MsgBox("Ви дійсно бажаєте завершити реєстрацію?", _

vbQuestion + vbSystemModal + vbYesNo, "Завершення реєстрації")

If Response = vbYes Then

' відповідь - вибір кнопки <Yes>

' завершення роботи

Workbooks("Example.xls").Close SaveChanges:=False

End If

End Sub

Завдання № 2:

Розробити таблицю «Облік прибутків від продажу товарів» (малюнок 2). У таблиці треба передбачити наявність кнопок для: автоматизованого заповнення чарунок наданими, автоматизованого пошуку збитку і прибутку, сортування товарів за зменшенням прибутку і закриття книги. У програмному коді прикладення повинно бути використано об’єкти VBA: Application, Workbook, Worksheet, Range, Cell.