VBA的100个错误类型.doc

VBA的100个错误类型1 应用程序定义或对象定义错误2 应用程序定义或对象定义错误3 无 GoSub 返回4 应用程序定义或对象定义错误5 无效的过程调用或参数6 溢出7 内存溢出8 应用程序定义或对象定义错误9 下标越界10该数组被固定或暂时锁定11除数为零12应用程序定义或对象定义错误13类型不匹配14溢出串空间15应用程序定义或对象定义错误16表达式太复杂17不能执行所需的操作18出现用户中断19应用程序定义或对象定义错误20无错误恢复21应用程序定义或对象定义错误22应用程序定义或对象定义错误23应用程序定义或对象定义错误24应用程序定义或对象定义错误25应用程序定义或对象定义错误26应用程序定义或对象定义错误27应用程序定义或对象定义错误28溢出堆栈空间29应用程序定义或对象定义错误30应用程序定义或对象定义错误31应用程序定义或对象定义错误32应用程序定义或对象定义错误33应用程序定义或对象定义错误34应用程序定义或对象定义错误35子过程或函数未定义36应用程序定义或对象定义错误37应用程序定义或对象定义错误38应用程序定义或对象定义错误39应用程序定义或对象定义错误40应用程序定义或对象定义错误41应用程序定义或对象定义错误42应用程序定义或对象定义错误43应用程序定义或对象定义错误44应用程序定义或对象定义错误45应用程序定义或对象定义错误46应用程序定义或对象定义错误47DLL 应用程序客户太多48加载 DLL 错误49DLL 调用约定错误50应用程序定义或对象定义错误51内部错误52文件名或文件号错误53文件未找到54文件模式错误55文件已打开56应用程序定义或对象定义错误57设备 I/O 错误58文件已存在59记录长度错误60应用程序定义或对象定义错误61磁盘已满62输入超出文件尾63记录号错误64应用程序定义或对象定义错误65应用程序定义或对象定义错误66应用程序定义或对象定义错误67文件太多68设备不可用69应用程序定义或对象定义错误70拒绝的权限71磁盘未准备好72应用程序定义或对象定义错误73应用程序定义或对象定义错误74不能更名为不同的驱动器75路径/文件访问错误76路径未找到77应用程序定义或对象定义错误78应用程序定义或对象定义错误79应用程序定义或对象定义错误80应用程序定义或对象定义错误81应用程序定义或对象定义错误82应用程序定义或对象定义错误83应用程序定义或对象定义错误84应用程序定义或对象定义错误85应用程序定义或对象定义错误86应用程序定义或对象定义错误87应用程序定义或对象定义错误88应用程序定义或对象定义错误89应用程序定义或对象定义错误90应用程序定义或对象定义错误91对象变量或 With 块变量未设置92For 循环未初始化93无效的模式串94无效使用 Null95应用程序定义或对象定义错误96由于对象已经激活了事件接受器支持的最大数目的事件，不能吸收对象的事件97不能调用对象的友元函数，该对象不是所定义类的一个实例。98属性或方法调用不能包括对私有对象的引用，不论是作为参数还是作为返回值99应用程序定义或对象定义错误100 应用程序定义或对象定义错误122、Private Sub Calendar1_Click()ActiveCell = Me.Calendar1.ValueEnd Sub123、设置日历控件字号Private Sub UserForm_Initialize()Me.Calendar1.GridFont.Size = 14End Sub124、以下是从金刚金作品里提出来的部份事件代码，做得很好，值得借鉴学习：Private Sub Workbook_Activate()MsgBox 工作簿被切换为作用工作簿, vbInformation, Workbook_ActivateEnd SubPrivate Sub Workbook_AddinInstall()MsgBox 激活新的加载宏时, vbInformation, Workbook_AddinInstallEnd SubPrivate Sub Workbook_AddinUninstall()MsgBox 取消以前选取的加载宏时, vbInformation, Workbook_AddinUninstallEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)MsgBox 工作簿被关闭之前, vbInformation, Workbook_BeforeCloseEnd SubPrivate Sub Workbook_BeforePrint(Cancel As Boolean)MsgBox 工作簿打印之前, vbInformation, Workbook_BeforePrintEnd SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)MsgBox 工作簿进行保存之前, vbInformation, Workbook_BeforeSaveEnd SubPrivate Sub Workbook_Deactivate()MsgBox 工作簿切换为非作用工作簿, vbInformation, Workbook_DeactivateEnd SubPrivate Sub Workbook_NewSheet(ByVal Sh As Object)MsgBox 新建工作表, vbInformation, Workbook_NewSheetEnd SubPrivate Sub Workbook_Open()MsgBox 打开工作簿, vbInformation, Workbook_OpenEnd SubPrivate Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)MsgBox 数据透视表关闭与其数据源的连接之后, vbInformation, Workbook_PivotTableCloseConnectionEnd SubPrivate Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)MsgBox 数据透视表打开与其数据源的连接之后, vbInformation, Workbook_PivotTableOpenConnectionEnd SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)MsgBox 工作表 & Sh.Name & 切换为作用工作表, vbInformation, Workbook_SheetActivateEnd SubPrivate Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)MsgBox 任一单元格双击鼠标之后, vbInformation, Workbook_SheetBeforeDoubleClickEnd SubPrivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)MsgBox 任一单元格单击鼠标右键之后, vbInformation, Workbook_SheetBeforeRightClickEnd SubPrivate Sub Workbook_SheetCalculate(ByVal Sh As Object)MsgBox 工作表内容进行重算之后, vbInformation, Workbook_SheetCalculateEnd SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 在工作表内进行不同的操作, vbInformation, Workbook_SheetChangeEnd SubPrivate Sub Workbook_SheetDeactivate(ByVal Sh As Object)MsgBox 工作表 & Sh.Name & 切换为非作用工作表, vbInformation, Workbook_SheetDeactivateEnd SubPrivate Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)MsgBox 按下Excel超链接之后, vbInformation, Workbook_SheetFollowHyperlinkEnd SubPrivate Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)MsgBox 数据透视表更新之后, vbInformation, Workbook_SheetPivotTableUpdateEnd SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 工作表里选取不同单元格范围时, vbInformation, Workbook_SheetSelectionChangeEnd SubPrivate Sub Workbook_WindowActivate(ByVal Wn As Window)MsgBox 工作簿切换为作用工作簿, vbInformation, Workbook_WindowActivateEnd SubPrivate Sub Workbook_WindowDeactivate(ByVal Wn As Window)MsgBox 工作簿切换为非作用工作簿, vbInformation, Workbook_WindowDeactivateEnd SubPrivate Sub Workbook_WindowResize(ByVal Wn As Window)MsgBox 工作簿被打开或窗口最大化、最小化之后, vbInformation, Workbook_WindowResizeEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)MsgBox 选取不同单元格范围时, vbInformation, Worksheet_SelectionChangeEnd Sub125、Rem 选定单元格的个数Sub t()MsgBox Selection.Cells.CountEnd Sub126、Application.OnKey F11, ccc禁用F11127、选中A列除A1外的第一个非空单元格a65536.End(xlUp).Offset(1, 0).Select128、Private Sub CommandButton1_Click()On Error GoTo ad 注意后面的ad，这是错误处理的用法i = Range(a1).ValueSheets(CStr(i).Selectret = MsgBox(是否覆盖, vbYesNo, )If ret = vbYes ThenRange(A5:C7).Copy Sheets(CStr(i).Range(A1) 重点在copy之后ElseSheets.Add.Name = i & .2Range(A5:C7).Copy Sheets(CStr(i & .2).Range(A1)End IfEndad:Sheets.Add.Name = i 工作表名的变化是可见的Range(A5:C7).Copy Sheets(CStr(i).Range(A1)End Sub129、用变量取代Sheet1中的“1”For i = 1 To 3Sheets(sheet & i).Range(A2) = 1234Next130、中英对照English 繁體中文 簡体中文Absolute Referencing 絕對參照 绝对引用Active Cell 現存儲存格 活动单元格Add-in 增益集 加载宏Address 位址 地址Array 陣列 数组Array Formula 陣列公式 数组公式Audit 稽核 审核Bold 粗體 粗体Bug 蟲 BugCell 儲存格 单元格Circular Reference 循環參照 循环引用Code 程式碼 代码Column 欄 列Command 指令 命令Comment 註解 注释Condition 條件 条件Constant 常數 常数Cursor 浮標 指针Cursor 游標 鼠标指针Data 數據資料 数据Data Type 資料型態 数据类型Debug 偵錯 调试Debug 除蟲 调试Declare 宣告 声明Dependent 從屬 从属Dialog Box 對話方塊 对话框Double 雙精度浮點數 双精度浮点数Double-click (on mouse) 雙按 双击Drag 拖曳 拖曳Drop-down Box 清單方塊 ？Edit 編緝 编辑Electronic Mail / Email 電郵電子郵件 电子邮件Event 事件 事件Execute 執行 执行File 檔案 文件Filter 篩選 筛选Flowchart 流程圖 流程图Footer 頁尾 页脚Form 表單 窗体Format 格式 格式Function 函數 函数General 一般 标准Hard Copy 硬本 硬拷贝Header 頁首 页眉Help 說明 帮助Hyperlink 超連結 超级链接Immediate Window 即時運算視窗 立即窗口Indent 縮排 缩进Insert 插入 插入Internet 互聯網 因特网Italic 斜體 斜体Label 標籤 标签Link 連結 链接Loop 迴圈 循环Macro 巨集 宏Member 成員 成员Method 方法 方法Microsoft 微軟 微软Module 模組 模块Newsgroup 新聞組 新闻组Number Format 數字格式 数字格式Object 物件 对象Object Browser 瀏覽物件 对象浏览器Office Assistant Office小幫手 Office助手Options 選項 选项Parameter 參數 参数Parameter 引數 参数Path 路徑（檔案的） 路径Precedent 前導 先例