Excel VBA 如果这是真的 End 否则执行此操作答案

【问题标题】：Excel VBA If this is true End otherwise do thisExcel VBA 如果这是真的 End 否则执行此操作
【发布时间】：2023-02-03 20:39:06
【问题描述】：

我将如何编写一个 VBA 语句，基本上说如果“A1”说“是”，则忽略我的代码的其余部分，否则将转到下一行。

谢谢

我似乎无法让它工作，我无法让它跳过其余的代码

【问题讨论】：

向我们展示您的代码，我相信它会清楚地说明它到底出了什么问题！（您可以随时edit您的帖子 :)
If Range("A1") = "Yes" Then Exit Sub（假设这是你想要退出的 - 也许你想退出一个循环，你没有包含任何上下文代码）

标签： excel vba xlsm

【解决方案1】：

简单的... ;-）

Sub YesICan()

    Dim rng As Range
    Set rng = Selection
    Dim cl As Range

    For Each cl In rng.Cells
        If LCase(cl) = "yes" Then
            cl.Offset(, 1) = "Hi There!"
        Else
            cl.Offset(, 1) = ""
            'do other stuff
        End If
    Next cl


End Sub

【讨论】：