VBA常用技巧（代码+详细图文解释）.doc

发布时间：2022-06-14 发布人：admin 分类：说明书资料大小：18.05M 资料格式：doc 举报版权申诉

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第1页.png

第1页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第2页.png

第2页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第3页.png

第3页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第4页.png

第4页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第5页.png

第5页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第6页.png

第6页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第7页.png

第7页 / 共603页

d84bfd95-5233-421a-95ff-466d39bc5126.doc.pdf-第8页.png

第8页 / 共603页

VBA常用技巧

第1章 Range（单元格）对象

技巧1 单元格的引用方法

1-1使用Range属性

1-2使用Cells属性

1-3使用快捷记号

1-4使用Offset属性

1-5使用Resize属性

1-6使用Union方法

1-7使用UsedRange属性

1-8使用CurrentRegion属性

技巧2 选定单元格区域的方法

2-1使用Select方法

2-2使用Activate方法

2-3使用Goto方法

技巧3 获得指定行、列中的最后一个非空单元格

技巧4 定位单元格

技巧5 查找单元格

5-1使用Find方法

5-2使用Like运算符

技巧6 替换单元格内字符串

技巧7 复制单元格区域

技巧8 仅复制数值到另一区域

8-1使用选择性粘贴

8-2直接赋值的方法

技巧9 单元格自动进入编辑状态

技巧10 禁用单元格拖放功能

技巧11 单元格格式操作

11-1单元格字体格式设置

11-2设置单元格内部格式

11-3为单元格区域添加边框

11-4灵活设置单元格的行高列宽

技巧12 单元格中的数据有效性

12-1在单元格中建立数据有效性

12-2判断单元格是否存在数据有效性

12-3动态的数据有效性

12-4自动展开数据有效性下拉列表

技巧13 单元格中的公式

13-1在单元格中写入公式

13-2检查单元格是否含有公式

13-3判断单元格公式是否存在错误

13-4取得单元格中公式的引用单元格

13-5将单元格中的公式转换为数值

技巧14 单元格中的批注

14-1判断单元格是否存在批注

14-2为单元格添加批注

14-3删除单元格中的批注

技巧15 合并单元格操作

15-1判断单元格区域是否存在合并单元格

15-2合并单元格时连接每个单元格的文本

15-3合并内容相同的连续单元格

15-4取消合并单元格时在每个单元格中保留内容

技巧16 高亮显示单元格区域

技巧17 双击被保护单元格时不显示提示消息框

技巧18 重新计算工作表指定区域

技巧19 录入数据后单元格自动保护

技巧20 工作表事件Target参数的使用方法

20-1使用单元格的Address 属性

20-2使用Column属性和Row属性

20-3使用Intersect方法

第2章 Worksheet（工作表）对象

技巧21 引用工作表的方式

21-1使用工作表的名称

21-2使用工作表的索引号

21-3使用工作表的代码名称

21-4使用ActiveSheet属性引用活动工作表

技巧22 选择工作表的方法

技巧23 遍历工作表的方法

23-1使用For...Next 语句

23-2使用For Each...Next 语句

技巧24 在工作表中上下翻页

技巧25 工作表的添加与删除

技巧26 禁止删除指定工作表

技巧27 自动建立工作表目录

技巧28 工作表的深度隐藏

技巧29 防止更改工作表的名称

技巧30 工作表中一次插入多行

技巧31 删除工作表中的空行

技巧32 删除工作表的重复行

技巧33 定位删除特定内容所在的行

技巧34 判断是否选中整行

技巧35 限制工作表的滚动区域

技巧36 复制自动筛选后的数据区域

技巧37 使用高级筛选获得不重复记录

技巧38 工作表的保护与解除保护

技巧39 奇偶页打印

第3章 Wordbook（工作簿）对象

技巧40 工作簿的引用方法

40-1使用工作簿的名称

40-2使用工作簿的索引号

40-3使用ThisWorkbook

40-4使用ActiveWorkbook

技巧41 新建工作簿文件

技巧42 打开指定的工作簿

技巧43 判断指定工作簿是否打开

43-1遍历Workbooks集合方法

43-2错误处理方法

技巧44 禁用宏则关闭工作簿

技巧45 关闭工作簿不显示保存对话框

45-1使用Close方法关闭工作簿

45-2单击工作簿关闭按钮关闭工作簿

技巧46 禁用工作簿的关闭按钮

技巧47 保存工作簿的方法

47-1使用Save方法

47-2直接保存为另一文件名

