Правильность расстановки переменных

[segail]

Здравствуйте.
Подскажите, правильна ли расстановка переменных i, q, a, b, d в коде?

Private Sub Cmd_Select_Click()
    
If Дата Or Год Then
    '...
    Exit Sub
End If

Dim i As Integer
Dim q As Integer
Dim a: Dim b: Dim d
For i = 1 To 444
For q = 1 To 444
'=============================================================================
If Условие = 1 Then 'Условие1
    If Условие = 1.1 Then
        If i = Дата Then
            If i3 = "" Then
                '...
                Exit Sub
            End If
                With ooo
                    a = i = 1 + i = 2 + 1 = 2
                    b = i = 3 + i = 4 + i = 5
                    d = i = 6
                        If (a - b - d) < 0 Then
                            '...
                            Exit Sub
                        End If
                End With
                    If Условие = 1.2 Then
                        If Условие = 1.3 Then
                            '...
                                With ooo
                                    '...
                                End With
                                    '...
                        End If
                    End If
        Else
            If Условие = 1.4 Then
                '...
            Else
                '...
                    If Условие = 1.5 Then
                        If Условие = 1.6 Then
                            '...
                        End If
                    End If
            End If
        End If
    End If
End If 'Конец условия 1
'=============================================================================
If Условие = 2 Then 'Условие2
    If Условие = 2.1 Then
        '...
        Exit Sub
    End If
        If i = Дата Then
            If MsgBox() = vbYes Then GoTo wyhod
                '...
                Exit Sub
wyhod:
                    '...
        End If
            If q = Месяц Then
                If Условие = 2.2 Then q
            End If
                    '...
End If 'Конец условия 2
'=============================================================================
If Условие = 3 Then 'Условие3
    If Условие = 3.1 Then
        '...
        Exit Sub
    End If
        If i = Дата Then
            If i26 = "" Then
                '...
                Exit Sub
            End If
        End If
            If Условие = 3.2 Then
                If Условие = 3.3 Then
                        If i = Дата Then
                            '...
                        End If
                End If
            End If
End If 'Конец условия 3
'=============================================================================
'If Условие = 4 Then 'В разработке
    '...
        'If i = Дата Then
            '...
        'End If
    '...
'End If 'Конец условия 4
'=============================================================================
'If Условие = 5 Then 'В разработке
    '...
        'If i = Дата Then
            '...
        'End If
    '...
'End If 'Конец условия 5
'=============================================================================
Next
    '...
End Sub

[doober]

With ooo
a = i = 1 + i = 2 + 1 = 2
b = i = 3 + i = 4 + i = 5
d = i = 6
If (a - b - d) < 0 Then
'...
Exit Sub

Я так и не постиг всю глубину глубин смыcла кода но

If (a - b - d) < 0 Then
                            '...
     Exit Sub

Это условие никогда не сработает,
всегда a=0 ,b=0
d при i =6 примет значение-1,в остальных случаях 0
ИТОГО a - b - d=0,
только при i=6 a - b - d=1

[nilem]

Попробуйте словами описать, что вы хотели сделать (типа "присваиваем переменной а значение ..."):

With ooo
    a = i = 1 + i = 2 + 1 = 2
    b = i = 3 + i = 4 + i = 5
    d = i = 6 ...
End With

Там, где много If-Then, может лучше, например:

Select Case Условие
    Case 1.4
        ...
    Case 1.5
        ...
    Case 1.6
        ...
    ...
End Select

Медленно пишу, повтор получился.

[segail]

Условие здесь проставлены условно, мне главное переменные.
Мне кажется, я с Next напутал, или еще одно дополнительное Next необходимо поставить, где то…

[segail]

А насчет этого куска кода он выглядит так

                With Sheets("Отчет")
                    a = .Cells(i, 11).Value + .Cells(i, 13).Value + .Cells(i, 14).Value
                    b = .Cells(i, 3).Value + .Cells(i, 5).Value + .Cells(i, 6).Value + .Cells(i, 8).Value
                    d = .Cells(i, 16).Value
                        If (a - b - d) < 0 Then
                            MsgBox "Внимание! Зафиксировано грубое нарушение учета движения ГСМ." & vbCrLf & "При удалении данных прихода за " & .Cells(i, 1) & " значение конечного остатка составит " & Format((a - b - d), "0.000") & " л. Удаление запрещено.", 16, "Запрет удаления"
                            'Команда - отменить выбор даты и закрыть форму
                            If IsDate(SelectedDate) Then SelectedDate = CStr(DateValue(dt_2))
                            Unload Me
                            Exit Sub
                        End If
                End With