VBA提高篇_07 Goto跳转 / Exit退出 /VBA错误处理

最新推荐文章于 2025-11-16 15:35:06 发布
原创 最新推荐文章于 2025-11-16 15:35:06 发布 · 1.7k 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#VBA #excel

博客介绍了VBA在Excel中的使用技巧，包括使用逻辑变量控制循环、用Goto语句任意跳转、用Exit语句跳出结构，还提到避免使用while…wend语句。同时着重讲解了错误处理方法，如On Error Goto Lablex和On Error Resume Next，以改善用户体验。

文章目录

使用逻辑变量控制循环

在这里插入图片描述

使用Goto语句任意跳转

经常在错误处理时使用
在这里插入图片描述

捷径:使用Exit语句跳出结构

在这里插入图片描述

注意: 避免使用while…wend语句,因为不能使用Exit进行语句操作

保险: 使用错误处理改善用户体验

在这里插入图片描述

On Error Goto Lablex:

忽略出错,.继续执行到指定标签

On Error Resume Next

忽略出错的行继续执行下一行

Excel-VBA 快速上手（九、VBA 中的跳转、退出、错误、With）
Ares5k
07-19 7460
vba、GoTo、GoSub、On Error Goto、On Error Resume Next、With
Excel-VBA宏编程实例源代码-判断是否有错误发生以进行分歧处理.zip
12-14
在Excel-VBA宏编程中，错误处理是一项至关重要的技能，特别是在编写复杂的自动化脚本时。VBA（Visual Basic for Applications）允许我们通过错误处理结构来捕获和处理运行时可能出现的错误，确保程序的稳定性和可靠...
Java - EasyExcel结合VBA实现Excel导出下拉多选框与单选框
qq_36782325的博客
08-17 1万+
使用ExcelEasy与vba脚本结合，实现含多选框与单选框excel文件
VBA实现检查和删除Word中的空白页
qffhq 点积
10-08 1万+
word中的空白页，可能由于回车产生，还有可能由插入的分页符产生，以下代码通过读取每一页的数据并判断，实现对Word中空白页的检查，并可实现自动删除！在word中，插入一个模块，复制如下代码 Option Explicit Sub GetBlankPage()Dim IsDelete As BooleanDim PageCount As LongDim rRange    
他山之石——VBA的程序终止、退出语句块、分支及错误处理（End, exit, on error go to in VBA）
预见未来to50的专栏
06-19 1万+
在VBA编程中，终止、退出及错误处理都是很有用的程序控制方法。那么，有哪些具体的方法呢？看到别人的培训资料里已有所总结，这里借花献佛一下。代码1： 程序终止及退出方法Option Explicit '一、END语句 '作用：强制退出所有正在运行的程序。 '二、Exit语句 '退出指定的语句 '1、Exit Sub Sub e1() Dim x ...
VBA ：goto语句用法，标签和行号。
奔跑的犀牛先生
01-03 1万+
1 goto语句 语法：goto 行号/行标签 goto可以跳转到 行号，或行标签 行号：可以查VBE的行数 行标签：需要先定义 例子 line_goto1: goto line_goto1 '可以带： 或没有 2 VBE自带的行号 VBE其实是有默认行号显示的，只是如果窗口不宽时，可能会被自动隐藏 但是没直接显示在左边行首，而是显示在上面 ...
17、VBA 错误处理与控制语句全解析
y2z3a4b5c的博客
06-30 122
本文深入解析了VBA中的错误处理与控制语句，涵盖On Error系列语句、Err错误对象、Resume语句等错误处理机制，并详细介绍了If...Then、For循环、Do循环、Select Case等常用控制语句的使用方法和场景。通过实例演示了如何在实际编程中进行错误捕获与流程控制，并提供了综合应用示例和最佳实践建议，帮助开发者编写更加健壮和高效的VBA程序。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim cellValue As String If Sh.Name = "Safran CR" And _ (Target.Column = 1) Then cellValue = Target.value If cellValue = "" Then Exit Sub Cancel = True ' ???????? ProcessSAP_ZPM008 cellValue Exit Sub End If End Sub Public Function ProcessSAP_ZPM008(ByVal inputValue As String) As Boolean On Error GoTo ErrorHandler ' 1. connect SAP Dim SapGuiAuto As Object, application As Object, connection As Object, session As Object Set SapGuiAuto = GetObject("SAPGUI") Set application = SapGuiAuto.GetScriptingEngine Set connection = application.Children(0) Set session = connection.Children(0) ' 2. go to ZPM008 session.StartTransaction "ZPM008" session.findById("wnd[0]").maximize ' 3. input SO session.findById("wnd[0]/usr/ctxtS_KDAUF-LOW").Text = inputValue session.findById("wnd[0]/usr/ctxtS_KDAUF-LOW").SetFocus ' 4. serach session.findById("wnd[0]").sendVKey 8 session.findById("wnd[0]/tbar[1]/btn[33]").press session.findById(“wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell”).setCurrentCell 1, “TEXT” session.findById(“wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell”).firstVisibleRow = 0 session.findById(“wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell”).selectedRows = “1” session.findById(“wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell”).clickCurrentCell ' 5. cheng gong bu yao tan chuan ProcessSAP_ZPM008 = True Exit Function ErrorHandler: ’ cuo wu bu yao tan chuan Debug.Print "SAP ???: " & Err.Description ProcessSAP_ZPM008 = False End Function 这两个代码有问题吗为什么双击A列没有跳转到SAP中
09-13
您的代码有几个潜在问题可能导致双击A列没有跳转到SAP： 1. **语法错误**： - 第4行条件判断的续行符`_`后面有空格和括号，应该是`And (Target.Column = 1)`直接连接 - 部分中文引号(`“”`)应该改为英文引号(`"...
14、VBA 错误处理技巧全解析
最新发布
seed的博客
11-16 27
本文深入解析了VBA中的错误处理技巧，涵盖编程错误与运行时错误的区别，通过实际示例展示了如何使用On Error和Resume语句进行有效的错误捕获与恢复。文章介绍了多种错误处理策略，包括预判错误、忽略错误、识别特定错误以及有意制造错误来实现逻辑判断，并提供了在文件操作和数据库连接中的应用案例。结合最佳实践与流程图，帮助开发者编写更健壮、可靠的VBA代码。
VBA基础语法：GoTo语句
热门推荐
blog
01-05 2万+
GoTo 语句 无条件地转移到过程中指定的行。 语法 GoTo line 必要的 line 参数可以是任意的行标签或行号。 说明 GoTo 只能跳到它所在过程中的行。 注意 太多的 GoTo 语句，会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。 GoTo 语句示例 本示...
学习日志 全民一起VBA提高篇 第六回 GOTO语句不走寻常路，EXIT跳出轮回圈
海豚
02-10 860
学习日志 全民一起VBA提高篇 第六回 GOTO语句不走寻常路，EXIT跳出轮回圈 相关知识点 'exit do ; exit for ; exit sub ; exit function 'exit 只能跳出它所在的那一层循环 'goto 可以跳转到同一过程（函数）内的任意一行 退出循环 exit Option Explicit '用逻辑变量控制流程 Sub...
VBA## on error go to多次跳转问题## 求教
yeatestian的博客
10-17 1288
VBA## on error go to多次跳转## 求教 代码如下： Function Owner(CPN as string，WholePN as range，Versionless as range) as string Err.Clear On Error GoTo Line1 Owner = WorksheetFunction.Vlookup(CPN, WholePN, 3, 0) GoTo FinalOwner Line1： Err.Clear On Error GoTo Li
VBA 学习笔记 错误处理、异常处理
灵台方寸山斜月三星洞
07-11 2748
一下代码实现用户输入判断，出错可以一直重试。 Sub demo() Dim birthday As Date On Error Resume Next ' 出错时忽略，继续向下运行。 Do birthday = InputBox ("输入您的生日(yyyy-MM-dd)") ' 假设此处用户没有输入日期。 If Err. Number <> 0 Then MsgBox "您的输入有误！请按照提示的日期格式输入。" ' 如有需要，可以在此提醒用户。 GoTo Err
VBA selection.goto 的用法
chchw2020的博客
08-28 660
本文介绍了VBA中Selection.GoTo方法的使用，重点讲解如何移动光标到文档指定位置。核心语法Selection.GoTo(What,Which,Count,Name)，常用参数What指定目标类型（段落/书签等），Which决定绝对或相对移动。推荐两种实现方式：1）使用GoTo进行相对移动（wdGoToNext）；2）更简洁的Selection.Move方法。文章还提供了多个实用示例，包括移动到特定段落、文档首尾、书签和页码等，并总结了不同场景下的方法选择：简单相对移动用MoveDown/Move
VBA的goto语句，goto 和 gosub 的区别
奔跑的犀牛先生
11-05 2670
Sub test40() I = 1 GoTo lineA I = 99 Debug.Print "i=" & I Exit Sub lineA: Debug.Print "i=" & I End Sub Sub test41() I = 1 GoTo lineA I = 99 Debug.Print "i=" & I ' Exit Sub lineA: Debug.Print "i=" & I ...
VBA的异常处理(On Error Goto 错误标签....)
wangchaoqi1985的博客
04-13 706
VBA的异常处理(On Error Goto 错误标签....)
测试与错误处理(VBA)
B!ng
11-08 3387
10.7 测试与错误处理1.测试 测试代码，检查它是否正确。为确保代码能够正常作用，必须尽力模拟代码运行的不同环境，并检查其正确性。程序中的错误一般分为如下几类：（1）语法错误(如输入时关键字或标点符号拼写错误) 。（2）编译错误(如使用对象的方法时，该对象并不支持这个方法) 。（3）运行期间错误(如除0、打开或关闭并不存在的文档、关闭未打开的文档等) 。（4）逻辑
VBA之Word应用：文档（Document）的书签
VBA语言専攻
11-19 965
从以上的简单介绍中我们看出，书签同样是文档的属性之一，既然是文档的属性，就代表了文档的特征和性质，我们就可以利用属性的操作进行系列的设置和提取特征了。顺便再给大家强调一点，我的系列教程是有学习先后顺序的，这套教程一定要在《V。这世界上所有的失去，都会以另一种方式还给你，而所有的得到，也会以另外一种方式失去。我们先来回顾一下在上一章给大家介绍的文档属性和方法，这些在我们代码中会随处可见，对于使用Word经验较多的朋友而言，在文档中使用书签，可以利于阅读，操作，包括个数的统计，书签的添加，书签的删除等等。
vba错误处理on error goto
12-30
在 Visual Basic for Applications (VBA) 编程环境中，`On Error Goto` 是一种用于指定错误发生时跳转到特定标签位置继续执行的错误处理方式。这种方式允许程序在遇到错误时不立即终止，而是转向预定义的位置来处理...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

pigerr杨

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值