VBA If Тогда заявление, чтобы сделать вещи или конец суб

Question

У меня проблемы с написанием простого кода.Я хочу добавить оператор If Then, если условие выполнено (значение ячейки не равно 1 или 7), а затем выполнить блок кодов, в противном случае завершить подпрограмму.Блок кодов включает в себя вход на сайт и 2 цикла For Next.В основном макрос должен выполняться в будние дни, а не в субботу или в воскресенье.Благодарим Вас за помощь.

Вот тестовый код:

Sub test()

Dim i As Integer

'If cell E1 has a value of neither 1 or 7, Do stuff, otherwise End the Sub

If Cells(5, 1) <> 1 Or Cells(5, 1) <> 7 Then

    'Do stuff includes login and perform 2 For Next loops in my real code 
    For i = 1 To 3
        Cells(i, 1).Value = Cells(i, 1).Value * 2
    Next

End If

End Sub

Answer 1

Я наконец смог добиться того, чего хочу.Я создал новый саб, который проверяет день недели, и если это суббота или воскресенье, то выход из саба, иначе позвоните оригинальному сабвуферу, который у меня есть, и он отлично работает.Однако, как предложил Коминтерн, я рассмотрю функцию проверки даты в VBA вместо использования электронной таблицы.Спасибо всем.

Answer 2

Попробуйте

Sub test()

    Dim i As Integer

    'If cell E1 has a value of neither 1 or 7, Do stuff, otherwise End the Sub

    If Cells(5, 1) = 1 Or Cells(5, 1) = 7 Then
    Else
        'Do stuff includes login and perform 2 For Next loops in my real code
        For i = 1 To 3
            Cells(i, 1).Value = Cells(i, 1).Value * 2
        Next

    End If

End Sub