VBA常用技巧

【实例截图】

【核心代码】

VBA常用技巧
目录
VBA常用技巧	1
第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	仅复制数值到另一区域	31
8-1	使用选择性粘贴	31
8-2	直接赋值的方法	31
技巧9	单元格自动进入编辑状态	32
技巧10	禁用单元格拖放功能	33
技巧11	单元格格式操作	34
11-1	单元格字体格式设置	34
11-2	设置单元格内部格式	35
11-3	为单元格区域添加边框	36
11-4	灵活设置单元格的行高列宽	39
技巧12	单元格中的数据有效性	40
12-1	在单元格中建立数据有效性	40
12-2	判断单元格是否存在数据有效性	41
12-3	动态的数据有效性	42
12-4	自动展开数据有效性下拉列表	44
技巧13	单元格中的公式	45
13-1	在单元格中写入公式	45
13-2	检查单元格是否含有公式	46
13-3	判断单元格公式是否存在错误	47
13-4	取得单元格中公式的引用单元格	48
13-5	将单元格中的公式转换为数值	49
技巧14	单元格中的批注	50
14-1	判断单元格是否存在批注	50
14-2	为单元格添加批注	51
14-3	删除单元格中的批注	52
技巧15	合并单元格操作	53
15-1	判断单元格区域是否存在合并单元格	53
15-2	合并单元格时连接每个单元格的文本	54
15-3	合并内容相同的连续单元格	55
15-4	取消合并单元格时在每个单元格中保留内容	57
技巧16	高亮显示单元格区域	58
技巧17	双击被保护单元格时不显示提示消息框	60
技巧18	重新计算工作表指定区域	61
技巧19	录入数据后单元格自动保护	62
技巧20	工作表事件Target参数的使用方法	63
20-1	使用单元格的Address 属性	64
20-2	使用Column属性和Row属性	64
20-3	使用Intersect方法	64
第2章	Worksheet（工作表）对象	66
技巧21	引用工作表的方式	66
21-1	使用工作表的名称	66
21-2	使用工作表的索引号	66
21-3	使用工作表的代码名称	67
21-4	使用ActiveSheet属性引用活动工作表	67
技巧22	选择工作表的方法	68
技巧23	遍历工作表的方法	69
23-1	使用For...Next 语句	69
23-2	使用For Each...Next 语句	71
技巧24	在工作表中上下翻页	72
技巧25	工作表的添加与删除	73
技巧26	禁止删除指定工作表	77
技巧27	自动建立工作表目录	79
技巧28	工作表的深度隐藏	81
技巧29	防止更改工作表的名称	83
技巧30	工作表中一次插入多行	84
技巧31	删除工作表中的空行	86
技巧32	删除工作表的重复行	87
技巧33	定位删除特定内容所在的行	89
技巧34	判断是否选中整行	90
技巧35	限制工作表的滚动区域	91
技巧36	复制自动筛选后的数据区域	93
技巧37	使用高级筛选获得不重复记录	94
技巧38	工作表的保护与解除保护	96
技巧39	奇偶页打印	98
第3章	Wordbook（工作簿）对象	100
技巧40	工作簿的引用方法	100
40-1	使用工作簿的名称	100
40-2	使用工作簿的索引号	100
40-3	使用ThisWorkbook	101
40-4	使用ActiveWorkbook	102
技巧41	新建工作簿文件	102
技巧42	打开指定的工作簿	104
技巧43	判断指定工作簿是否打开	107
43-1	遍历Workbooks集合方法	107
43-2	错误处理方法	108
技巧44	禁用宏则关闭工作簿	109
技巧45	关闭工作簿不显示保存对话框	112
45-1	使用Close方法关闭工作簿	113
45-2	单击工作簿关闭按钮关闭工作簿	114
技巧46	禁用工作簿的关闭按钮	114
技巧47	保存工作簿的方法	116
47-1	使用Save方法	116
47-2	直接保存为另一文件名	116
47-3	保存工作簿副本	116
技巧48	保存指定工作表为工作簿文件	117
技巧49	打印预览时不触发事件	119
技巧50	设置工作簿文档属性信息	121
技巧51	不打开工作簿取得其他工作簿数据	122
51-1	使用公式	122
51-2	使用GetObject函数	123
51-3	隐藏Application对象	124
51-4	使用ExecuteExcel4Macro方法	125
51-5	使用SQL连接	126
技巧52	返回窗口的可视区域地址	127
第4章	Shape（图形）、Chart（图表）对象	129
技巧53	在工作表中添加图形	129
技巧54	导出工作表中的图片	134
技巧55	在工作表中添加艺术字	136
技巧56	遍历工作表中的图形	138
技巧57	移动、旋转图片	140
技巧58	工作表中自动插入图片	142
技巧59	固定工作表中图形的位置	144
技巧60	使用VBA自动生成图表	146
技巧61	使用独立窗口显示图表	150
技巧62	导出工作表中的图表	151
技巧63	多图表制作	152
第5章	Application对象	156
技巧64	取得Excel版本信息	156
技巧65	取得当前用户名称	157
技巧66	Excel中的“定时器”	157
技巧67	设置活动打印机的名称	160
技巧68	屏蔽、改变组合键的功能	160
技巧69	设置Excel窗口标题栏	161
技巧70	自定义Excel状态栏	163
技巧71	灵活退出Excel	163
技巧72	隐藏Excel主窗口	164
72-1	设置Application对象的Visible属性	164
72-2	将窗口移出屏幕	165
72-3	设置工作簿作为加载宏运行	167
第6章	使用对话框	168
技巧73	使用Msgbox函数	168
73-1	显示简单的提示信息	168
73-2	定制个性化的消息框	169
73-3	获得消息框的返回值	170
73-4	在消息框中排版	172
73-5	对齐消息框中显示的信息	173
技巧74	自动关闭的消息框	175
74-1	使用WshShell.Popup方法显示消息框	175
74-2	使用API函数显示消息框	176
技巧75	使用InputBox函数	177
75-1	简单的数据输入	177
75-2	使用对话框输入密码	179
技巧76	使用InputBox方法	181
76-1	输入指定类型的数据	181
76-2	获得单元格区域地址	183
技巧77	内置对话框	184
77-1	调用内置的对话框	185
77-2	获取选定文件的文件名	187
77-3	使用“另存为”对话框	189
技巧78	调用操作系统“关于”对话框	191
第7章	菜单和工具栏	193
技巧79	在菜单中添加菜单项	193
技巧80	在菜单栏指定位置添加菜单	196
技巧81	屏蔽和删除工作表菜单	198
技巧82	改变系统菜单的操作	199
技巧83	定制自己的系统菜单	200
技巧84	改变菜单按钮图标	206
技巧85	右键快捷菜单增加菜单项	207
技巧86	自定义右键快捷菜单	208
技巧87	使用右键菜单制作数据有效性	211
技巧88	禁用工作表右键菜单	213
技巧89	创建自定义工具栏	214
技巧90	自定义工具栏按钮图标	217
技巧91	自定义工作簿图标	218
技巧92	移除工作表的最小最大化和关闭按钮	220
技巧93	在工具栏上添加下拉列表框	220
技巧94	屏蔽工作表的复制功能	222
技巧95	禁用工具栏的自定义	224
技巧96	屏蔽所有的命令栏	226
技巧97	恢复Excel的命令栏	228
第8章	控件与用户窗体	230
技巧98	限制文本框的输入	230
技巧99	文本框添加右键快捷菜单	232
技巧100	文本框回车自动输入	236
技巧101	自动选择文本框内容	237
技巧102	设置文本框数据格式	239
技巧103	限制文本框的输入长度	240
技巧104	将光标返回文本框中	241
技巧105	文本框的自动换行	243
技巧106	多个文本框数据相加	245
技巧107	控件跟随活动单元格	246
技巧108	高亮显示按钮	247
技巧109	组合框和列表框添加列表项的方法	249
109-1	使用RowSource属性添加列表项	249
109-2	使用List属性添加列表项	250
109-3	使用AddItem方法添加列表项	251
技巧110	去除列表框数据源的重复值和空格	253
技巧111	移动列表框条目	255
技巧112	允许多项选择的列表框	258
技巧113	多列组合框和列表框的设置	261
113-1	多列组合框和列表框添加列表项	261
113-2	多列列表框写入工作表	263
技巧114	输入时逐步提示信息	265
技巧115	二级组合框	272
技巧116	使用DTP控件输入日期	274
技巧117	使用RefEdit控件选择区域	277
技巧118	如何注册控件	278
技巧119	遍历控件的方法	282
119-1	使用名称中的变量遍历控件	282
119-2	使用对象类型遍历控件	283
119-3	使用程序标识符遍历控件	284
119-4	使用名称中的变量遍历图形	286
119-5	使用FormControlType属性遍历图形	286
技巧120	使微调框最小变动量小于1	288
技巧121	不打印工作表中的控件	289
121-1	设置控件格式	289
121-2	设置控件的printobjcet属性	291
技巧122	在框架中使用滚动条	291
技巧123	使用多页控件	294
技巧124	标签文字垂直居中对齐	295
技巧125	使用TabStrip控件	297
技巧126	显示GIF动画图片	299
技巧127	播放Flash文件	302
技巧128	在工作表中添加窗体控件	304
128-1	使用AddFormControl方法	305
128-2	使用Add方法	307
技巧129	在工作表中添加ActiveX控件	309
129-1	使用Add方法	310
129-2	使用AddOLEObject方法	312
技巧130	使用spreadsheet控件	314
技巧131	使用Listview控件	317
131-1	使用Listview控件显示数据列表	317
131-2	在Listview控件中使用复选框	320
131-3	调整Listview控件的行距	322
131-4	在Listview控件中排序	325
131-5	Listview控件的图标设置	326
技巧132	调用非模式窗体	329
技巧133	进度条的制作	330
133-1	使用进度条控件	331
133-2	使用标签控件	332
技巧134	使用TreeView控件显示层次	335
技巧135	用户窗体添加图标	339
技巧136	用户窗体添加最大最小化按纽	341
技巧137	禁用窗体标题栏的关闭按钮	343
技巧138	屏蔽窗体标题栏的关闭按钮	344
技巧139	无标题栏和边框的窗体	345
技巧140	制作年月选择窗体	347
技巧141	自定义窗体中的鼠标指针类型	350
技巧142	调整窗体的显示位置	351
技巧143	由鼠标确定窗体显示位置	353
技巧144	用户窗体的打印	354
技巧145	使用自定义颜色设置窗体颜色	356
技巧146	在窗体中显示图表	357
146-1	使用Export方法	357
146-2	使用API函数	358
技巧147	窗体运行时调整控件大小	360
技巧148	在用户窗体上添加菜单	363
技巧149	在用户窗体上添加工具栏	367
技巧150	使用代码添加窗体及控件	372
技巧151	用户窗体的全屏显示	378
151-1	设置用户窗体为应用程序的大小	379
151-2	根据屏幕分辨率进行设置	379
技巧152	在用户窗体上添加状态栏	380
第9章	函数的使用	385
技巧153	调用工作表函数求和	385
技巧154	查找最大、最小值	385
技巧155	不重复值的录入	387
技巧156	获得当月的最后一天	389
技巧157	四舍五入运算	390
157-1	极小值修正法	390
157-2	调用工作表函数法	391
技巧158	使用字符串函数	392
技巧159	使用日期函数	393
技巧160	判断是否为数值	397
技巧161	格式化数值、日期和时间	399
技巧162	个人所得税自定义函数	401
技巧163	人民币大写函数	403
技巧164	列号转换为列标	405
技巧165	判断工作表是否为空表	406
技巧166	查找指定工作表	407
技巧167	查找指定工作簿是否打开	408
技巧168	取得应用程序的安装路径	409
技巧169	数组的使用	410
169-1	代码运行时创建数组	410
169-2	文本转换为数组	412
169-3	使用动态数组去除重复值	413
第10章	文件操作	417
技巧170	导入文本文件	417
170-1	使用查询表导入	417
170-2	使用Open 语句导入	418
170-3	使用OpenText方法	420
技巧171	将数据写入文本文件	421
171-1	使用Print # 语句	421
171-2	另存为文本文件	423
技巧172	文件修改的日期和时间	424
技巧173	查找文件或文件夹	425
技巧174	获得当前文件夹的名称	427
技巧175	创建和删除文件夹	427
技巧176	重命名文件或文件夹	428
技巧177	复制指定的文件	429
技巧178	删除指定的文件	430
技巧179	搜索特定的文件	431
技巧180	使用WSH处理文件	433
180-1	获取文件信息	433
180-2	查找文件	435
180-3	移动文件	436
180-4	复制文件	437
180-5	删除文件	437
180-6	创建文件夹	438
180-7	复制文件夹	439
180-8	移动文件夹	440
180-9	删除文件夹	441
180-10	导入文本文件	441
180-11	创建文本文件	443
第11章	其他应用	446
技巧181	取得电脑名称	446
技巧182	取得逻辑盘序列号	447
技巧183	使用API取得硬盘信息	448
技巧184	使用数字签名	449
技巧185	暂停代码的运行	454
技巧186	定时关机	456
技巧187	打开指定的网页	457
技巧188	VBE的操作	457
188-1	添加模块和过程	458
188-2	建立事件过程	459
188-3	模块的导入与导出	461
188-4	删除宏代码	462
技巧189	保护VBA代码	464
189-1	设置工程密码	465
189-2	设置“工程不可查看”	465
技巧190	优化代码	467
190-1	关闭屏幕刷新	468
190-2	使用工作表函数	469
190-3	使用更快的单元格操作方法	470
190-4	使用With语句引用对象	471
190-5	少用激活或选择语句	473
技巧191	取得文件的基本名称	474
技巧192	防止用户中断代码运行	475
技巧193	加班费计算表	477
技巧194	制作发放条	503
技巧195	费用统计表	506
技巧196	职工花名册	522
技巧197	收据系统	537
技巧198	职工考勤系统	574