 |
|
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