VBA提示 应用程序定义或对象定义错误

如果你在表"正班司机名单"中，没有表10那个数据，您那个循环就会一直循环下去，知道超出了excel最大行的范围，因此你应该加一个限定，在

Do While Trim(Sheet3Cells(e, 8)Value) <> Trim(Sheet10Cells(2, 1)Value)后加上

And e < 65536

这个循环改成这样

Do While Trim(Sheet3Cells(e, 8)Value) <> Trim(Sheet10Cells(2, 1)Value) And e < 65536

e = e + 1

Loop

if e=65536 then

msgbox("没有查询到该记录")

exit sub

end if

下面继续。

希望对你有所帮助。

优化注册表：[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug]

把"Auto"="0"改为"Auto"="1"就可以了。

不行的话，说明系统有问题了，直接用个验证过的系统盘重装系统就行了，这样就可以全程自动、顺利解决 系统运行错误 的问题了。用u盘或者硬盘这些都是可以的，且安装速度非常快。但关键是：要有兼容性好的（兼容ide、achi、Raid模式的安装）并能自动永久激活的、能够自动安装机器硬件驱动序的系统盘，这就可以全程自动、顺利重装系统了。方法如下：

1、U盘安装：用ultraiso软件，打开下载好的系统安装盘文件（ISO文件），执行“写入映像文件”把U盘插到电脑上，点击“确定”，等待程序执行完毕后，这样就做好了启动及安装系统用的u盘，用这个做好的系统u盘引导启动机器后，即可顺利重装系统了；

2、硬盘安装：前提是，需要有一个可以正常运行的Windows系统，提取下载的ISO文件中的“GHO”和“安装系统EXE”到电脑的非系统分区，然后运行“安装系统EXE”，直接回车确认还原 *** 作，再次确认执行自动安装 *** 作。(执行前注意备份C盘重要资料！)；

3、图文版教程：有这方面的详细图文版安装教程怎么给你？不能附加的。会被系统判为违规的。

这一句有问题：SetRng=Sheets(3)Range(Cells(1+i,1),Cells(3+i,4))在你的语句里，Range()的母对象是Sheets(3)，而Cells()的母对象是当前活动工作表，当Sheets(3)不是活动表里，Cells()和Range()的母对象交叉混乱了，在VBA里是非法

ApplicationWorksheetFunctionFind("L", Cells(i, "B")在找不到的时候就会返回错误结果，在VBA里面建议使用VBA的查找函数INSTR，例如：

IF INSTR(CELLSS(I,2), "L")>0 THEN

ThisWorkbookSheets("考核")Range("1:33")Copy

sh1Select

SelectionPasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _

, SkipBlanks:=False, Transpose:=False

SelectionPasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ApplicationCutCopyMode = False

代码改为如下:

ThisWorkbookSheets("考核")Range("1:33")Copy

sh1range("A1")PasteSpecial Paste:=xlPasteAllUsingSourceTheme

sh1range("A1")PasteSpecial Paste:=xlPasteValues

ApplicationCutCopyMode = False

=====================

原因是 sh1select 只是激活 sh1, 默认之前选择的单元格，

如果 你 sh1 之前选择的单元格 不在A列， 就没法贴进去(因为你复制的是整行)， 就会提示错误,

错在这项 jieqv(Range("K1")ValidationFormula1)

你打错或没有定义 jieqv

----

你能写得出这个宏，已是不错。可惜或可能，你是抄书的，或是录的。你用的方法是正统，但不实用。

以上就是关于VBA提示 应用程序定义或对象定义错误全部的内容，包括:VBA提示 应用程序定义或对象定义错误、vba报应用程序定义或对象定义错误、vba应用程序定义或对象定义错误等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！