Здравствуйте. Не сочтите за наглость, не могу, вставит дополнительное условие.
Возникла проблема вставить дополнительное условие в данный код.
1.
2.
3.
4.
5.
6.
7.
8.
9.
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.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
If Условие = 1 Then
If CDate(Form_SelectDate.TextBox_Year) <> CDate(Sheets("Отчет").Range("R1")) Or CDate(Form_SelectDate.TextBox_Data) < CDate(Form_SelectDate.TextBox_Дата) Then
MsgBox " Год ввода данных выбран не верно, или выбранная дата опережает событие.", vbInformation, "Информационное сообщение"
'Команда - отменить выбор даты и закрыть форму
If IsDate(SelectedDate) Then SelectedDate = CStr(DateValue(dt_2))
Unload Me
Exit Sub
End If
Dim i As Integer
For i = 1 To 444
If Sheets("Отчет").Cells(i, 1 ).Value = CStr(DateValue(dt_1)) Then 'Поиск даты по совподению для выполнения условия
'Удаление данных на выбранную дату, если ТextBox1 пустой
If UserForm1.TextBox1.Text = "" Then 'Основное условие для всего кода
If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "При удалении данных прихода, на выбранную дату, Вы изменяете параметры движения ГСМ. Если за " & ComboBox_Month & " месяце производилась инвентаризация, списание, определение процента потерь то эти данные будут полностью удалены." & vbCrLf & "Продолжить удаление на выбранную дату?", vbYesNo + vbExclamation, " Информационное сообщение") = vbYes Then
With Sheets("Отчет")
.Cells(i, 2 ).Resize(, 8 ).ClearContents ' очищаем сразу 8 ячеек
.Cells(i, 21 ) = "=sum(R[-1]C)" ' Значения берутся из строки выше
.Cells(i, 22 ) = "=sum(R[-1]C)" ' Значения берутся из строки выше
.Cells(i, 28 ) = ""
.Cells(i, 31 ) = ""
End With
UserForm1.Label6.Caption = "Полная очистка данных на " & TextBox_Дата & " произведена"
UserForm1.Label6.ForeColor = &HFF&
Module2.Change
End If
Else
'Ввод данных на выбранную дату. Продолжение основного условия если ТextBox1 имеет данные
With Sheets("Отчет")
If Form_SelectDate.chb_Time.Value = True Then Sheets("Отчет").Cells(i, 2 ).Value = Form_SelectDate.Label_Hour.Caption + ":" + Form_SelectDate.Label_Minute 'Ввод времени если chb_Time обозначен галочкой
If Form_SelectDate.chb_Time.Value = False Then Sheets("Отчет").Cells(i, 2 ).Value = "" 'Удаление времени если chb_Time не обозначен галочкой
.Cells(i, 3 ).Value = UserForm1.TextBox1.Text + .Cells(i, 3 ).Value
.Cells(i, 4 ).Value = UserForm1.TextBox2.Text + .Cells(i, 4 ).Value
.Cells(i, 5 ).Value = VBA.Val(VBA.Replace(UserForm1.TextBox3.Text, ",", ".")) + .Cells(i, 5 ).Value
.Cells(i, 6 ).Value = VBA.Val(VBA.Replace(UserForm1.TextBox5.Text, ",", ".")) + .Cells(i, 6 ).Value
.Cells(i, 7 ).Value = VBA.Val(VBA.Replace(UserForm1.TextBox6.Text, ",", ".")) + .Cells(i, 7 ).Value
.Cells(i, 8 ).Value = UserForm1.TextBox7.Text + .Cells(i, 8 ).Value
.Cells(i, 9 ).Value = UserForm1.TextBox8.Text + .Cells(i, 9 ).Value
.Cells(i, 21 ).Value = Range("F10").Value
.Cells(i, 22 ).Value = Range("G10").Value
.Cells(i, 28 ).Value = Round(([d13] + [d16] + [d19] + [d22]), 0 ) + .Cells(i, 28 ).Value
If .Cells(i, 31 ).Value > "" Then .Cells(i, 31 ) = .Cells(i, 31 ) & Range("A9").Value & " " & Range("G8").Value & " " & UserForm1.TextBox1.Text & " л. " & UserForm1.TextBox2.Text & " кг. / " Else .Cells(i, 31 ) = "/ " & Range("A9").Value & " " & Range("G8").Value & " " & UserForm1.TextBox1.Text & " л. " & UserForm1.TextBox2.Text & " кг. / "
End With
UserForm1.Label6.Caption = "Ввод данных прихода на " & Form_SelectDate.TextBox_Дата & " произведен"
UserForm1.Label6.ForeColor = &HC00000
End If
End If
Next
End If
Основа данного кода это удаление данных, если объект TextBox1 пустой, и ввод данных, если объект имеет значение (основное условие If UserForm1.TextBox1.Text = "" Then).
Необходимо после Else (это я так думаю) вставить Module2.Change, данный макрос выполняет дополнительное удаление данных, когда происходит ввод данных.
Перед этим необходимо вставить условие
If CDate(Form_SelectDate.TextBox_Data) > CDate(Form_SelectDate.TextBox_Дата) Then
с выводом сообщения
If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "При вводе данных прихода, на прошедшую дату, Вы изменяете параметры движения ГСМ. Если за " & ComboBox_Month & " месяце производилась инвентаризация, списание, определение процента потерь то эти данные будут полностью удалены." & vbCrLf & "Продолжить ввод данных на выбранную дату?", vbYesNo + vbExclamation, " Информационное сообщение") = vbYes Then
Если пользователь нажимает кнопку “Да” данного сообщения, то выполняется макрос Module2.Change и код после Else.
Если пользователь нажимает кнопку “Нет” данного сообщения, то ни чего не происходит.
Если условие не дает результата “>” то в силу вступает основное условие, то есть выполняется код после Else без сообщения и без Module2.Change.
