如何使用以下代码创建If then语句?

时间:2019-06-25 21:38:35

标签: excel vba

所以我在excel上录制了一些宏,我想将这些单独的宏合并为一个。

我已经尝试了If If 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个宏并在循环中运行。整列。

每次运行组合的宏时,它仅运行第一个语句,并且在语句不正确时显示“ False”,而不检查第二个语句。

0 个答案:

没有答案