47-3保存工作簿副本

技巧48 保存指定工作表为工作簿文件

技巧49 打印预览时不触发事件

技巧50 设置工作簿文档属性信息

技巧51 不打开工作簿取得其他工作簿数据

51-1使用公式

51-2使用GetObject函数

51-3隐藏Application对象

51-4使用ExecuteExcel4Macro方法

51-5使用SQL连接

技巧52 返回窗口的可视区域地址

第4章 Shape（图形）、Chart（图表）对象

技巧53 在工作表中添加图形

技巧54 导出工作表中的图片

技巧55 在工作表中添加艺术字

技巧56 遍历工作表中的图形

技巧57 移动、旋转图片

技巧58 工作表中自动插入图片

技巧59 固定工作表中图形的位置

技巧60 使用VBA自动生成图表

技巧61 使用独立窗口显示图表

技巧62 导出工作表中的图表

技巧63 多图表制作

第5章 Application对象

技巧64 取得Excel版本信息

技巧65 取得当前用户名称

技巧66 Excel中的“定时器”

技巧67 设置活动打印机的名称

技巧68 屏蔽、改变组合键的功能

技巧69 设置Excel窗口标题栏

技巧70 自定义Excel状态栏

技巧71 灵活退出Excel

技巧72 隐藏Excel主窗口

72-1设置Application对象的Visible属性

72-2将窗口移出屏幕

72-3设置工作簿作为加载宏运行

第6章使用对话框

技巧73 使用Msgbox函数

73-1显示简单的提示信息

73-2定制个性化的消息框

73-3获得消息框的返回值

73-4在消息框中排版

73-5对齐消息框中显示的信息

技巧74 自动关闭的消息框

74-1使用WshShell.Popup方法显示消息框

74-2使用API函数显示消息框

技巧75 使用InputBox函数

75-1简单的数据输入

75-2使用对话框输入密码

技巧76 使用InputBox方法

76-1输入指定类型的数据

76-2获得单元格区域地址

技巧77 内置对话框

77-1调用内置的对话框

77-2获取选定文件的文件名

77-3使用“另存为”对话框

技巧78 调用操作系统“关于”对话框

第7章菜单和工具栏

技巧79 在菜单中添加菜单项

技巧80 在菜单栏指定位置添加菜单

技巧81 屏蔽和删除工作表菜单

技巧82 改变系统菜单的操作

技巧83 定制自己的系统菜单

技巧84 改变菜单按钮图标

技巧85 右键快捷菜单增加菜单项

技巧86 自定义右键快捷菜单

技巧87 使用右键菜单制作数据有效性

技巧88 禁用工作表右键菜单

技巧89 创建自定义工具栏

技巧90 自定义工具栏按钮图标

技巧91 自定义工作簿图标

技巧92 移除工作表的最小最大化和关闭按钮

技巧93 在工具栏上添加下拉列表框

技巧94 屏蔽工作表的复制功能

技巧95 禁用工具栏的自定义

技巧96 屏蔽所有的命令栏

技巧97 恢复Excel的命令栏

第8章控件与用户窗体

技巧98 限制文本框的输入

技巧99 文本框添加右键快捷菜单

技巧100 文本框回车自动输入

技巧101 自动选择文本框内容

技巧102 设置文本框数据格式

技巧103 限制文本框的输入长度

技巧104 将光标返回文本框中

技巧105 文本框的自动换行

技巧106 多个文本框数据相加

技巧107 控件跟随活动单元格

技巧108 高亮显示按钮

技巧109 组合框和列表框添加列表项的方法

109-1使用RowSource属性添加列表项

109-2使用List属性添加列表项

109-3使用AddItem方法添加列表项

技巧110 去除列表框数据源的重复值和空格

技巧111 移动列表框条目

技巧112 允许多项选择的列表框

技巧113 多列组合框和列表框的设置

113-1多列组合框和列表框添加列表项

113-2多列列表框写入工作表

技巧114 输入时逐步提示信息

技巧115 二级组合框

技巧116 使用DTP控件输入日期

技巧117 使用RefEdit控件选择区域

技巧118 如何注册控件

技巧119 遍历控件的方法

119-1使用名称中的变量遍历控件

119-2使用对象类型遍历控件

119-3使用程序标识符遍历控件

119-4使用名称中的变量遍历图形

119-5使用FormControlType属性遍历图形

技巧120 使微调框最小变动量小于1

技巧121 不打印工作表中的控件

121-1设置控件格式

121-2设置控件的printobjcet属性

