entityMap|0|type|LINK|mutability|MUTABLE|data|url|https://stackoverflow.com/questions/46771236/excel-vba-if-then-if-statement/46771712#46771712|1|https://en.wikipedia.org/wiki/Don%2527t_repeat_yourself|blocks|key|aen8i|text|一种可能的选择如下所示：|unstyled|depth|inlineStyleRanges|entityRanges|dk1c6|Sub+IfThenElse()

++++With+Sheet1
++++++++If+.Range("A1").value+>+500+Then
++++++++++++If+MsgBox("A1+>+500,+Is+this+correct",+vbYesNo,+"Amount+of+Lines")+=+vbYes+Then
++++++++++++++++.Range("H11")+=+"My+Formula"
++++++++++++Else
++++++++++++++++.Range("H11")+=+"I+have+Jumped"
++++++++++++End+If
++++++++Else
++++++++++++.Range("H11")+=+"I+have+Jumped"
++++++++End+If
++++End+With

End+Sub|code-block|syntax|javascript|1856i|您有两个嵌入的if。仅此而已。在Excel+VBA+IF+then+IF+statement+@Scott+Holtzmann的回答中，你可能会看到如何通过遵循DRY+method来避免写两次“我跳过了”。|offset|length|bl14e^0|0|0|G|U|0|28|A|1|0^^$0|$1|$2|3|4|5|6|$7|8]]|9|$2|3|4|5|6|$7|A]]]|B|@$C|D|E|F|2|G|H|U|I|@]|J|@]|6|$]]|$C|K|E|L|2|M|H|V|I|@]|J|@]|6|$N|O]]|$C|P|E|Q|2|G|H|W|I|@]|J|@$R|X|S|Y|C|Z]|$R|10|S|11|C|12]]|6|$]]|$C|T|E|-4|2|G|H|13|I|@]|J|@]|6|$]]]]

A possible option is like this:

<pre><code>Sub IfThenElse()

 With Sheet1
 If .Range("A1").value &gt; 500 Then
 If MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines") = vbYes Then
 .Range("H11") = "My Formula"
 Else
 .Range("H11") = "I have Jumped"
 End If
 Else
 .Range("H11") = "I have Jumped"
 End If
 End With

End Sub
</code></pre>

You have two embedded ifs. That's all. In the answer of <a href="https://stackoverflow.com/questions/46771236/excel-vba-if-then-if-statement/46771712#46771712">Excel VBA IF then IF statement</a> @Scott Holtzmann, you may see how to avoid writing "I have jumped" twice, by following the <a href="https://en.wikipedia.org/wiki/Don%27t_repeat_yourself" rel="nofollow noreferrer">DRY method</a>.

entityMap|blocks|key|cp2c9|text|这个答案是对你对Vityaya的回答的评论的回应。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3cqa4|将Jump中的代码转换为子例程，并根据需要调用它。|offset|length|style|CODE|b6hnm|Sub+IF_THEN_IF()

With+Sheet1+

++++If+.Range("A1").Value+>+500+Then

++++++++Dim+res+as+Variant
++++++++res+=+MsgBox("A1+>+500,+Is+this+correct",+vbYesNo,+"Amount+of+Lines")

++++++++If+res+=+vbYes+Then
++++++++++++.Range("H11").FormulaR1C1+=+"My+Formula"
++++++++Else
++++++++++++Jump
++++++++End+If

++++Else+++

++++++++Jump

++++End+If

End+Sub

Sub+Jump()
+++'code+here
End+Sub|code-block|syntax|javascript|5gahb^0|0|1|4|0|0^^$0|$]|1|@$2|3|4|5|6|7|8|O|9|@]|A|@]|B|$]]|$2|C|4|D|6|7|8|P|9|@$E|Q|F|R|G|H]]|A|@]|B|$]]|$2|I|4|J|6|K|8|S|9|@]|A|@]|B|$L|M]]|$2|N|4|-4|6|7|8|T|9|@]|A|@]|B|$]]]]

This answer is in response to the comment you made on the answer of Vityaya.

Turn the code from <code>Jump</code> into a sub routine and call it as necessary.

<pre><code>Sub IF_THEN_IF()

With Sheet1 

 If .Range("A1").Value &gt; 500 Then

 Dim res as Variant
 res = MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines")

 If res = vbYes Then
 .Range("H11").FormulaR1C1 = "My Formula"
 Else
 Jump
 End If

 Else 

 Jump

 End If

End Sub

Sub Jump()
 'code here
End Sub
</code></pre>

entityMap|blocks|key|bi099|text|您可以使用AND运算符|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|dds5o|Sub+IF_THEN_IF()++++
If+Sheet1.Range("A1").Value+>+500+And+_
+++MsgBox("A1+>+500,+Is+this+correct",+vbYesNo,+"Amount+of+Lines")+=+vbYes+Then

