当前位置：文江博客话题详情

如何使其到达已添加值的位置然后忽略 if 语句的其余部分？

发布于 2024-12-11 18:24:52 字数 67 浏览 0 评论 0原文

如何使其到达已添加值的位置然后忽略 if 语句的其余部分？我正在运行多个 if 语句，并且需要编码来确认值何时已被使用。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦年海沫深 2024-12-18 18:24:52

您通常会使用布尔标志来执行此操作

初始化标志（默认情况下它是 False，但最好显式设置它，以防变量范围大于过程）
当某个事件发生时（即单元格非空）

在代码中检查标志以测试提前退出、执行不同的例程等（例如离开 IF 逻辑）

Sub SampleFlag()
将 bFlag 调暗为布尔值
变暗只要长
bFlag = 假
对于 lngCnt = 1 到 10
' 如果从 A1 到 A10 的任何单元格都有值，则将标志设置为 true
    如果 Len(Cells(lngCnt, 1)) > 0 那么 bFlag = True
' 测试真标志，然后退出  
    如果 bFlag 那么
        MsgBox“单元格”& Cells(lngCnt, 1).Address(0, 0) & “不为空”
        退出对于
    结束如果
下一个
' 如果标志为 false（即不为 true），则未找到单元格值
如果不是 bFlag 那么 MsgBox "所有单元格都是空的"
结束子

You would normally use a Boolean Flag to do this

Initialise the flag (by default it is False, but best to explicitly set this in case the variable scope is larger than the procedure)
Set the flag to True when a certain event happens (ie a cell is non-empty)

Check the flag during your code to test for early exit, executing different routines etc (such as leaving your IF logic)

Sub SampleFlag()
Dim bFlag As Boolean
Dim lngCnt As Long
bFlag = False
For lngCnt = 1 To 10
' If any cell from A1 to A10 has a value then set flag to true
    If Len(Cells(lngCnt, 1)) > 0 Then bFlag = True
' Test for a true flag, then exit  
    If bFlag Then
        MsgBox "Cell " & Cells(lngCnt, 1).Address(0, 0) & " was not empty"
        Exit For
    End If
Next
' if flag is false (ie not true) then no cell values were found
If Not bFlag Then MsgBox "All cells were empty"
End Sub

回复收藏 0 原文

~没有更多了~