技巧122 在框架中使用滚动条

技巧123 使用多页控件

技巧124 标签文字垂直居中对齐

技巧125 使用TabStrip控件

技巧126 显示GIF动画图片

技巧127 播放Flash文件

技巧128 在工作表中添加窗体控件

128-1使用AddFormControl方法

128-2使用Add方法

技巧129 在工作表中添加ActiveX控件

129-1使用Add方法

129-2使用AddOLEObject方法

技巧130 使用spreadsheet控件

技巧131 使用Listview控件

131-1使用Listview控件显示数据列表

131-2在Listview控件中使用复选框

131-3调整Listview控件的行距

131-4在Listview控件中排序

131-5Listview控件的图标设置

技巧132 调用非模式窗体

技巧133 进度条的制作

133-1使用进度条控件

133-2使用标签控件

技巧134 使用TreeView控件显示层次

技巧135 用户窗体添加图标

技巧136 用户窗体添加最大最小化按纽

技巧137 禁用窗体标题栏的关闭按钮

技巧138 屏蔽窗体标题栏的关闭按钮

技巧139 无标题栏和边框的窗体

技巧140 制作年月选择窗体

技巧141 自定义窗体中的鼠标指针类型

技巧142 调整窗体的显示位置

技巧143 由鼠标确定窗体显示位置

技巧144 用户窗体的打印

技巧145 使用自定义颜色设置窗体颜色

技巧146 在窗体中显示图表

146-1使用Export方法

146-2使用API函数

技巧147 窗体运行时调整控件大小

技巧148 在用户窗体上添加菜单

技巧149 在用户窗体上添加工具栏

技巧150 使用代码添加窗体及控件

技巧151 用户窗体的全屏显示

151-1设置用户窗体为应用程序的大小

151-2根据屏幕分辨率进行设置

技巧152 在用户窗体上添加状态栏

第9章函数的使用

技巧153 调用工作表函数求和

技巧154 查找最大、最小值

技巧155 不重复值的录入

技巧156 获得当月的最后一天

技巧157 四舍五入运算

157-1极小值修正法

157-2调用工作表函数法

技巧158 使用字符串函数

技巧159 使用日期函数

技巧160 判断是否为数值

技巧161 格式化数值、日期和时间

技巧162 个人所得税自定义函数

技巧163 人民币大写函数

技巧164 列号转换为列标

技巧165 判断工作表是否为空表

技巧166 查找指定工作表

技巧167 查找指定工作簿是否打开

技巧168 取得应用程序的安装路径

技巧169 数组的使用

169-1代码运行时创建数组

169-2文本转换为数组

169-3使用动态数组去除重复值

第10章文件操作

技巧170 导入文本文件

170-1使用查询表导入

170-2使用Open 语句导入

170-3使用OpenText方法

技巧171 将数据写入文本文件

171-1使用Print # 语句

171-2另存为文本文件

技巧172 文件修改的日期和时间

技巧173 查找文件或文件夹

技巧174 获得当前文件夹的名称

技巧175 创建和删除文件夹

技巧176 重命名文件或文件夹

技巧177 复制指定的文件

技巧178 删除指定的文件

技巧179 搜索特定的文件

技巧180 使用WSH处理文件

180-1获取文件信息

180-2查找文件

180-3移动文件

180-4复制文件

180-5删除文件

180-6创建文件夹

180-7复制文件夹

180-8移动文件夹

180-9删除文件夹

180-10导入文本文件

180-11创建文本文件

第11章其他应用

技巧181 取得电脑名称

技巧182 取得逻辑盘序列号

技巧183 使用API取得硬盘信息

技巧184 使用数字签名

技巧185 暂停代码的运行

技巧186 定时关机

技巧187 打开指定的网页

技巧188 VBE的操作

188-1添加模块和过程

188-2建立事件过程

188-3模块的导入与导出

188-4删除宏代码

技巧189 保护VBA代码

189-1设置工程密码

189-2设置“工程不可查看”

技巧190 优化代码

190-1关闭屏幕刷新

190-2使用工作表函数

190-3使用更快的单元格操作方法

190-4使用With语句引用对象

190-5少用激活或选择语句

技巧191 取得文件的基本名称

技巧192 防止用户中断代码运行

技巧193 加班费计算表

技巧194 制作发放条

技巧195 费用统计表

技巧196 职工花名册

技巧197 收据系统

技巧198 职工考勤系统