++++Range("H11").FormulaR1C1+=+"My+Formula"

Else

++++Range("H11").FormulaR1C1+=+"I+have+Jumped"

End+Sub|code-block|syntax|javascript|7bhqu^0|5|3|0|0^^$0|$]|1|@$2|3|4|5|6|7|8|M|9|@$A|N|B|O|C|D]]|E|@]|F|$]]|$2|G|4|H|6|I|8|P|9|@]|E|@]|F|$J|K]]|$2|L|4|-4|6|7|8|Q|9|@]|E|@]|F|$]]]]

You can use the <code>AND</code> operator

<pre><code>Sub IF_THEN_IF() 
If Sheet1.Range("A1").Value &gt; 500 And _
 MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines") = vbYes Then

 Range("H11").FormulaR1C1 = "My Formula"

Else

 Range("H11").FormulaR1C1 = "I have Jumped"

End Sub
</code></pre>

entityMap|blocks|key|65a4q|text|如果你不打算“跳”，你可以离开你的过程，跳到另一个方向：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|bu95r|Sub+IF_THEN_IF()
++++If+Sheet1.Range("A1").Value+>+500+Then
++++++++If+MsgBox("A1+>+500,+Is+this+correct",+vbYesNo,+"Amount+of+Lines")+=+vbYes+Then
++++++++++++Range("H11").FormulaR1C1+=+"My+Formula"
++++++++++++Exit+Sub
++++++++End+If
+++End+If
+++'Jump
++++Range("H11").FormulaR1C1+=+"I+have+Jumped"
End+Sub|code-block|syntax|javascript|c7m18|另一种选择是使用布尔变量：|6151m|Sub+IF_THEN_IF()
++++Dim+Jump+as+Boolean
++++Jump+=+Sheet1.Range("A1").Value+<=+500
++++If+Not+Jump+Then+Jump+=+MsgBox("A1+>+500,+Is+this+correct",+vbYesNo,+"Amount+of+Lines")+<>+vbYes
++++If+Jump+Then
++++++++Range("H11").FormulaR1C1+=+"I+have+Jumped"
++++Else
++++++++Range("H11").FormulaR1C1+=+"My+Formula"
++++End+If
End+Sub|e30h3^0|0|0|0|0^^$0|$]|1|@$2|3|4|5|6|7|8|M|9|@]|A|@]|B|$]]|$2|C|4|D|6|E|8|N|9|@]|A|@]|B|$F|G]]|$2|H|4|I|6|7|8|O|9|@]|A|@]|B|$]]|$2|J|4|K|6|E|8|P|9|@]|A|@]|B|$F|G]]|$2|L|4|-4|6|7|8|Q|9|@]|A|@]|B|$]]]]

You can leave your procedure if you're not going to "jump", jumping otherway:

<pre><code>Sub IF_THEN_IF()
 If Sheet1.Range("A1").Value &gt; 500 Then
 If MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines") = vbYes Then
 Range("H11").FormulaR1C1 = "My Formula"
 Exit Sub
 End If
 End If
 'Jump
 Range("H11").FormulaR1C1 = "I have Jumped"
End Sub
</code></pre>

Another option is use boolean variable:

<pre><code>Sub IF_THEN_IF()
 Dim Jump as Boolean
 Jump = Sheet1.Range("A1").Value &lt;= 500
 If Not Jump Then Jump = MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines") &lt;&gt; vbYes
 If Jump Then
 Range("H11").FormulaR1C1 = "I have Jumped"
 Else
 Range("H11").FormulaR1C1 = "My Formula"
 End If
End Sub
</code></pre>

I am using an "If Then If msgbox vbYesno" Statement and I am not sure how to get out correctly of it (I know Goto is not clean). 

Can someone tell me what my mistake is? I did not find anyone using something similar.

<pre><code>Sub IF_THEN_IF()

If Sheet1.Range("A1").Value &gt; 500 Then
 If MsgBox("A1 &gt; 500, Is this correct", vbYesNo, "Amount of Lines") = vbYes Then
 Range("H11").FormulaR1C1 = "My Formula"
 Else
 GoTo Jump
 End If
Else

Jump: 
 Range("H11").FormulaR1C1 = "I have Jumped"

End If

End Sub
</code></pre>

Excel VBA IF then IF statement

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

 我使用了"If Then If msgbox vbYesno“语句，但我不确定如何正确地摆脱它(我知道Goto不是干净的)。 谁能告诉我我的错误是什么？我没有发现任何人使用类似的东西。 Sub IF_THEN_IF()If Sheet1.Range("A1").Value > 500 Then    If MsgBo...

问Excel VBA IF then IF语句
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel VBA IF then IF语句EN