Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавить в тело макроса проверку условия и его выполнение,
 
#1
02.09.2019 10:50:24
Есть две именованных ячейки "A" (С1) и "B" (D1), в каждой формула с результатом, как перевести на VBA такой алгоритм:

Sub Базовый()
1. ....
2. Алгоритм
2.1 Сравнит значения "A" и "B"
2.2 Если "A" = "B" - завершить Алгоритм и перейти к следующему шагу макроса Базовый
2.3 Если "A" < "B" то выполнить Макрос1 ["B" - "A"] раз и перейти к шагу 2.1
2.4 Если "A" > "B" то выполнить Макрос2 ["A" - "B"] раз и перейти к шагу 2.1
3. ...
Sub
Изменено: CD_Zenit - 02.09.2019 10:58:30
 
 
 
#2
02.09.2019 10:59:08
Код
Sub Пункт2()
    Dim A As Double
    Dim B As Double
    Dim i As Long
    Dim bExit As Boolean
    
    Do
        1. ...
    
        A = Range("C1").Value
        B = Range("D1").Value
    
        If A < B Then
            For i = A + 1 To B Step 1
                Макрос1
            Next
        ElseIf A > B Then
            For i = B + 1 To A Step 1
                Макрос2
            Next
        Else
            bExit = True
        End If
        
        If bExit Then Exit Do
    Loop    3. ...
End Sub
Изменено: МатросНаЗебре - 02.09.2019 11:19:28
 
 
 
#3
02.09.2019 11:04:22
Цитата
МатросНаЗебре написал:
Sub Пункт2
Спасибо!!! Сейчас попробую прикрутить )))
 
 
 
Страницы: 1
Наверх