VBA 常用技巧代码解析 yuanzhuping VBA 常用技巧目录第 1 章 VBA 常用技巧 ---------------------------------------------------------------------------------------------------- 1 Range（单元格）对象 ------------------------------------------------------------------10 技巧 1 单元格的引用方法 --------------------------------------------------------------------10 1-1 使用 Range 属性 ---------------------------------------------------------------------10 1-2 使用 Cells 属性 ---------------------------------------------------------------------- 11 1-3 使用快捷记号 ------------------------------------------------------------------------ 11 1-4 使用 Offset 属性 ---------------------------------------------------------------------12 1-5 使用 Resize 属性 -------------------------------------------------------------------- 13 1-6 使用 Union 方法 ---------------------------------------------------------------------14 1-7 使用 UsedRange 属性 -------------------------------------------------------------- 14 1-8 使用 CurrentRegion 属性 ---------------------------------------------------------- 15 技巧 2 选定单元格区域的方法 --------------------------------------------------------------15 2-1 使用 Select 方法 --------------------------------------------------------------------- 15 2-2 使用 Activate 方法 ------------------------------------------------------------------ 16 2-3 使用 Goto 方法 ---------------------------------------------------------------------- 17 技巧 3 获得指定行、列中的最后一个非空单元格 ------------------------------------- 17 技巧 4 定位单元格 -----------------------------------------------------------------------------20 技巧 5 查找单元格 -----------------------------------------------------------------------------21 5-1 使用 Find 方法 -----------------------------------------------------------------------21 5-2 使用 Like 运算符 --------------------------------------------------------------------25 技巧 6 替换单元格内字符串 -----------------------------------------------------------------26 技巧 7 复制单元格区域 -----------------------------------------------------------------------27 技巧 8 仅复制数值到另一区域 --------------------------------------------------------------30 8-1 使用选择性粘贴 ---------------------------------------------------------------------30 8-2 直接赋值的方法 ---------------------------------------------------------------------31 技巧 9 单元格自动进入编辑状态 ---------------------------------------------------------- 32 技巧 10 禁用单元格拖放功能 --------------------------------------------------------------- 32 技巧 11 单元格格式操作 --------------------------------------------------------------------- 33 11-1 单元格字体格式设置 ------------------------------------------------------------- 33 11-2 设置单元格内部格式 ------------------------------------------------------------- 35 11-3 为单元格区域添加边框 ---------------------------------------------------------- 36 11-4 灵活设置单元格的行高列宽 ---------------------------------------------------- 38 技巧 12 单元格中的数据有效性 ------------------------------------------------------------ 39 12-1 在单元格中建立数据有效性 ---------------------------------------------------- 39 12-2 判断单元格是否存在数据有效性 ---------------------------------------------- 41 12-3 动态的数据有效性 ---------------------------------------------------------------- 41 12-4 自动展开数据有效性下拉列表 ------------------------------------------------- 43 技巧 13 单元格中的公式 --------------------------------------------------------------------- 44 1

VBA 常用技巧代码解析 yuanzhuping 13-1 在单元格中写入公式 ------------------------------------------------------------- 44 13-2 检查单元格是否含有公式 ------------------------------------------------------- 45 13-3 判断单元格公式是否存在错误 ------------------------------------------------- 46 13-4 取得单元格中公式的引用单元格 ---------------------------------------------- 47 13-5 将单元格中的公式转换为数值 ------------------------------------------------- 48 技巧 14 单元格中的批注 --------------------------------------------------------------------- 49 14-1 判断单元格是否存在批注 ------------------------------------------------------- 49 14-2 为单元格添加批注 ---------------------------------------------------------------- 50 14-3 删除单元格中的批注 ------------------------------------------------------------- 51 技巧 15 合并单元格操作 --------------------------------------------------------------------- 52 15-1 判断单元格区域是否存在合并单元格 ---------------------------------------- 52 15-2 合并单元格时连接每个单元格的文本 ---------------------------------------- 53 15-3 合并内容相同的连续单元格 ---------------------------------------------------- 54 15-4 取消合并单元格时在每个单元格中保留内容 -------------------------------56 技巧 16 高亮显示单元格区域 --------------------------------------------------------------- 57 技巧 17 双击被保护单元格时不显示提示消息框 ---------------------------------------58 技巧 18 重新计算工作表指定区域 --------------------------------------------------------- 60 技巧 19 录入数据后单元格自动保护 ------------------------------------------------------60 技巧 20 工作表事件 Target 参数的使用方法 ---------------------------------------------62 20-1 使用单元格的 Address 属性 ---------------------------------------------------- 62 20-2 使用 Column 属性和 Row 属性 -------------------------------------------------63 20-3 使用 Intersect 方法 ---------------------------------------------------------------- 63 Worksheet（工作表）对象 -------------------------------------------------------------65 技巧 21 引用工作表的方式 ------------------------------------------------------------------ 65 21-1 使用工作表的名称 ---------------------------------------------------------------- 65 21-2 使用工作表的索引号 ------------------------------------------------------------- 65 21-3 使用工作表的代码名称 ---------------------------------------------------------- 66 21-4 使用 ActiveSheet 属性引用活动工作表 ---------------------------------------66 技巧 22 选择工作表的方法 ------------------------------------------------------------------ 67 技巧 23 遍历工作表的方法 ------------------------------------------------------------------ 68 23-1 使用 For...Next 语句 -------------------------------------------------------------- 68 23-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 第 2 章 2

