Кнопка "у гривні"

Private Sub grn_Click()

a = CDbl(za1.Text)

b = CDbl(klv.Text)

c = a * b

sum.Text = CStr(c)

End Sub

Кнопка “у валюту”

Private Sub uval_Click()

a = CDbl(za1.Text)

c = CDbl(sum.Text)

b = c / a

klv.Text = CStr(b)

End Sub

Поле”Назва валюти”

Private Sub nazval_Change()

a7 = ActiveCell.Address

Range("A2").Select

“Цикл з умовою”

Do While ActiveCell.Value <> ""

If ActiveCell.Value = nazval.Text Then

rf = ActiveCell.Offset(0, 1).Value

End If

ActiveCell.Offset(1, 0).Select

Loop

litcode.Text = rf

Range(a7).Select

a5 = ActiveCell.Address

Range("A2").Select

“Цикл з умовою”

Do While ActiveCell.Value <> ""

If ActiveCell.Value = nazval.Text Then

zf = ActiveCell.Offset(0, 2).Value

End If

ActiveCell.Offset(1, 0).Select

Loop

za1.Text = zf

Range(a5).Select

End Sub

Кнопка “Вихід”

Private Sub Vihid_Click()

If MsgBox("Підтвердіть вихід із форми користувача", vbYesNo, "Вікно запиту") = vbYes Then

Unload Val

End If

End Sub

Кнопка “До форми”

Private Sub doform_Click()

Sheets("Облік тур бюро").Select

Turist.Show

End Sub

Кнопка “Відмінити”

Private Sub vidm_Click()

Range("A2").Select

nazval.AddItem ActiveCell.Value

litcode.Text = ActiveCell.Offset(0, 1).Value

za1.Text = ActiveCell.Offset(0, 2).Value

klv.Text = ""

sum.Text = ""

End Sub

Коротка інструкція для користувача

Шановний користувач ! Ця програма призначена для спрощення користування великими базами даних.Нижче наведений опис кнопок та їх функції . Копки :

Перший - показує у полях форми дані першого запису довідника.

Попередній – при натисканні відображає дані попереднього номера від

нинішнього.

Наступний - при натисканні відображає дані наступного номера від

нинішнього.

Останній - при натисканні відображає дані останнього номера у списку.

Редагувати - при натисканні дає можливість змінювати інформацію у

комірках.

Доповнити - при натисканні дає можливість змінювати інформацію у

комірках.

Зберегти – дозволяє зберегти результати роботи після натискання кнопки Редагувати або Доповнити.

Відмінити – напевно найважливіша кнопка,оскільки дозволяє повернути назад результати при неправильному введенні даних.

Видалити– дозволяє видалити непотрібний запис з робочої книги.

Архівація – призначена для створення копії файлу на випадок проблем з

оригіналом (при створенні копії відображається також дата створення)

Конвертація валют – дозволяє перехід до форми конвертації валют.

Призначення форми – це переведення суми у гривнях в аналогічну кількість іноземної валюти відносно офіційного курсу.

Сортування – дозволяє відсортувати список даних за параметрами ,які показані на формі (достатньо навести курсор на фляжок та натиснути кнопку )

Зміна мови – змінює мову в залежності від натискання ( існує 2 варіанти:Українська та Російська.)

Щоб зберегти дані потрібно:натиснути кнопку доповнити(ввести дані)

та натиснути – зберегти.

Щоб запустити форму “Конвертація валют” потрібно натиснути кнопку з одноіменною назвою.

Щодо курсу валют то при запуску форми конвертації довідник автоматично змінюється на довідник курсів валют.

Інформація по курсу валют взята з офіційного сайту НБУ,при бажанні

у полі “Офіційний курс ” можна ввести будь-які значення і отримати результат.