VBA常用技巧代码解析 yuanzhuping1VBAVBAVBAVBA常用常用常用常用技巧技巧技巧技巧目录目录目录目录VBAVBAVBAVBA常用技巧常用技巧常用技巧常用技巧 ------------------------------------------------------------------------------------------------------- 1第1章 Range（单元格）对象 -------------------------------------------------------------------- 10技巧1 单元格的引用方法 ---------------------------------------------------------------------- 101-1 使用Range属性 ----------------------------------------------------------------------- 101-2 使用Cells属性 ------------------------------------------------------------------------ 111-3 使用快捷记号 -------------------------------------------------------------------------- 111-4 使用Offset属性 ----------------------------------------------------------------------- 121-5 使用Resize属性 ----------------------------------------------------------------------- 131-6 使用Union方法 ----------------------------------------------------------------------- 141-7 使用UsedRange属性 ---------------------------------------------------------------- 141-8 使用CurrentRegion属性 ------------------------------------------------------------ 15技巧2 选定单元格区域的方法---------------------------------------------------------------- 152-1 使用Select方法 ----------------------------------------------------------------------- 152-2 使用Activate方法 -------------------------------------------------------------------- 162-3 使用Goto方法 ------------------------------------------------------------------------- 17技巧3 获得指定行、列中的最后一个非空单元格 -------------------------------------- 17技巧4 定位单元格 ------------------------------------------------------------------------------- 20技巧5 查找单元格 ------------------------------------------------------------------------------- 215-1 使用Find方法 ------------------------------------------------------------------------- 215-2 使用Like运算符 ---------------------------------------------------------------------- 25技巧6 替换单元格内字符串 ------------------------------------------------------------------- 26技巧7 复制单元格区域 ------------------------------------------------------------------------- 27技巧8 仅复制数值到另一区域---------------------------------------------------------------- 308-1 使用选择性粘贴 ----------------------------------------------------------------------- 308-2 直接赋值的方法 ----------------------------------------------------------------------- 31技巧9 单元格自动进入编辑状态 ------------------------------------------------------------ 32技巧10 禁用单元格拖放功能 ----------------------------------------------------------------- 32技巧11 单元格格式操作 ----------------------------------------------------------------------- 3311-1 单元格字体格式设置 --------------------------------------------------------------- 3311-2 设置单元格内部格式 --------------------------------------------------------------- 3511-3 为单元格区域添加边框 ------------------------------------------------------------ 3611-4 灵活设置单元格的行高列宽 ------------------------------------------------------ 38技巧12 单元格中的数据有效性 -------------------------------------------------------------- 3912-1 在单元格中建立数据有效性 ------------------------------------------------------ 3912-2 判断单元格是否存在数据有效性 ------------------------------------------------ 4112-3 动态的数据有效性 ------------------------------------------------------------------ 4112-4 自动展开数据有效性下拉列表 --------------------------------------------------- 43技巧13 单元格中的公式 ----------------------------------------------------------------------- 44 VBA常用技巧代码解析yuanzhuping213-1在单元格中写入公式 --------------------------------------------------------------- 4413-2 检查单元格是否含有公式 --------------------------------------------------------- 4513-3 判断单元格公式是否存在错误 --------------------------------------------------- 4613-4 取得单元格中公式的引用单元格 ------------------------------------------------ 4713-5 将单元格中的公式转换为数值 --------------------------------------------------- 48技巧14 单元格中的批注 ----------------------------------------------------------------------- 4914-1 判断单元格是否存在批注 --------------------------------------------------------- 4914-2 为单元格添加批注 ------------------------------------------------------------------ 5014-3 删除单元格中的批注 --------------------------------------------------------------- 51技巧15 合并单元格操作 ----------------------------------------------------------------------- 5215-1 判断单元格区域是否存在合并单元格 ----------------------------------------- 5215-2 合并单元格时连接每个单元格的文本 ----------------------------------------- 5315-3 合并内容相同的连续单元格 ------------------------------------------------------ 5415-4 取消合并单元格时在每个单元格中保留内容 -------------------------------- 56技巧16 高亮显示单元格区域 ----------------------------------------------------------------- 57技巧17 双击被保护单元格时不显示提示消息框 ---------------------------------------- 58技巧18 重新计算工作表指定区域 ----------------------------------------------------------- 60技巧19 录入数据后单元格自动保护 -------------------------------------------------------- 60技巧20 工作表事件Target参数的使用方法 ---------------------------------------------- 6220-1 使用单元格的Address 属性 ------------------------------------------------------ 6220-2 使用Column属性和Row属性 -------------------------------------------------- 6320-3 使用Intersect方法 ------------------------------------------------------------------- 63第2章 Worksheet（工作表）对象 --------------------------------------------------------------- 65技巧21 引用工作表的方式 -------------------------------------------------------------------- 6521-1 使用工作表的名称 ------------------------------------------------------------------ 6521-2 使用工作表的索引号 --------------------------------------------------------------- 6521-3 使用工作表的代码名称 ------------------------------------------------------------ 6621-4 使用ActiveSheet属性引用活动工作表 ---------------------------------------- 66技巧22 选择工作表的方法 -------------------------------------------------------------------- 67技巧23 遍历工作表的方法 -------------------------------------------------------------------- 6823-1 使用For...Next 语句 ---------------------------------------------------------------- 6823-2 使用For Each...Next 语句 --------------------------------------------------------- 70技巧24 在工作表中上下翻页 ----------------------------------------------------------------- 71技巧25 工作表的添加与删除 ----------------------------------------------------------------- 72技巧26 禁止删除指定工作表 ----------------------------------------------------------------- 76技巧27 自动建立工作表目录 ----------------------------------------------------------------- 78技巧28 工作表的深度隐藏 -------------------------------------------------------------------- 80技巧29 防止更改工作表的名称 -------------------------------------------------------------- 82技巧30 工作表中一次插入多行 -------------------------------------------------------------- 83技巧31 删除工作表中的空行 ----------------------------------------------------------------- 84技巧32 删除工作表的重复行 ----------------------------------------------------------------- 86技巧33 定位删除特定内容所在的行 -------------------------------------------------------- 88技巧34 判断是否选中整行 -------------------------------------------------------------------- 89技巧35 限制工作表的滚动区域 -------------------------------------------------------------- 90 VBA常用技巧代码解析yuanzhuping3技巧36 复制自动筛选后的数据区域 -------------------------------------------------------- 91技巧37 使用高级筛选获得不重复记录 ----------------------------------------------------- 93技巧38 工作表的保护与解除保护 ----------------------------------------------------------- 94技巧39 奇偶页打印 ------------------------------------------------------------------------------ 97第3章 Wordbook（工作簿）对象 --------------------------------------------------------------- 99技巧40 工作簿的引用方法 -------------------------------------------------------------------- 9940-1 使用工作簿的名称 ------------------------------------------------------------------ 9940-2 使用工作簿的索引号 --------------------------------------------------------------- 9940-3 使用ThisWorkbook ---------------------------------------------------------------- 10040-4 使用ActiveWorkbook ------------------------------------------------------------- 101技巧41 新建工作簿文件 --------------------------------------------------------------------- 101技巧42 打开指定的工作簿 ------------------------------------------------------------------ 103技巧43 判断指定工作簿是否打开 --------------------------------------------------------- 10643-1 遍历Workbooks集合方法 ------------------------------------------------------- 10643-2 错误处理方法 ----------------------------------------------------------------------- 106技巧44 禁用宏则关闭工作簿 --------------------------------------------------------------- 107技巧45 关闭工作簿不显示保存对话框 --------------------------------------------------- 11145-1 使用Close方法关闭工作簿 ----------------------------------------------------- 11145-2 单击工作簿关闭按钮关闭工作簿 ---------------------------------------------- 113技巧46 禁用工作簿的关闭按钮 ------------------------------------------------------------ 113技巧47 保存工作簿的方法 ------------------------------------------------------------------ 11547-1 使用Save方法 --------------------------------------------------------------------- 11547-2 直接保存为另一文件名 ---------------------------------------------------------- 11547-3 保存工作簿副本 ------------------------------------------------------------------- 115技巧48 保存指定工作表为工作簿文件 --------------------------------------------------- 116技巧49 打印预览时不触发事件 ------------------------------------------------------------ 118技巧50 设置工作簿文档属性信息 --------------------------------------------------------- 120技巧51 不打开工作簿取得其他工作簿数据 -------------------------------------------- 12151-1 使用公式 ----------------------------------------------------------------------------- 12151-2 使用GetObject函数 -------------------------------------------------------------- 12251-3 隐藏Application对象 ------------------------------------------------------------- 12351-4 使用ExecuteExcel4Macro方法 ------------------------------------------------ 12451-5 使用SQL连接 --------------------------------------------------------------------- 125技巧52 返回窗口的可视区域地址 --------------------------------------------------------- 126第4章 Shape（图形）、Chart（图表）对象 ------------------------------------------------ 128技巧53 在工作表中添加图形 --------------------------------------------------------------- 128技巧54 导出工作表中的图片 --------------------------------------------------------------- 133技巧55 在工作表中添加艺术字 ------------------------------------------------------------ 135技巧56 遍历工作表中的图形 --------------------------------------------------------------- 137技巧57 移动、旋转图片 --------------------------------------------------------------------- 139技巧58 工作表中自动插入图片 ------------------------------------------------------------ 140技巧59 固定工作表中图形的位置 --------------------------------------------------------- 143技巧60 使用VBA自动生成图表 ---------------------------------------------------------- 145技巧61 使用独立窗口显示图表 ------------------------------------------------------------ 149 VBA常用技巧代码解析yuanzhuping4技巧62 导出工作表中的图表 --------------------------------------------------------------- 150技巧63 多图表制作 ---------------------------------------------------------------------------- 151第5章 Application对象 -------------------------------------------------------------------------- 155技巧64 取得Excel版本信息 ---------------------------------------------------------------- 155技巧65 取得当前用户名称 ------------------------------------------------------------------ 156技巧66 Excel中的“定时器” -------------------------------------------------------------- 156技巧67 设置活动打印机的名称 ------------------------------------------------------------ 158技巧68 屏蔽、改变组合键的功能 --------------------------------------------------------- 159技巧69 设置Excel窗口标题栏 ------------------------------------------------------------- 160技巧70 自定义Excel状态栏 ---------------------------------------------------------------- 161技巧71 灵活退出Excel ----------------------------------------------------------------------- 162技巧72 隐藏Excel主窗口 ------------------------------------------------------------------- 16372-1 设置Application对象的Visible属性 ----------------------------------------- 16372-2 将窗口移出屏幕 ------------------------------------------------------------------- 16472-3 设置工作簿作为加载宏运行 ---------------------------------------------------- 165第6章使用对话框 -------------------------------------------------------------------------------- 167技巧73 使用Msgbox函数 ------------------------------------------------------------------- 16773-1 显示简单的提示信息 ------------------------------------------------------------- 16773-2 定制个性化的消息框 ------------------------------------------------------------- 16873-3 获得消息框的返回值 ------------------------------------------------------------- 16973-4 在消息框中排版 ------------------------------------------------------------------- 17173-5 对齐消息框中显示的信息 ------------------------------------------------------- 172技巧74 自动关闭的消息框 ------------------------------------------------------------------ 17474-1 使用WshShell.Popup方法显示消息框 --------------------------------------- 17474-2 使用API函数显示消息框 ------------------------------------------------------- 175技巧75 使用InputBox函数 ----------------------------------------------------------------- 17675-1 简单的数据输入 ------------------------------------------------------------------- 17675-2 使用对话框输入密码 ------------------------------------------------------------- 178技巧76 使用InputBox方法 ----------------------------------------------------------------- 18076-1 输入指定类型的数据 ------------------------------------------------------------- 18076-2 获得单元格区域地址 ------------------------------------------------------------- 182技巧77 内置对话框 ---------------------------------------------------------------------------- 18377-1 调用内置的对话框 ---------------------------------------------------------------- 18377-2 获取选定文件的文件名 ---------------------------------------------------------- 18677-3 使用“另存为”对话框 ---------------------------------------------------------- 188技巧78 调用操作系统“关于”对话框 ------------------------------------------------------ 190第7章菜单和工具栏 ----------------------------------------------------------------------------- 192技巧79 在菜单中添加菜单项 --------------------------------------------------------------- 192技巧80 在菜单栏指定位置添加菜单 ------------------------------------------------------ 195技巧81 屏蔽和删除工作表菜单 ------------------------------------------------------------ 197技巧82 改变系统菜单的操作 --------------------------------------------------------------- 198技巧83 定制自己的系统菜单 --------------------------------------------------------------- 199技巧84 改变菜单按钮图标 ------------------------------------------------------------------ 205技巧85 右键快捷菜单增加菜单项 --------------------------------------------------------- 206 VBA常用技巧代码解析yuanzhuping5技巧86 自定义右键快捷菜单 --------------------------------------------------------------- 207技巧87 使用右键菜单制作数据有效性 --------------------------------------------------- 210技巧88 禁用工作表右键菜单 --------------------------------------------------------------- 212技巧89 创建自定义工具栏 ------------------------------------------------------------------ 213技巧90 自定义工具栏按钮图标 ------------------------------------------------------------ 216技巧91 自定义工作簿图标 ------------------------------------------------------------------ 217技巧92 移除工作表的最小最大化和关闭按钮 ----------------------------------------- 218技巧93 在工具栏上添加下拉列表框 ------------------------------------------------------ 219技巧94 屏蔽工作表的复制功能 ------------------------------------------------------------ 221技巧95 禁用工具栏的自定义 --------------------------------------------------------------- 222技巧96 屏蔽所有的命令栏 ------------------------------------------------------------------ 225技巧97 恢复Excel的命令栏 ---------------------------------------------------------------- 226第8章控件与用户窗体 -------------------------------------------------------------------------- 228技巧98 限制文本框的输入 ------------------------------------------------------------------ 228技巧99 文本框添加右键快捷菜单 --------------------------------------------------------- 230技巧100 文本框回车自动输入 ------------------------------------------------------------- 234技巧101 自动选择文本框内容 ------------------------------------------------------------- 235技巧102 设置文本框数据格式 ------------------------------------------------------------- 236技巧103 限制文本框的输入长度 ---------------------------------------------------------- 238技巧104 将光标返回文本框中 ------------------------------------------------------------- 239技巧105 文本框的自动换行 ----------------------------------------------------------------- 241技巧106 多个文本框数据相加 ------------------------------------------------------------- 243技巧107 控件跟随活动单元格 ------------------------------------------------------------- 244技巧108 高亮显示按钮 ----------------------------------------------------------------------- 245技巧109 组合框和列表框添加列表项的方法 ------------------------------------------- 247109-1 使用RowSource属性添加列表项 -------------------------------------------- 247109-2 使用List属性添加列表项 ----------------------------------------------------- 248109-3 使用AddItem方法添加列表项 ----------------------------------------------- 249技巧110 去除列表框数据源的重复值和空格 ------------------------------------------- 251技巧111 移动列表框条目 -------------------------------------------------------------------- 253技巧112 允许多项选择的列表框----------------------------------------------------------- 256技巧113 多列组合框和列表框的设置 ---------------------------------------------------- 259113-1 多列组合框和列表框添加列表项 -------------------------------------------- 259113-2 多列列表框写入工作表 --------------------------------------------------------- 261技巧114 输入时逐步提示信息 -------------------------------------------------------------- 263技巧115 二级组合框 -------------------------------------------------------------------------- 270技巧116 使用DTP控件输入日期 --------------------------------------------------------- 272技巧117 使用RefEdit控件选择区域 ----------------------------------------------------- 275技巧118 如何注册控件 ----------------------------------------------------------------------- 276技巧119 遍历控件的方法 -------------------------------------------------------------------- 279119-1 使用名称中的变量遍历控件 -------------------------------------------------- 279119-2 使用对象类型遍历控件 --------------------------------------------------------- 281119-3 使用程序标识符遍历控件 ------------------------------------------------------ 282119-4 使用名称中的变量遍历图形 -------------------------------------------------- 283 VBA常用技巧代码解析yuanzhuping6119-5使用FormControlType属性遍历图形 --------------------------------------- 284技巧120 使微调框最小变动量小于1 ----------------------------------------------------- 285技巧121 不打印工作表中的控件 ---------------------------------------------------------- 287121-1 设置控件格式 --------------------------------------------------------------------- 287121-2 设置控件的printobjcet属性 --------------------------------------------------- 289技巧122 在框架中使用滚动条 ------------------------------------------------------------- 289技巧123 使用多页控件 ----------------------------------------------------------------------- 291技巧124 标签文字垂直居中对齐 ---------------------------------------------------------- 293技巧125 使用TabStrip控件 ----------------------------------------------------------------- 295技巧126 显示GIF动画图片 ---------------------------------------------------------------- 297技巧127 播放Flash文件 --------------------------------------------------------------------- 300技巧128 在工作表中添加窗体控件 ------------------------------------------------------- 302128-1 使用AddFormControl方法 ---------------------------------------------------- 303128-2 使用Add方法 -------------------------------------------------------------------- 305技巧129 在工作表中添加ActiveX控件 ------------------------------------------------- 307129-1 使用Add方法 -------------------------------------------------------------------- 308129-2 使用AddOLEObject方法 ------------------------------------------------------ 310技巧130 使用spreadsheet控件 ------------------------------------------------------------- 311技巧131 使用Listview控件 ----------------------------------------------------------------- 314131-1 使用Listview控件显示数据列表 -------------------------------------------- 314131-2 在Listview控件中使用复选框 ----------------------------------------------- 317131-3 调整Listview控件的行距 ----------------------------------------------------- 319131-4 在Listview控件中排序 --------------------------------------------------------- 322131-5 Listview控件的图标设置 ------------------------------------------------------- 323技巧132 调用非模式窗体 -------------------------------------------------------------------- 326技巧133 进度条的制作 ----------------------------------------------------------------------- 328133-1 使用进度条控件 ------------------------------------------------------------------ 328133-2 使用标签控件 --------------------------------------------------------------------- 330技巧134 使用TreeView控件显示层次 --------------------------------------------------- 333技巧135 用户窗体添加图标 ----------------------------------------------------------------- 337技巧136 用户窗体添加最大最小化按纽 ------------------------------------------------- 339技巧137 禁用窗体标题栏的关闭按钮 ---------------------------------------------------- 340技巧138 屏蔽窗体标题栏的关闭按钮 ---------------------------------------------------- 341技巧139 无标题栏和边框的窗体 ---------------------------------------------------------- 343技巧140 制作年月选择窗体 ----------------------------------------------------------------- 344技巧141 自定义窗体中的鼠标指针类型 ------------------------------------------------- 347技巧142 调整窗体的显示位置 ------------------------------------------------------------- 348技巧143 由鼠标确定窗体显示位置 ------------------------------------------------------- 350技巧144 用户窗体的打印 -------------------------------------------------------------------- 351技巧145 使用自定义颜色设置窗体颜色 ------------------------------------------------- 353技巧146 在窗体中显示图表 ----------------------------------------------------------------- 354146-1 使用Export方法 ----------------------------------------------------------------- 354146-2 使用API函数 --------------------------------------------------------------------- 356技巧147 窗体运行时调整控件大小 ------------------------------------------------------- 357 VBA常用技巧代码解析yuanzhuping7技巧148 在用户窗体上添加菜单 ---------------------------------------------------------- 360技巧149 在用户窗体上添加工具栏 ------------------------------------------------------- 364技巧150 使用代码添加窗体及控件 ------------------------------------------------------- 369技巧151 用户窗体的全屏显示 ------------------------------------------------------------- 375151-1 设置用户窗体为应用程序的大小 -------------------------------------------- 375151-2 根据屏幕分辨率进行设置 ----------------------------------------------------- 376技巧152 在用户窗体上添加状态栏 ------------------------------------------------------- 377第9章函数的使用 -------------------------------------------------------------------------------- 381技巧153 调用工作表函数求和 ------------------------------------------------------------- 381技巧154 查找最大、最小值 ----------------------------------------------------------------- 381技巧155 不重复值的录入 -------------------------------------------------------------------- 383技巧156 获得当月的最后一天 ------------------------------------------------------------- 385技巧157 四舍五入运算 ----------------------------------------------------------------------- 386157-1 极小值修正法 --------------------------------------------------------------------- 386157-2 调用工作表函数法 --------------------------------------------------------------- 387技巧158 使用字符串函数 -------------------------------------------------------------------- 387技巧159 使用日期函数 ----------------------------------------------------------------------- 389技巧160 判断是否为数值 -------------------------------------------------------------------- 393技巧161 格式化数值、日期和时间 ------------------------------------------------------- 394技巧162 个人所得税自定义函数 ---------------------------------------------------------- 396技巧163 人民币大写函数 -------------------------------------------------------------------- 398技巧164 列号转换为列标 -------------------------------------------------------------------- 400技巧165 判断工作表是否为空表 ---------------------------------------------------------- 401技巧166 查找指定工作表 -------------------------------------------------------------------- 402技巧167 查找指定工作簿是否打开 ------------------------------------------------------- 404技巧168 取得应用程序的安装路径 ------------------------------------------------------- 404技巧169 数组的使用 -------------------------------------------------------------------------- 406169-1 代码运行时创建数组 ------------------------------------------------------------ 406169-2 文本转换为数组 ------------------------------------------------------------------ 407169-3 使用动态数组去除重复值 ----------------------------------------------------- 409第10章文件操作 ----------------------------------------------------------------------------------- 412技巧170 导入文本文件 ----------------------------------------------------------------------- 412170-1 使用查询表导入 ------------------------------------------------------------------ 412170-2 使用Open 语句导入 ------------------------------------------------------------ 413170-3 使用OpenText方法 ------------------------------------------------------------- 415技巧171 将数据写入文本文件 ------------------------------------------------------------- 416171-1 使用Print # 语句 ----------------------------------------------------------------- 416171-2 另存为文本文件 ------------------------------------------------------------------ 418技巧172 文件修改的日期和时间 ---------------------------------------------------------- 419技巧173 查找文件或文件夹 ----------------------------------------------------------------- 420技巧174 获得当前文件夹的名称 ---------------------------------------------------------- 422技巧175 创建和删除文件夹 ----------------------------------------------------------------- 422技巧176 重命名文件或文件夹 ------------------------------------------------------------- 423技巧177 复制指定的文件 -------------------------------------------------------------------- 424 VBA常用技巧代码解析yuanzhuping8技巧178 删除指定的文件 -------------------------------------------------------------------- 425技巧179 搜索特定的文件 -------------------------------------------------------------------- 426技巧180 使用WSH处理文件 -------------------------------------------------------------- 428180-1 获取文件信息 --------------------------------------------------------------------- 428180-2 查找文件 --------------------------------------------------------------------------- 430180-3 移动文件 --------------------------------------------------------------------------- 431180-4 复制文件 --------------------------------------------------------------------------- 431180-5 删除文件 --------------------------------------------------------------------------- 432180-6 创建文件夹 ------------------------------------------------------------------------ 433180-7 复制文件夹 ------------------------------------------------------------------------ 434180-8 移动文件夹 ------------------------------------------------------------------------ 435180-9 删除文件夹 ------------------------------------------------------------------------ 435180-10 导入文本文件-------------------------------------------------------------------- 436180-11 创建文本文件 -------------------------------------------------------------------- 438第11章其他应用 ----------------------------------------------------------------------------------- 441技巧181 取得电脑名称 ----------------------------------------------------------------------- 441技巧182 取得逻辑盘序列号 ----------------------------------------------------------------- 442技巧183 使用API取得硬盘信息 ---------------------------------------------------------- 443技巧184 使用数字签名 ----------------------------------------------------------------------- 444技巧185 暂停代码的运行 -------------------------------------------------------------------- 449技巧186 定时关机 ----------------------------------------------------------------------------- 450技巧187 打开指定的网页 -------------------------------------------------------------------- 451技巧188 VBE的操作 -------------------------------------------------------------------------- 452188-1 添加模块和过程 ------------------------------------------------------------------ 452188-2 建立事件过程 --------------------------------------------------------------------- 454188-3 模块的导入与导出 --------------------------------------------------------------- 456188-4 删除宏代码 ------------------------------------------------------------------------ 457技巧189 保护VBA代码 --------------------------------------------------------------------- 459189-1 设置工程密码 --------------------------------------------------------------------- 459189-2 设置“工程不可查看” --------------------------------------------------------- 460技巧190 优化代码 ----------------------------------------------------------------------------- 462190-1 关闭屏幕刷新 --------------------------------------------------------------------- 462190-2 使用工作表函数 ------------------------------------------------------------------ 464。