第 3 章第 4 章 VBA 常用技巧代码解析 yuanzhuping 技巧 36 复制自动筛选后的数据区域 ------------------------------------------------------91 技巧 37 使用高级筛选获得不重复记录 ---------------------------------------------------93 技巧 38 工作表的保护与解除保护 --------------------------------------------------------- 94 技巧 39 奇偶页打印 --------------------------------------------------------------------------- 97 Wordbook（工作簿）对象 -------------------------------------------------------------99 技巧 40 工作簿的引用方法 ------------------------------------------------------------------ 99 40-1 使用工作簿的名称 ---------------------------------------------------------------- 99 40-2 使用工作簿的索引号 ------------------------------------------------------------- 99 40-3 使用 ThisWorkbook -------------------------------------------------------------- 100 40-4 使用 ActiveWorkbook ----------------------------------------------------------- 101 技巧 41 新建工作簿文件 --------------------------------------------------------------------101 技巧 42 打开指定的工作簿 -----------------------------------------------------------------103 技巧 43 判断指定工作簿是否打开 ------------------------------------------------------- 106 43-1 遍历 Workbooks 集合方法 ----------------------------------------------------- 106 43-2 错误处理方法 ---------------------------------------------------------------------106 技巧 44 禁用宏则关闭工作簿 --------------------------------------------------------------107 技巧 45 关闭工作簿不显示保存对话框 --------------------------------------------------111 45-1 使用 Close 方法关闭工作簿 ----------------------------------------------------111 45-2 单击工作簿关闭按钮关闭工作簿 ---------------------------------------------113 技巧 46 禁用工作簿的关闭按钮 -----------------------------------------------------------113 技巧 47 保存工作簿的方法 -----------------------------------------------------------------115 47-1 使用 Save 方法 --------------------------------------------------------------------115 47-2 直接保存为另一文件名 ---------------------------------------------------------115 47-3 保存工作簿副本 ------------------------------------------------------------------ 115 技巧 48 保存指定工作表为工作簿文件 ------------------------------------------------- 116 技巧 49 打印预览时不触发事件 -----------------------------------------------------------118 技巧 50 设置工作簿文档属性信息 ------------------------------------------------------- 120 技巧 51 不打开工作簿取得其他工作簿数据 ------------------------------------------- 121 51-1 使用公式 --------------------------------------------------------------------------- 121 51-2 使用 GetObject 函数 ------------------------------------------------------------- 122 51-3 隐藏 Application 对象 ----------------------------------------------------------- 123 51-4 使用 ExecuteExcel4Macro 方法 ----------------------------------------------- 124 51-5 使用 SQL 连接 --------------------------------------------------------------------125 技巧 52 返回窗口的可视区域地址 ------------------------------------------------------- 126 Shape（图形）、Chart（图表）对象 ----------------------------------------------- 128 技巧 53 在工作表中添加图形 --------------------------------------------------------------128 技巧 54 导出工作表中的图片 --------------------------------------------------------------133 技巧 55 在工作表中添加艺术字 ---------------------------------------------------------- 135 技巧 56 遍历工作表中的图形 --------------------------------------------------------------137 技巧 57 移动、旋转图片 --------------------------------------------------------------------139 技巧 58 工作表中自动插入图片 ---------------------------------------------------------- 140 技巧 59 固定工作表中图形的位置 ------------------------------------------------------- 143 技巧 60 使用 VBA 自动生成图表 ---------------------------------------------------------145 技巧 61 使用独立窗口显示图表 ---------------------------------------------------------- 149 3

