VBA的100個錯誤類型1 應(yīng)用程序定義或?qū)ο蠖x錯誤2 應(yīng)用程序定義或?qū)ο蠖x錯誤3 無 GoSub 返回4 應(yīng)用程序定義或?qū)ο蠖x錯誤5 無效的過程調(diào)用或參數(shù)6 溢出7 內(nèi)存溢出8 應(yīng)用程序定義或?qū)ο蠖x錯誤9 下標越界10該數(shù)組被固定或暫時鎖定11除數(shù)為零12應(yīng)用程序定義或?qū)ο蠖x錯誤13類型不匹配14溢出串空間15應(yīng)用程序定義或?qū)ο蠖x錯誤16表達式太復(fù)雜17不能執(zhí)行所需的操作18出現(xiàn)用戶中斷19應(yīng)用程序定義或?qū)ο蠖x錯誤20無錯誤恢復(fù)21應(yīng)用程序定義或?qū)ο蠖x錯誤22應(yīng)用程序定義或?qū)ο蠖x錯誤23應(yīng)用程序定義或?qū)ο蠖x錯誤24應(yīng)用程序定義或?qū)ο蠖x錯誤25應(yīng)用程序定義或?qū)ο蠖x錯誤26應(yīng)用程序定義或?qū)ο蠖x錯誤27應(yīng)用程序定義或?qū)ο蠖x錯誤28溢出堆?？臻g29應(yīng)用程序定義或?qū)ο蠖x錯誤30應(yīng)用程序定義或?qū)ο蠖x錯誤31應(yīng)用程序定義或?qū)ο蠖x錯誤32應(yīng)用程序定義或?qū)ο蠖x錯誤33應(yīng)用程序定義或?qū)ο蠖x錯誤34應(yīng)用程序定義或?qū)ο蠖x錯誤35子過程或函數(shù)未定義36應(yīng)用程序定義或?qū)ο蠖x錯誤37應(yīng)用程序定義或?qū)ο蠖x錯誤38應(yīng)用程序定義或?qū)ο蠖x錯誤39應(yīng)用程序定義或?qū)ο蠖x錯誤40應(yīng)用程序定義或?qū)ο蠖x錯誤41應(yīng)用程序定義或?qū)ο蠖x錯誤42應(yīng)用程序定義或?qū)ο蠖x錯誤43應(yīng)用程序定義或?qū)ο蠖x錯誤44應(yīng)用程序定義或?qū)ο蠖x錯誤45應(yīng)用程序定義或?qū)ο蠖x錯誤46應(yīng)用程序定義或?qū)ο蠖x錯誤47DLL 應(yīng)用程序客戶太多48加載 DLL 錯誤49DLL 調(diào)用約定錯誤50應(yīng)用程序定義或?qū)ο蠖x錯誤51內(nèi)部錯誤52文件名或文件號錯誤53文件未找到54文件模式錯誤55文件已打開56應(yīng)用程序定義或?qū)ο蠖x錯誤57設(shè)備 I/O 錯誤58文件已存在59記錄長度錯誤60應(yīng)用程序定義或?qū)ο蠖x錯誤61磁盤已滿62輸入超出文件尾63記錄號錯誤64應(yīng)用程序定義或?qū)ο蠖x錯誤65應(yīng)用程序定義或?qū)ο蠖x錯誤66應(yīng)用程序定義或?qū)ο蠖x錯誤67文件太多68設(shè)備不可用69應(yīng)用程序定義或?qū)ο蠖x錯誤70拒絕的權(quán)限71磁盤未準備好72應(yīng)用程序定義或?qū)ο蠖x錯誤73應(yīng)用程序定義或?qū)ο蠖x錯誤74不能更名為不同的驅(qū)動器75路徑/文件訪問錯誤76路徑未找到77應(yīng)用程序定義或?qū)ο蠖x錯誤78應(yīng)用程序定義或?qū)ο蠖x錯誤79應(yīng)用程序定義或?qū)ο蠖x錯誤80應(yīng)用程序定義或?qū)ο蠖x錯誤81應(yīng)用程序定義或?qū)ο蠖x錯誤82應(yīng)用程序定義或?qū)ο蠖x錯誤83應(yīng)用程序定義或?qū)ο蠖x錯誤84應(yīng)用程序定義或?qū)ο蠖x錯誤85應(yīng)用程序定義或?qū)ο蠖x錯誤86應(yīng)用程序定義或?qū)ο蠖x錯誤87應(yīng)用程序定義或?qū)ο蠖x錯誤88應(yīng)用程序定義或?qū)ο蠖x錯誤89應(yīng)用程序定義或?qū)ο蠖x錯誤90應(yīng)用程序定義或?qū)ο蠖x錯誤91對象變量或 With 塊變量未設(shè)置92For 循環(huán)未初始化93無效的模式串94無效使用 Null95應(yīng)用程序定義或?qū)ο蠖x錯誤96由于對象已經(jīng)激活了事件接受器支持的最大數(shù)目的事件，不能吸收對象的事件97不能調(diào)用對象的友元函數(shù)，該對象不是所定義類的一個實例。98屬性或方法調(diào)用不能包括對私有對象的引用，不論是作為參數(shù)還是作為返回值99應(yīng)用程序定義或?qū)ο蠖x錯誤100 應(yīng)用程序定義或?qū)ο蠖x錯誤122、Private Sub Calendar1_Click()ActiveCell = Me.Calendar1.ValueEnd Sub123、設(shè)置日歷控件字號Private Sub UserForm_Initialize()Me.Calendar1.GridFont.Size = 14End Sub124、以下是從金剛金作品里提出來的部份事件代碼，做得很好，值得借鑒學(xué)習(xí)：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 工作簿被關(guān)閉之前, 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 數(shù)據(jù)透視表關(guān)閉與其數(shù)據(jù)源的連接之后, vbInformation, Workbook_PivotTableCloseConnectionEnd SubPrivate Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)MsgBox 數(shù)據(jù)透視表打開與其數(shù)據(jù)源的連接之后, 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 工作表內(nèi)容進行重算之后, vbInformation, Workbook_SheetCalculateEnd SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 在工作表內(nèi)進行不同的操作, 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 數(shù)據(jù)透視表更新之后, 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 選定單元格的個數(shù)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 現(xiàn)存儲存格 活動單元格Add-in 增益集 加載宏Address 位址 地址Array 陣列 數(shù)組Array Formula 陣列公式 數(shù)組公式Audit 稽核 審核Bold 粗體 粗體Bug 蟲 BugCell 儲存格 單元格Circular Reference 循環(huán)參照 循環(huán)引用Code 程式碼 代碼Column 欄 列Command 指令 命令Comment 註解 注釋Condition 條件 條件Constant 常數(shù) 常數(shù)Cursor 浮標 指針Cursor 游標 鼠標指針Data 數(shù)據(jù)資料 數(shù)據(jù)Data Type 資料型態(tài) 數(shù)據(jù)類型Debug 偵錯 調(diào)試Debug 除蟲 調(diào)試Declare 宣告 聲明Dependent 從屬 從屬Dialog Box 對話方塊 對話框Double 雙精度浮點數(shù) 雙精度浮點數(shù)Double-click (on mouse) 雙按 雙擊Drag 拖曳 拖曳Drop-down Box 清單方塊 ？Edit 編緝 編輯Electronic Mail / Email 電郵電子郵件 電子郵件Event 事件 事件Execute 執(zhí)行 執(zhí)行File 檔案 文件Filter 篩選 篩選Flowchart 流程圖 流程圖Footer 頁尾 頁腳Form 表單 窗體Format 格式 格式Function 函數(shù) 函數(shù)General 一般 標準Hard Copy 硬本 硬拷貝Header 頁首 頁眉Help 說明 幫助Hyperlink 超連結(jié) 超級鏈接Immediate Window 即時運算視窗 立即窗口Indent 縮排 縮進Insert 插入 插入Internet 互聯(lián)網(wǎng) 因特網(wǎng)Italic 斜體 斜體Label 標籤 標簽Link 連結(jié) 鏈接Loop 迴圈 循環(huán)Macro 巨集 宏Member 成員 成員Method 方法 方法Microsoft 微軟 微軟Module 模組 模塊Newsgroup 新聞組 新聞組Number Format 數(shù)字格式 數(shù)字格式Object 物件 對象Object Browser 瀏覽物件 對象瀏覽器Office Assistant Office小幫手 Office助手Options 選項 選項Parameter 參數(shù) 參數(shù)Parameter 引數(shù) 參數(shù)Path 路徑（檔案的） 路徑Precedent 前導(dǎo) 先例