Розрахункові формули
Дані в поля “Фах” і “Розряд” уводяться за допомогою списку даних.
4. Вікна властивостей надпису, поля
Текст програми Загальна область Dim x1, x3, x4, i As Integer Dim x5, x6, x7, x8, x10, x12, x13, jf, jr, s1 As Double Dim x2, x9, x11 As String Dim x0, x20 As Variant Кнопка “Доповнити” Private Sub dop_Click() i = 1 'Змінні x1 = nom.Text x2 = pr.Text x3 = st.Text x4 = vz.Text x5 = nar.Text x6 = pod.Text x7 = vn.Text x8 = dv.Text x9 = fah.Text x10 = koef.Text x11 = roz.Text x12 = tar.Text x13 = prof.Text 'Кнопки pop.Enabled = False nas.Enabled = False dop.Enabled = False red.Enabled = False vid.Enabled = True zap.Enabled = True vih.Enabled = False 'Поля nom.Text = "" pr.Text = "" st.Text = "" vz.Text = "" nar.Text = "" pod.Text = "" vn.Text = "" dv.Text = "" fah.Text = "" koef.Text = "" roz.Text = "" tar.Text = "" prof.Text = "" 'Списки koef.Text = "" tar.Text = "" 'Доступ до полів pr.Enabled = True st.Enabled = True vz.Enabled = True fah.Enabled = True roz.Enabled = True 'Курсор pr.SetFocus End Sub Поле-список “Фах” Private Sub fah_Change() 'Нова змінна x0 = ActiveCell.Address 'Довідник фахів Range("b3").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = fah.Text Then jf = ActiveCell.Offset(0, 1).Value End If ActiveCell.Offset(1, 0).Select Loop 'Поле довідника koef.Text = jf 'Наступний вибір Range(x0).Select End Sub Поле “Коефіцієнт” Private Sub koef_Change() 'Розрахунок nar.Text = Str(Int(jf * jr * Val(vz.Text) * 100) / 100) pod.Text = Str(Int(jf * jr * Val(vz.Text) * 13) / 100) prof.Text = Str(Int(jf * jr * Val(vz.Text) * 1) / 100) vn.Text = Str(Int(jf * jr * Val(vz.Text) * 5) / 100) dv.Text=Str(Int((Val(nar.Text)-Val(pod.Text)-Val(prof.Text)-Val(vn.Text))*100)/100) End Sub Кнопка “Наступний” ©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|