第 5 章第 6 章第 7 章 VBA 常用技巧代码解析 yuanzhuping 技巧 62 导出工作表中的图表 --------------------------------------------------------------150 技巧 63 多图表制作 --------------------------------------------------------------------------151 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 主窗口 ----------------------------------------------------------------- 163 72-1 设置 Application 对象的 Visible 属性 ----------------------------------------163 72-2 将窗口移出屏幕 ------------------------------------------------------------------164 72-3 设置工作簿作为加载宏运行 ---------------------------------------------------165 使用对话框 ------------------------------------------------------------------------------ 167 技巧 73 使用 Msgbox 函数 ----------------------------------------------------------------- 167 73-1 显示简单的提示信息 ------------------------------------------------------------167 73-2 定制个性化的消息框 ------------------------------------------------------------168 73-3 获得消息框的返回值 ------------------------------------------------------------169 73-4 在消息框中排版 ------------------------------------------------------------------171 73-5 对齐消息框中显示的信息 ------------------------------------------------------172 技巧 74 自动关闭的消息框 -----------------------------------------------------------------174 74-1 使用 WshShell.Popup 方法显示消息框 --------------------------------------174 74-2 使用 API 函数显示消息框 ----------------------------------------------------- 175 技巧 75 使用 InputBox 函数 ----------------------------------------------------------------176 75-1 简单的数据输入 ------------------------------------------------------------------176 75-2 使用对话框输入密码 ------------------------------------------------------------178 技巧 76 使用 InputBox 方法 ----------------------------------------------------------------180 76-1 输入指定类型的数据 ------------------------------------------------------------180 76-2 获得单元格区域地址 ------------------------------------------------------------182 技巧 77 内置对话框 --------------------------------------------------------------------------183 77-1 调用内置的对话框 ---------------------------------------------------------------183 77-2 获取选定文件的文件名 ---------------------------------------------------------186 77-3 使用“另存为”对话框 ---------------------------------------------------------188 技巧 78 调用操作系统“关于”对话框 -----------------------------------------------------190 菜单和工具栏 --------------------------------------------------------------------------- 192 技巧 79 在菜单中添加菜单项 --------------------------------------------------------------192 技巧 80 在菜单栏指定位置添加菜单 ---------------------------------------------------- 195 技巧 81 屏蔽和删除工作表菜单 ---------------------------------------------------------- 197 技巧 82 改变系统菜单的操作 --------------------------------------------------------------198 技巧 83 定制自己的系统菜单 --------------------------------------------------------------199 技巧 84 改变菜单按钮图标 -----------------------------------------------------------------205 技巧 85 右键快捷菜单增加菜单项 ------------------------------------------------------- 206 4

VBA 常用技巧代码解析 yuanzhuping 第 8 章技巧 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 控件与用户窗体 ------------------------------------------------------------------------ 228 技巧 98 限制文本框的输入 -----------------------------------------------------------------228 技巧 99 文本框添加右键快捷菜单 ------------------------------------------------------- 230 技巧 100 文本框回车自动输入 ------------------------------------------------------------ 234 技巧 101 自动选择文本框内容 ------------------------------------------------------------ 235 技巧 102 设置文本框数据格式 ------------------------------------------------------------ 236 技巧 103 限制文本框的输入长度 --------------------------------------------------------- 238 技巧 104 将光标返回文本框中 ------------------------------------------------------------ 239 技巧 105 文本框的自动换行 --------------------------------------------------------------- 241 技巧 106 多个文本框数据相加 ------------------------------------------------------------ 243 技巧 107 控件跟随活动单元格 ------------------------------------------------------------ 244 技巧 108 高亮显示按钮 --------------------------------------------------------------------- 245 技巧 109 组合框和列表框添加列表项的方法 ------------------------------------------247 109-1 使用 RowSource 属性添加列表项 -------------------------------------------247 109-2 使用 List 属性添加列表项 ---------------------------------------------------- 248 109-3 使用 AddItem 方法添加列表项 ----------------------------------------------249 技巧 110 去除列表框数据源的重复值和空格 ------------------------------------------251 技巧 111 移动列表框条目 ------------------------------------------------------------------ 253 技巧 112 允许多项选择的列表框 --------------------------------------------------------- 256 技巧 113 多列组合框和列表框的设置 --------------------------------------------------- 259 113-1 多列组合框和列表框添加列表项 ------------------------------------------- 259 113-2 多列列表框写入工作表 ------------------------------------------------------- 261 技巧 114 输入时逐步提示信息 ------------------------------------------------------------ 263 技巧 115 二级组合框 ------------------------------------------------------------------------ 270 技巧 116 使用 DTP 控件输入日期 --------------------------------------------------------272 技巧 117 使用 RefEdit 控件选择区域 ---------------------------------------------------- 275 技巧 118 如何注册控件 --------------------------------------------------------------------- 276 技巧 119 遍历控件的方法 ------------------------------------------------------------------ 279 119-1 使用名称中的变量遍历控件 ------------------------------------------------- 279 119-2 使用对象类型遍历控件 ------------------------------------------------------- 281 119-3 使用程序标识符遍历控件 ---------------------------------------------------- 282 119-4 使用名称中的变量遍历图形 ------------------------------------------------- 283 5

