ysmw.net
当前位置:首页 >> EXCEL VBA中忽略出错一行代码,继续向下执行的代码... >>

EXCEL VBA中忽略出错一行代码,继续向下执行的代码...

on error resume next

Sub 强行删除指定工作表() On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 Application.DisplayAlerts = False '禁用警告提示 Sheets("仓库").Delete Application.DisplayAlerts = True '恢复警告提示 End Sub

Sub s() n = MsgBox("是否继续?", vbYesNo) If n = vbNo Then Exit Sub [A8] = "圣诞节"End Sub

如果不想暂停,就不要用msgbox函数。 想同步获得信息提示的话: 1)最简单的办法,设置状态栏文本 2)效果好些的方法:设计一个窗体,弹出,随事件进程更新其上某标签的caption属性

你定义的i是整形变量。。整形变量的取值范围是-32768到32767.。。 但是你的For i = 5 To Sheet1.Rows.Count 这句Sheet1.Rows.Count哪怕是EXECL2003都有65536.。。明显超出了32767,不溢出才有鬼了。。

你把连接数据库写成函数,主程序可以抛出异常,在异常处理那里调用你的函数 比如我写的 Private Sub UserForm_Click()On Error GoTo ErrLDim s As Strings = ThisWorkbook.Sheets(1).Cells(1, 1)MsgBox (s)GoTo EndOkErrL:MsgBox ("出错!")EndOk...

亲,不要把代码放到Thisworkbook的Open事件里即可。 如下图,打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧Thisworkbook上双击,右侧的代码剪切下来。 然后在左侧空白处点击右键,“插入”,“模块”。右侧空白处粘贴代码,去掉第一行...

EXCEL VBA里面需要顺序执行多个宏的时候,可以另外建立一个宏,按顺序依次调用这些宏即可,例如下面的test宏依次调用宏1、宏2、宏3: Sub test() Call 宏1 Call 宏2 Call 宏3End Sub

sub delay(T as single) dim T1 as single t1=timer do doevents loop while timer-t1

那就是改名字的问题呗 你去看看代码 里面有没有引用过你原来的文件名 如果有 替换成你现在的文件名就行了 文件选项那里 信任中心 关于宏的安全设置你看一下的 你保存为什么格式的文件?

网站首页 | 网站地图
All rights reserved Powered by www.ysmw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com