Excel VBA活用范例实用手册

Chapter 1 Application对象实用操作技巧 1
1-1 获取Excel系统信息 1
001 获取Excel的安装路径 1
002 获取Excel的当前用户名 2
003 获取启动Excel的路径 2
004 获取打开Excel文件时的默认路径 2
005 获取模板保存的默认路径 3
006 获取Excel主窗口标题栏的名称 3
007 获取Excel窗口的状态（大小） 4
008 获取Excel主窗口的高度和宽度 4
009 获取Excel主窗口的左边界位置和顶端位置 5
010 获取在Excel主窗口中一个窗口所能占有的*大高度和宽度 5
011 获取当前打印机名称 6
1-2 自定义Excel窗口 6Chapter 1 Application对象实用操作技巧 1 1-1 获取Excel系统信息 1 001 获取Excel的安装路径 1 002 获取Excel的当前用户名 2 003 获取启动Excel的路径 2 004 获取打开Excel文件时的默认路径 2 005 获取模板保存的默认路径 3 006 获取Excel主窗口标题栏的名称 3 007 获取Excel窗口的状态（大小） 4 008 获取Excel主窗口的高度和宽度 4 009 获取Excel主窗口的左边界位置和顶端位置 5 010 获取在Excel主窗口中一个窗口所能占有的*大高度和宽度 5 011 获取当前打印机名称 6 1-2 自定义Excel窗口 6 012 改变Excel窗口大小 6 013 改变Excel的显示位置 7 014 将Excel移动到屏幕以外 8 015 隐藏Excel 9 016 改变Excel的标题文字 9 017 删除Excel的标题文字 10 018 将Excel设置为全屏显示 11 019 在状态栏中显示信息 12 020 显示/隐藏状态栏 13 021 显示/隐藏编辑栏 13 1-3 自定义Excel操作选项 14 022 切换手动/自动计算 14 023 切换A1引用样式/R1C1引用样式 15 024 设置按【Enter】键后单元格的移动方向 16 025 设置*近使用的文件清单中的*多文件数 16 026 不显示*近使用的文件列表 17 027 设置新工作簿中的工作表个数 18 028 设置文件的默认位置 18 029 设置保存自动恢复文件的时间间隔和保存位置 19 030 停止屏幕刷新 19 031 使事件无效 20 032 使取消键无效 21 033 不显示警告信息对话框 22 034 设置使用的打印机 22 035 安装加载宏 23 036 打开带有链接的文件时询问用户是否更新链接 23 1-4 获取文件名 24 037 利用GetOpenFilename方法获取文件名 24 038 利用GetOpenFilename方法获取某类型文件名 24 039 改变GetOpenFilename方法的默认路径 25 040 改变GetOpenFilename方法的标题文字 25 041 使用GetOpenFilename方法时出现错误的处理 26 042 利用GetSaveAsFilename方法获取文件名 26 1-5 换算计量单位 27 043 利用CentimetersToPoints方法将计量单位从cm转换为磅 27 044 利用InchesToPoints方法将计量单位从in转换为磅 28 1-6 显示内置对话框 28 045 显示Excel内置对话框 29 046 显示常用的Excel内置对话框 29 1-7 操作输入对话框（InputBox方法） 31 047 在单元格中输入公式 33 048 在单元格中输入数字 33 049 在单元格中输入文本 34 050 单元格区域引用 34 051 在单元格中输入数字和文本 35 052 为输入对话框设置默认值 35 1-8 制定程序运行计划 36 053 在指定时间运行程序（之一） 36 054 在指定时间运行程序（之二） 37 055 计划在未来运行一定时间的宏 38 056 计划每隔一段时间运行宏 38 057 取消以前计划运行的宏 39 058 结束应用程序 39 Chapter 2 Workbook（工作簿）对象实用操作技巧 41 2-1 引用工作簿 41 001 通过索引指定工作簿 41 002 通过名称指定工作簿 42 003 引用当前的活动工作簿 43 004 引用当前宏代码运行的工作簿 43 005 引用新建的工作簿 44 2-2 获取工作簿基本信息 44 006 判断工作簿是否已经打开 44 007 判断工作簿是否已经保存（之一） 45 008 判断工作簿是否已经保存（之二） 46 009 判断工作簿是否为以只读方式打开的 46 010 判断工作簿是否为加载宏工作簿 47 011 获取所有打开的工作簿名称 47 012 获取当前活动工作簿的名称 48 013 获取当前宏代码运行的工作簿名称 48 014 获取所有打开的工作簿路径 49 015 获取当前活动工作簿的路径 49 016 获取当前宏代码运行的工作簿路径 50 017 获取包括完整路径的工作簿名称 50 018 获取工作簿的基本名称 50 019 获取工作簿的文档属性 51 020 获取工作簿的保护状态 52 2-3 设定工作簿基本信息 52 021 将工作簿设定为已保存 52 022 设定工作簿的文档属性信息 53 2-4 操作工作簿 54 023 通过指定文件名打开工作簿 54 024 通过指定索引打开工作簿 54 025 通过对话框打开工作簿（之一） 55 026 通过对话框打开工作簿（之二） 55 027 在不更新链接的情况下打开工作簿 56 028 新建工作簿，并以新名称保存 57 029 保护工作簿 57 030 撤销工作簿保护 58 031 保存工作簿 58 032 另存工作簿 59 033 设定保护密码并另存工作簿 59 034 设定写保护密码并另存工作簿 60 035 保存工作簿副本 60 036 通过对话框指定文件名和保存位置并保存工作簿（之一） 61 037 通过对话框指定文件名和保存位置并保存工作簿（之二） 61 038 关闭工作簿，不保存 62 039 关闭工作簿前进行保存 63 040 关闭所有打开的工作簿，不保存 63 041 关闭所有打开的工作簿，保存所有更改 64 042 删除工作簿中所有定义的名称 64 2-5 引用工作簿窗口 65 043 引用当前工作簿窗口 65 044 引用新建的工作簿窗口 65 045 引用特定工作簿的窗口 66 2-6 获取工作簿窗口的基本信息 66 046 获取工作簿窗口的拆分状态 66 047 获取工作簿窗口的窗格信息 67 048 获取工作簿窗口的冻结窗格状态 68 049 获取工作簿窗口的各种显示状态 69 050 获取工作簿窗口的大小状态 70 2-7 自定义工作簿窗口 70 051 改变工作簿窗口的大小 71 052 改变工作簿窗口的显示位置 71 053 拆分窗口并冻结窗格 72 054 取消工作簿窗口的拆分和冻结 73 055 设定工作簿窗口的各种显示状态 73 056 设定工作簿窗口的显示比例 74 057 隐藏/显示工作簿窗口 75 058 将指定的单元格显示在窗口的左上角 75 059 设置工作簿窗口的网格线颜色 76 2-8 操作工作簿窗口 76 060 新建窗口 77 061 重排窗口 77 062 关闭窗口 78 2-9 Workbook对象事件 79 063 当打开工作簿时执行程序 79 064 当关闭工作簿时执行程序 79 065 当激活工作簿时执行程序 80 066 当工作簿不是活动状态时执行程序 80 067 当保存工作簿时执行程序 80 068 当打印工作簿时执行程序 81 069 当新建工作表时执行程序 81 070 当工作表被激活时执行程序 82 071 当工作表不是活动状态时执行程序 82 072 当工作表被计算时执行程序 83 073 当双击工作表时执行程序 83 074 当右击工作表时执行程序 83 075 当工作表任何单元格数据发生变更时执行程序 84 Chapter 3 Worksheet（工作表）对象实用操作技巧 85 3-1 引用工作表 85 001 通过索引引用工作表 85 002 通过名称引用工作表 86 003 通过Sheets集合引用工作表 87 004 引用当前活动工作表 87 005 引用**个工作表 88 006 引用*后一个工作表 89 007 引用所有的工作表 89 008 引用指定的多个工作表 90 009 引用新建的工作表 90 010 引用包含特定单元格的工作表 91 011 引用工作表名称中包含特定字符串的工作表 91 3-2 获取工作表的基本信息 92 012 获取工作表名称 92 013 获取全部工作表名称 93 014 判断某个表是否为工作表 93 015 获取工作表的显示状态 94 016 判断工作表是否处于筛选模式 94 017 判断工作表是否存在 95 018 判断工作表是否自动重新计算 96 019 判断工作表被保护时是否可以进行自动筛选的操作 96 020 判断工作表被保护时是否可以选定单元格 97 3-3 设置工作表的基本信息 97 021 重命名工作表 97 022 重命名新建的工作表 98 023 改变工作表标签颜色 98 024 设置工作表的显示状态 99 025 设置工作表是否自动重新计算 99 026 设定工作表被保护时是否可以进行自动筛选的操作 100 027 设定工作表被保护时是否可以选定单元格 100 3-4 操作工作表 101 028 新建工作表并重命名 101 029 复制工作表 102 030 移动工作表 102 031 删除工作表 103 032 保护工作表 103 033 撤销保护工作表 104 034 按工作表名称重新排列工作表 104 035 选定工作表 105 036 激活工作表 106 037 删除工作表级的定义名称 106 038 显示/隐藏行列标题 107 3-5 Worksheet对象事件 107 039 激活非活动工作表时执行程序 108 040 当对工作表进行计算时执行程序 108 041 当单元格数据发生变化时执行程序 109 042 当选定单元格区域发生变化时执行程序 109 043 超链接被执行时执行程序 110 044 当双击工作表时执行程序 110 045 当在工作表中右击时执行程序 111 Chapter 4 Range（单元格）对象实用操作技巧 112 4-1 引用单元格 112 001 通过Range属性引用某个单元格 112 002 通过Range属性引用连续的单元格区域 113 003 通过Range属性引用不连续的单元格区域 113 004 通过字符串的方式引用某个单元格 114 005 通过字符串的方式引用连续的单元格区域 114 006 通过Range属性引用单列 115 007 通过Columns属性引用单列 115 008 通过Range属性引用连续的多列 115 009 通过Range属性引用不连续的多列 116 010 通过Range属性引用单行 116 011 通过Range属性引用连续的多行 117 012 通过Range属性引用不连续的多行 117 013 通过定义名称引用单元格区域 117 014 引用单元格的快捷方式 118 015 通过Cells属性引用某个单元格 119 016 通过Cells属性引用工作表的全部单元格 119 017 通过Cells属性引用连续的单元格区域（之一） 120 018 通过Cells属性引用连续的单元格区域（之二） 120 019 引用活动单元格 121 020 引用已选定的单元格 121 021 引用已使用的单元格区域 122 022 利用Offset属性动态引用某个单元格 122 023 利用Resize属性引用变更为指定大小的单元格区域 123 024 引用工作表的特殊单元格 123 025 引用合并单元格区域 125 026 引用定义名称所指定的单元格区域 125 027 引用输入了任何内容的某列*后一行单元格 126 028 引用输入了任何内容的某行*后一列单元格 127 029 引用多个非连续单元格区域的集合（Union方法） 127 030 引用多个非连续单元格区域的集合（循环处理） 128 031 引用多个单元格区域的交叉区域 129 032 获取计算公式的所有引用单元格 130 033 获取计算公式中引用的其他工作表单元格 130 034 获取某个单元格的从属单元格 131 035 引用某个单元格所在的整个行或整个列 131 036 引用单元格区域所在的行范围和列范围 132 037 引用隐藏的行或列 133 038 引用锁定的单元格 133 039 引用不连续单元格区域集合内的各个连续的单元格区域 134 040 引用工作簿窗口范围内所有的单元格 135 041 引用设定了允许滚动区域的单元格区域 136 042 引用指定了左上角和右下角的单元格区域（之一） 136 043 引用指定了左上角和右下角的单元格区域（之二） 137 044 引用指定了左上角和右下角的单元格区域（之三） 137信息