VBA 常用技巧代码解析 yuanzhuping 119-5 使用 FormControlType 属性遍历图形 -------------------------------------- 284 技巧 120 使微调框最小变动量小于 1 ----------------------------------------------------285 技巧 121 不打印工作表中的控件 --------------------------------------------------------- 287 121-1 设置控件格式 ------------------------------------------------------------------- 287 121-2 设置控件的 printobjcet 属性 --------------------------------------------------289 技巧 122 在框架中使用滚动条 ------------------------------------------------------------ 289 技巧 123 使用多页控件 --------------------------------------------------------------------- 291 技巧 124 标签文字垂直居中对齐 --------------------------------------------------------- 293 技巧 125 使用 TabStrip 控件 --------------------------------------------------------------- 295 技巧 126 显示 GIF 动画图片 ---------------------------------------------------------------297 技巧 127 播放 Flash 文件 ------------------------------------------------------------------- 300 技巧 128 在工作表中添加窗体控件 ------------------------------------------------------302 128-1 使用 AddFormControl 方法 ---------------------------------------------------303 128-2 使用 Add 方法 -------------------------------------------------------------------305 技巧 129 在工作表中添加 ActiveX 控件 ------------------------------------------------ 307 129-1 使用 Add 方法 -------------------------------------------------------------------308 129-2 使用 AddOLEObject 方法 -----------------------------------------------------310 技巧 130 使用 spreadsheet 控件 ------------------------------------------------------------311 技巧 131 使用 Listview 控件 --------------------------------------------------------------- 314 131-1 使用 Listview 控件显示数据列表 ------------------------------------------- 314 131-2 在 Listview 控件中使用复选框 ---------------------------------------------- 317 131-3 调整 Listview 控件的行距 ---------------------------------------------------- 319 131-4 在 Listview 控件中排序 ------------------------------------------------------- 322 131-5 Listview 控件的图标设置 ------------------------------------------------------323 技巧 132 调用非模式窗体 ------------------------------------------------------------------ 326 技巧 133 进度条的制作 --------------------------------------------------------------------- 328 133-1 使用进度条控件 ---------------------------------------------------------------- 328 133-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 在窗体中显示图表 --------------------------------------------------------------- 354 146-1 使用 Export 方法 ----------------------------------------------------------------354 146-2 使用 API 函数 ------------------------------------------------------------------- 356 技巧 147 窗体运行时调整控件大小 ------------------------------------------------------357 6

VBA 常用技巧代码解析 yuanzhuping 第 9 章技巧 148 在用户窗体上添加菜单 --------------------------------------------------------- 360 技巧 149 在用户窗体上添加工具栏 ------------------------------------------------------364 技巧 150 使用代码添加窗体及控件 ------------------------------------------------------369 技巧 151 用户窗体的全屏显示 ------------------------------------------------------------ 375 151-1 设置用户窗体为应用程序的大小 ------------------------------------------- 375 151-2 根据屏幕分辨率进行设置 ---------------------------------------------------- 376 技巧 152 在用户窗体上添加状态栏 ------------------------------------------------------377 函数的使用 ------------------------------------------------------------------------------ 381 技巧 153 调用工作表函数求和 ------------------------------------------------------------ 381 技巧 154 查找最大、最小值 --------------------------------------------------------------- 381 技巧 155 不重复值的录入 ------------------------------------------------------------------ 383 技巧 156 获得当月的最后一天 ------------------------------------------------------------ 385 技巧 157 四舍五入运算 --------------------------------------------------------------------- 386 157-1 极小值修正法 ------------------------------------------------------------------- 386 157-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 数组的使用 ------------------------------------------------------------------------ 406 169-1 代码运行时创建数组 ---------------------------------------------------------- 406 169-2 文本转换为数组 ---------------------------------------------------------------- 407 169-3 使用动态数组去除重复值 ---------------------------------------------------- 409 第 10 章文件操作 --------------------------------------------------------------------------------- 412 技巧 170 导入文本文件 --------------------------------------------------------------------- 412 170-1 使用查询表导入 ---------------------------------------------------------------- 412 170-2 使用 Open 语句导入 ---------------------------------------------------------- 413 170-3 使用 OpenText 方法 ------------------------------------------------------------ 415 技巧 171 将数据写入文本文件 ------------------------------------------------------------ 416 171-1 使用 Print # 语句 --------------------------------------------------------------- 416 171-2 另存为文本文件 ---------------------------------------------------------------- 418 技巧 172 文件修改的日期和时间 --------------------------------------------------------- 419 技巧 173 查找文件或文件夹 --------------------------------------------------------------- 420 技巧 174 获得当前文件夹的名称 --------------------------------------------------------- 422 技巧 175 创建和删除文件夹 --------------------------------------------------------------- 422 技巧 176 重命名文件或文件夹 ------------------------------------------------------------ 423 技巧 177 复制指定的文件 ------------------------------------------------------------------ 424 7

