工作簿进行保存之前", vbInformation, "Workbook_BeforeSave" End Sub

Private Sub Workbook_Deactivate() MsgBox "工作簿切换为非作用工作簿", vbInformation, "Workbook_Deactivate" End Sub Private Sub Workbook_NewSheet(ByVal Sh As Object) MsgBox "新建工作表", vbInformation, "Workbook_NewSheet" End Sub Private Sub Workbook_Open() MsgBox "打开工作簿", vbInformation, "Workbook_Open" End Sub Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable) MsgBox "数据透视表关闭与其数据源的连接之后", vbInformation, "Workbook_PivotTableCloseConnection" End Sub Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable) MsgBox "数据透视表打开与其数据源的连接之后", vbInformation, "Workbook_PivotTableOpenConnection" End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) MsgBox "工作表" & Sh.Ncom & "切换为作用工作表", vbInformation, "Workbook_SheetActivate" End Sub Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) MsgBox "任一单元格双击鼠标之后", vbInformation, "Workbook_SheetBeforeDoubleClick" End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) MsgBox "任一单元格单击鼠标右键之后", vbInformation, "Workbook_SheetBeforeRightClick" End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) MsgBox "工作表内容进行重算之后", vbInformation, "Workbook_SheetCalculate" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "在工作表内进行不同的cāo作", vbInformation, "Workbook_SheetChange" End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) MsgBox "工作表" & Sh.Ncom & "切换为非作用工作表", vbInformation, "Workbook_SheetDeactivate" End Sub Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) MsgBox "按下Excel超链接之后", vbInformation, "Workbook_SheetFollowHyperlink" End Sub Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) MsgBox "数据透视表更新之后", vbInformation, "Workbook_SheetPivotTableUpdate" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

MsgBox "工作表里选取不同单元格范围时", vbInformation, "Workbook_SheetSelectionChange" End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) MsgBox "工作簿切换为作用工作簿", vbInformation, "Workbook_WindowActivate" End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) MsgBox "工作簿切换为非作用工作簿", vbInformation, "Workbook_WindowDeactivate" End Sub Private Sub Workbook_WindowResize(ByVal Wn As Window) MsgBox "工作簿被打开或窗口最大化、最小化之后", vbInformation, "Workbook_WindowResize" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "选取不同单元格范围时", vbInformation, "Worksheet_SelectionChange" End Sub 125、Rem 选定单元格的个数 Sub t() MsgBox Selection.Cells.Count End Sub 126、Application.OnKey "{F11}", "ccc"禁用F11 127、'选中A列除A1外的第一个非空单元格 [a65536].End(xlUp).Offset(1, 0).Select 128、Private Sub CommandButton1_Click() On Error GoTo ad '注意后面的ad，这是错误处理的用法 i = Range("a1").Value Sheets(CStr(i)).Select ret = MsgBox("是否覆盖", vbYesNo, "") If ret = vbYes Then Range("A5:C7").Copy Sheets(CStr(i)).Range("A1") '重点在copy之后 Else Sheets.Add.Ncom = i & ".2" Range("A5:C7").Copy Sheets(CStr(i & ".2")).Range("A1") End If End ad: Sheets.Add.Ncom = i '工作表名的变化是可见的 Range("A5:C7").Copy Sheets(CStr(i)).Range("A1") End Sub 129、用变量取代Sheet1中的“1” For i = 1 To 3 Sheets("sheet" & i).Range("A2") = "1234" Next 130、中英对照 English 繁體中文 簡体中文 Absolute Referencing 絕對參照 绝对引用

Active Cell 現存儲存格 活动单元格 Add-in 增益集 加载宏 Address 位址 地址 Array 陣列 数组 Array Formula 陣列公式 数组公式 Audit 稽核 审核 Bold 粗體 粗体 Bug 蟲 Bug Cell 儲存格 单元格 Circular Reference 循環參照 循环引用 Code 程式碼 代码 Column 欄 列 Command 指令 命令 Cocomnt 註解 注释 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 超連結 超级链接 Icomdiate Window 即時運算視窗 立即窗口 Indent 縮排 缩进 Insert chā入 chā入 Internet 互聯網 因特网 Italic 斜體 斜体 Label 標籤 标签 Link 連結 链接 Loop 迴圈 循环 Macro 巨集 宏 Member 成員 成员 Method 方法 方法 Microsoft 微軟 微软 Module 模組 模块 Newsgroup 新聞組 新闻组 Number Format 數字格式 数字格式 Object 物件 对象 Object Browser 瀏覽物件 对象浏览器 Office Assistant Office小幫手 Office助手 Options 選項 选项 Parcomter 參數 参数 Parcomter 引數 参数 Path 路徑（檔案的） 路径 Precedent 前導 先例 Program 程式 程序 Program/Subroutine 程序 过程 Project 專案 工程 Property 屬xìng 属xìng Query 查詢 查询 Range 範圍 范围 Relative Referencing 相對參照 相对引用 Right-click (on mouse) 右按 右击 Row 列 行 Scatter Chart ＸＹ散佈圖 XY散点图 Scroll Bar 捲軸 滚动条 Select 選取 选择 Single 單精度浮點數 单精度浮点数 Single-click (on mouse) 單按 单击 Smart Tag 智慧標籤 智能标记 Soft Copy 軟本 软拷贝 Sort 排序 排序 Spinner 微調按鈕 微调按钮 Statcomnt 陳述式 表达式 Strikethrough Line 刪除線 删除线

String 字串 字符串 Subscript 下標 上标 Superscript 上標 下标 Tab 索引標籤 Tab Template 範本 模板 Text 文字 文本 Toolbar 工作列 工具栏 Tools 工具 工具 Transpose 轉置 转置 Trendline 趨勢線 趋势线 Underline 底線 下划线 Validation 驗證 确认 Variable 變數 变量 View 檢視 视图 Visual Basic Editor Visual Basic 編輯器 Visual Basic 编辑器 Watch 監看式 监视 Wildcards（＊或？） 萬用字元 通配符 Window 視窗 窗口 Wizard 精靈 向导 Workbook 活頁簿 工作簿 Worksheet 工作表 工作表