- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
Private Sub CommandButton1_Click() 'необходимо
For q = 2 To 500
For w = 25 To 34
For e = 3 To 13
If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
Rem Лист1.Cells(q, 11) = 151
End If
End If
End If
Next
Next
Next
End Sub
...
TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)
...
Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка
If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
End If
Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
Лист1.Cells(a, 48) = TextBox63.Value ' штраф
If CheckBox6.Value = True Then
Лист1.Cells(a, 49) = 1 ' комплект
Else
Лист1.Cells(a, 49) = 0
End If
Ну и так далее.
Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.