VBA 常用技巧代码解析 yuanzhuping 技巧 178 删除指定的文件 ------------------------------------------------------------------ 425 技巧 179 搜索特定的文件 ------------------------------------------------------------------ 426 技巧 180 使用 WSH 处理文件 -------------------------------------------------------------428 180-1 获取文件信息 ------------------------------------------------------------------- 428 180-2 查找文件 ------------------------------------------------------------------------- 430 180-3 移动文件 ------------------------------------------------------------------------- 431 180-4 复制文件 ------------------------------------------------------------------------- 431 180-5 删除文件 ------------------------------------------------------------------------- 432 180-6 创建文件夹 ---------------------------------------------------------------------- 433 180-7 复制文件夹 ---------------------------------------------------------------------- 434 180-8 移动文件夹 ---------------------------------------------------------------------- 435 180-9 删除文件夹 ---------------------------------------------------------------------- 435 180-10 导入文本文件 ------------------------------------------------------------------436 180-11 创建文本文件 ------------------------------------------------------------------ 438 第 11 章其他应用 --------------------------------------------------------------------------------- 441 技巧 181 取得电脑名称 --------------------------------------------------------------------- 441 技巧 182 取得逻辑盘序列号 --------------------------------------------------------------- 442 技巧 183 使用 API 取得硬盘信息 ---------------------------------------------------------443 技巧 184 使用数字签名 --------------------------------------------------------------------- 444 技巧 185 暂停代码的运行 ------------------------------------------------------------------ 449 技巧 186 定时关机 --------------------------------------------------------------------------- 450 技巧 187 打开指定的网页 ------------------------------------------------------------------ 451 技巧 188 VBE 的操作 ------------------------------------------------------------------------ 452 188-1 添加模块和过程 ---------------------------------------------------------------- 452 188-2 建立事件过程 ------------------------------------------------------------------- 454 188-3 模块的导入与导出 ------------------------------------------------------------- 456 188-4 删除宏代码 ---------------------------------------------------------------------- 457 技巧 189 保护 VBA 代码 ------------------------------------------------------------------- 459 189-1 设置工程密码 ------------------------------------------------------------------- 459 189-2 设置“工程不可查看” ------------------------------------------------------- 460 技巧 190 优化代码 --------------------------------------------------------------------------- 462 190-1 关闭屏幕刷新 ------------------------------------------------------------------- 462 190-2 使用工作表函数 ---------------------------------------------------------------- 464 190-3 使用更快的单元格操作方法 ------------------------------------------------- 465 190-4 使用 With 语句引用对象 ------------------------------------------------------466 190-5 少用激活或选择语句 ---------------------------------------------------------- 468 技巧 191 取得文件的基本名称 ------------------------------------------------------------ 469 技巧 192 防止用户中断代码运行 --------------------------------------------------------- 470 技巧 193 加班费计算表 --------------------------------------------------------------------- 472 技巧 194 制作发放条 ------------------------------------------------------------------------ 498 技巧 195 费用统计表 ------------------------------------------------------------------------ 501 技巧 196 职工花名册 ------------------------------------------------------------------------ 516 技巧 197 收据系统 --------------------------------------------------------------------------- 529 技巧 198 职工考勤系统 --------------------------------------------------------------------- 567 8

分享到：

赞收藏

资料库

VBA常用技巧（代码+详细图文解释）.doc

相关推荐

开发技术

热门标签

最新资料