Как я могу создать оператор If then со следующим кодом? - PullRequest
0 голосов
/ 26 июня 2019

Итак, я записал несколько макросов в Excel и хотел объединить эти отдельные макросы в один.

Я уже попробовал утверждение If Then Else.

Set target = Range("D2")
If target.Value = "Stelar" Then
 Call Stelar
End If
If target.Value = "Mid" Then
Call MidP
End If

Это образецдва макроса, которые я пытаюсь объединить:

Selection.FormulaR1C1 = _
        "=IF(RC[-20]=""Stelar"",IF((R10C48-R10C47)<(RC[-15]-R10C47),(R10C48-R10C47),(RC[-15]-R10C47)))"

Selection.FormulaR1C1 = _
        "=IF(RC[-20]=""Mid"",IF((R11C48-R11C47)<(RC[-15]-R11C47),(R11C48-R11C47),(RC[-15]-R11C47)))"

Таким образом, есть еще 13 макросов, которые я хочу объединить и запустить в цикле.для всего столбца.

Каждый раз, когда я запускаю комбинированный макрос, он запускает только первый элемент stement и показывает «False», когда утверждение неверно, вместо проверки второго утверждения.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...