Кнопка “Записати”

Private Sub zap_Click()

'Редагування

If i = 2 Then

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

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

ActiveCell.Offset(0, 3).Value = fah.Text

ActiveCell.Offset(0, 4).Value = roz.Text

ActiveCell.Offset(0, 5).Value = vz.Text

ActiveCell.Offset(0, 6).Value = jf

ActiveCell.Offset(0, 7).Value = jr

End If

'Доповнення

If i = 1 Then

Range("i4:u4").Select

Selection.Copy

Do While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

ActiveSheet.Paste

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

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

ActiveCell.Offset(0, 3).Value = fah.Text

ActiveCell.Offset(0, 4).Value = roz.Text

ActiveCell.Offset(0, 5).Value = vz.Text

ActiveCell.Offset(0, 6).Value = jf

ActiveCell.Offset(0, 7).Value = jr

End If

'Обчислення суми зарплат

s1 = 0

'Розрахунок

Range("u3").Select

Do While ActiveCell.Value <> ""

s1 = s1 + ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

'Повернення на 1 запис

Range("i3").Select

nom.Text = ActiveCell.Value

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

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

vz.Text = ActiveCell.Offset(0, 5).Value

nar.Text = ActiveCell.Offset(0, 8).Value

pod.Text = ActiveCell.Offset(0, 9).Value

prof.Text = ActiveCell.Offset(0, 10).Value

dv.Text = ActiveCell.Offset(0, 12).Value

fah.Text = ActiveCell.Offset(0, 3).Value

koef.Text = ActiveCell.Offset(0, 6).Value

roz.Text = ActiveCell.Offset(0, 4).Value

tar.Text = ActiveCell.Offset(0, 7).Value

'Результат розрахунку

nnn.Text = s1

'Кнопки

pop.Enabled = True

nas.Enabled = True

dop.Enabled = True

red.Enabled = True

vid.Enabled = False

zap.Enabled = False

vih.Enabled = True

'Доступ до полів

pr.Enabled = False

st.Enabled = False

vz.Enabled = False

fah.Enabled = False

roz.Enabled = False

End Sub

Примітка: програмний код записуємо для полів, значення в яких впливають на значення інших полів.

Література

1. Брюс Холберг, Шерри Кинкоф, Билл Рей и др. Использование Microsoft Excel 97; Пер. с англ. – К.; М.; СПб: Издат. дом «Вильямс», 1998. –736 с.

2. Савенко Р. Г., Лисенко М. В. Методичні вказівки до виконання лабораторних робіт на тему “Розроблення програм алгоритмічною мовою VBA” – Полтава: ПДТУ, 2000. – 18 с.

3. Харченко Ю.А. Методичні вказівки до виконання лабораторних і розрахунково-графічних робіт на тему “Табличний процесор EXCEL 97, мова програмування VBA” для студентів усіх форм навчання зі спеціальностей 7.092101, 7.092103, 7.092104, 7.092105 - Полтава: ПДТУ, 2001. – 36 с.

ЗМІСТ

ВСТУП 3

Лабораторна робота №1. Тема “Редактор Visual Basic” 3

Лабораторна робота №2. Тема “Редактор Visual Basic” 6

Лабораторна робота №3. Тема “Макроси у VBА” 7

Лабораторна робота №4. Тема “Уведення VBA-коду, оператори VBA” 8

Лабораторна робота №5. Тема “Типи даних” 9

Лабораторна робота №6. Тема “Оголошення і використання змінних” 10

Лабораторна робота №7. Тема “Оператори управління програмою” 11

Лабораторна робота №8. Тема “Основні поняття про об’єкти Excel” 13

Лабораторна робота №9. Тема “Взаємодія VBA з користувачем” 15

Завдання (типове) для курсової роботи 21

Приклад виконання 22

Література 32

32