Кнопка "Змінити мову"
Private Sub zminmov_Click()
“Зміна підписів полів”
zminmov.Caption = "Русский"
If Label1.Caption = "Ціна за 1 день" Then
Label1.Caption = "цена за 1 день"
Label2.Caption = "цена проезда"
Label3.Caption = "коефициент"
Label4.Caption = "номер п/п"
Label5.Caption = "дата заказа"
Label6.Caption = "Фамилия клиента"
Label7.Caption = "Название города"
Label8.Caption = "Количество дней"
Label9.Caption = "Название сезона"
Label10.Caption = "Количество путевок"
Label11.Caption = "Вид путевки"
Label12.Caption = "Стоимость"
Label13.Caption = "Конечная стоимость"
persh.Caption = "Первый"
popered.Caption = "Предидущий"
nastup.Caption = "Следующий"
ostan.Caption = "Последний"
dopovnyty.Caption = "Дополнить"
redag.Caption = "Редактировать"
zberegty.Caption = "Сохранить"
vidminyty.Caption = "Отменить"
vidal.Caption = "Удалить"
vihid.Caption = "Выход"
sort.Caption = "Сортировка"
zminmov.Caption = "Українська мова"
np.Caption = "номер п/п"
pr.Caption = "Фамилия"
sz.Caption = "Название сезона"
vp.Caption = "Вид путевки"
nm.Caption = "Название города"
Else
Label1.Caption = "Ціна за 1 день"
Label2.Caption = "Ціна проїзду"
Label3.Caption = "Коефіцієнт"
Label4.Caption = "номер п/п"
Label5.Caption = "Дата замовлення"
Label6.Caption = "Прізвище клієнта"
Label7.Caption = "Назва міста"
Label8.Caption = "Кількість днів"
Label9.Caption = "Назва сезону"
Label10.Caption = "Кількість путівок"
Label11.Caption = "Вид путівки"
Label12.Caption = "Вартість"
Label13.Caption = "Остаточна вартість"
persh.Caption = "Перший"
popered.Caption = "Попередній"
nastup.Caption = "Наступний"
ostan.Caption = "Останній"
dopovnyty.Caption = "Доповнити"
redag.Caption = "Редагувати"
zberegty.Caption = "Зберегти"
vidminyty.Caption = "Відмінити"
vidal.Caption = "Видалити"
vihid.Caption = "Вихід"
sort.Caption = "Сортування"
np.Caption = "номер п/п"
pr.Caption = "Прізвище"
sz.Caption = "Назва сезону"
vp.Caption = "Вид путівки"
nm.Caption = "Назва міста"
End If
End Sub
Поле "Назва міста"
Private Sub nazvmist_Change()
“Код”
a3 = ActiveCell.Address
“Адреса першої комірки”
Range("A4").Select
“Цикл з умовою”
Do While ActiveCell.Value <> ""
If ActiveCell.Value = nazvmist.Text Then
tf = ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
zina1d.Text = tf
Range(a3).Select
a5 = ActiveCell.Address
Range("A4").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = nazvmist.Text Then
zf = ActiveCell.Offset(0, 2).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
zinapr.Text = zf
Range(a5).Select
End Sub
Поле “Сезон“
Private Sub sezon_Change()
“Код”
a4 = ActiveCell.Address
Range("F4").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = sezon.Text Then
kf = ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
coef.Text = kf
Range(a4).Select
End Sub
Форма “Конвертація валют”
Рис.6 Форма “Конвертація валют”
Форма була стоворена для конвертації валют світу у гривні та навпаки.
Оскільки туризм-це не тільки подорожі по Україні ,а й по всьому світу то
Ця форма може стати в пригоді людям,які планують свої видатки,або приблизну суму грошей ,яку можна взяти закордон.Призначення та опис об’єктів форми наведено нижче.
“Загальна область”
“Змінні”
Dim a, b, c As Double
“Активація форми”
Private Sub Userform_Activate()
“Адреса першої комірки”
Range("A2").Select
“Цикл з умовою”
Do While ActiveCell.Value <> ""
nazval.AddItem ActiveCell.Value
litcode.Text = ActiveCell.Offset(0, 1).Value
za1.Text = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Select
Loop
Range("L4").Select
klv.Text = ActiveCell.Value
“Активація кнопок”
grn.Enabled = True
uval.Enabled = True
vidm.Enabled = True
vihid.Enabled = True
doform.Enabled = True
End Sub