集VBA技巧之大成资源-CSDN文库

需积分: 9 36 浏览量 2009-06-29 10:26:44 上传评论收藏 14.74MB DOC 举报

VBA (Visual Basic for Applications) 是一种嵌入在Microsoft Office应用程序中的编程语言，它允许用户自定义工作流程，自动化重复任务，以及创建复杂的宏和脚本。本篇内容将深入探讨VBA中的一些常用技巧，旨在提升你在Excel、Word、Access等应用中的编程效率。 ### 技巧 1: Range（单元格）对象单元格是Excel中的基本操作单元，而Range对象用于代表一个或多个单元格。以下是一些关键操作： - **1-1 使用Range属性**：`Range("A1")` 选取单元格A1，`Range("A1:C3")` 选取一个矩形区域。 - **1-2 使用Cells属性**：`Cells(1, 1)` 访问第一行第一列的单元格，基于行索引和列索引。 - **1-3 使用快捷记号**：`$A$1` 表示绝对引用，`A1` 表示相对引用。 - **1-4 使用Offset属性**：`Range("A1").Offset(1, 0)` 移动到A1下方的单元格。 - **1-5 使用Resize属性**：`Range("A1").Resize(3, 2)` 将范围扩展为3行2列的新区域。 - **1-6 使用Union方法**：`Union(Range("A1"), Range("B2"))` 合并两个不相邻的范围。 - **1-7 使用UsedRange属性**：返回工作表中已填充数据的最大矩形区域。 - **1-8 使用CurrentRegion属性**：获取当前选区或活动单元格周围的数据区域。 ### 技巧 2: 选定单元格区域的方法选择单元格是进行操作的基础： - **2-1 使用Select方法**：`Range("A1").Select` 选中单元格A1。 - **2-2 使用Activate方法**：`Range("A1").Activate` 使单元格A1成为活动单元格。 - **2-3 使用Goto方法**：`Application.Goto Range("A1")` 跳转到单元格A1。 ### 技巧 3: 获得指定行、列中的最后一个非空单元格找到数据的末尾是常见的需求： ```vba Function LastCellInColumn(column As Integer) As Range Dim rng As Range Set rng = Cells.Find(What:="*", After:=Cells(1, column), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) If Not rng Is Nothing Then Set LastCellInColumn = rng Else Set LastCellInColumn = Cells(1, column) End If End Function ``` ### 技巧 4: 定位单元格根据特定条件定位单元格，如查找特定值： ```vba Sub FindCell() Dim foundCell As Range Set foundCell = Range("A:A").Find("TargetValue", LookIn:=xlValues) If Not foundCell Is Nothing Then MsgBox "Found in cell " & foundCell.Address Else MsgBox "Not found" End If End Sub ``` ### 技巧 5: 查找单元格 `Find`和`FindNext`方法用于在范围内查找满足特定条件的单元格： ```vba Sub FindAndHighlight() Dim rng As Range Dim firstAddress As String With Range("A1:A10") Set rng = .Find("SearchTerm", LookIn:=xlValues) If Not rng Is Nothing Then firstAddress = rng.Address Do rng.Interior.ColorIndex = 6 ' Yellow color Set rng = .FindNext(rng) Loop While Not rng Is Nothing And rng.Address <> firstAddress End If End With End Sub ``` 这些VBA技巧只是冰山一角，掌握它们能大大提高你在Excel和其他Office应用中的工作效率。不断学习和实践VBA，你会发现更多实用的技巧，进一步提升自动化处理能力，让工作变得更加高效。

资源推荐

资源详情

资源评论

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

VBA 常用技巧代码解析                                 yuanzhuping
13-3  判断单元格公式是否存在错误.....................................................................45
13-4  取得单元格中公式的引用单元格.................................................................46
13-5  将单元格中的公式转换为数值.....................................................................47
技巧 14   单元格中的批注...............................................................................................48
14-1  判断单元格是否存在批注.............................................................................48
14-2  为单元格添加批注.........................................................................................49
14-3  删除单元格中的批注.....................................................................................50
技巧 15   合并单元格操作...............................................................................................51
15-1  判断单元格区域是否存在合并单元格.........................................................51
15-2  合并单元格时连接每个单元格的文本.........................................................52
15-3  合并内容相同的连续单元格.........................................................................53
15-4  取消合并单元格时在每个单元格中保留内容.............................................55
技巧 16   高亮显示单元格区域.......................................................................................56
技巧 17   双击被保护单元格时不显示提示消息框.......................................................58
技巧 18   重新计算工作表指定区域...............................................................................59
技巧 19   录入数据后单元格自动保护...........................................................................60
技巧 20   工作表事件 Target 参数的使用方法...............................................................61
20-1  使用单元格的 Address 属性..........................................................................61
20-2  使用 Column 属性和 Row 属性......................................................................62
20-3  使用 Intersect 方法..........................................................................................62
第 2 章   Worksheet（工作表）对象......................................................................................64
技巧 21   引用工作表的方式...........................................................................................64
21-1  使用工作表的名称.........................................................................................64
21-2  使用工作表的索引号.....................................................................................64
21-3  使用工作表的代码名称.................................................................................65
21-4  使用 ActiveSheet 属性引用活动工作表........................................................65
技巧 22   选择工作表的方法...........................................................................................66
技巧 23   遍历工作表的方法...........................................................................................67
23-1  使用 For...Next 语句.......................................................................................68
23-2  使用 For Each...Next 语句..............................................................................69
技巧 24   在工作表中上下翻页.......................................................................................70
技巧 25   工作表的添加与删除.......................................................................................71
技巧 26   禁止删除指定工作表.......................................................................................75
技巧 27   自动建立工作表目录.......................................................................................77
技巧 28   工作表的深度隐藏...........................................................................................79
技巧 29   防止更改工作表的名称...................................................................................81
技巧 30   工作表中一次插入多行...................................................................................82
技巧 31   删除工作表中的空行.......................................................................................84
技巧 32   删除工作表的重复行.......................................................................................85
技巧 33   定位删除特定内容所在的行...........................................................................87
技巧 34   判断是否选中整行...........................................................................................88
技巧 35   限制工作表的滚动区域...................................................................................89
技巧 36   复制自动筛选后的数据区域...........................................................................91
技巧 37   使用高级筛选获得不重复记录.......................................................................92
2

VBA 常用技巧代码解析 yuanzhuping

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

技巧 39 奇偶页打印.......................................................................................................96

第 3 章 Wordbook（工作簿）对象.......................................................................................98

技巧 40 工作簿的引用方法...........................................................................................98

40-1 使用工作簿的名称.........................................................................................98

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

40-3 使用 ThisWorkbook.........................................................................................99

40-4 使用 ActiveWorkbook...................................................................................100

技巧 41 新建工作簿文件.............................................................................................100

技巧 42 打开指定的工作簿.........................................................................................102

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

43-1 遍历 Workbooks 集合方法...........................................................................105

43-2 错误处理方法...............................................................................................106

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

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

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

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

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

技巧 47 保存工作簿的方法.........................................................................................114

47-1 使用 Save 方法..............................................................................................114

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

47-3 保存工作簿副本............................................................................................115

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

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

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

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

51-1 使用公式.......................................................................................................120

51-2 使用 GetObject 函数.....................................................................................121

51-3 隐藏 Application 对象...................................................................................122

51-4 使用 ExecuteExcel4Macro 方法...................................................................123

51-5 使用 SQL 连接..............................................................................................124

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

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

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

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

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

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

技巧 57 移动、旋转图片.............................................................................................139

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

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

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

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

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

技巧 63 多图表制作.....................................................................................................151

VBA 常用技巧代码解析 yuanzhuping

第 5 章 Application 对象......................................................................................................155

技巧 64 取得 Excel 版本信息......................................................................................155

技巧 65 取得当前用户名称.........................................................................................156

技巧 66 Excel 中的“定时器”........................................................................................156

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

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

技巧 69 设置 Excel 窗口标题栏..................................................................................160

技巧 70 自定义 Excel 状态栏......................................................................................162

技巧 71 灵活退出 Excel...............................................................................................162

技巧 72 隐藏 Excel 主窗口..........................................................................................163

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

72-2 将窗口移出屏幕...........................................................................................164

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

第 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

VBA 常用技巧代码解析 yuanzhuping

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

技巧 89 创建自定义工具栏.........................................................................................214

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

技巧 91 自定义工作簿图标.........................................................................................219

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

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

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

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

技巧 96 屏蔽所有的命令栏.........................................................................................227

技巧 97 恢复 Excel 的命令栏......................................................................................229

第 8 章控件与用户窗体......................................................................................................231

技巧 98 限制文本框的输入.........................................................................................231

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

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

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

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

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

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

技巧 105 文本框的自动换行.......................................................................................244

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

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

技巧 108 高亮显示按钮...............................................................................................249

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

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

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

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

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

技巧 111 移动列表框条目...........................................................................................257

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

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

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

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

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

技巧 115 二级组合框...................................................................................................274

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

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

技巧 118 如何注册控件...............................................................................................280

技巧 119 遍历控件的方法...........................................................................................284

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

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

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

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

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

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

剩余63页未读，继续阅读

评论收藏

内容反馈

derong61

粉丝: 0
资源: 4

集VBA 技巧之大成

最新资源

集VBA 技巧之大成

VBA使用技巧

VBA常用技巧

Excel VBA视频教程 80集

VBA80 26集VBA数组之VBA排序算法(下).exe

VBA80集第20集VBA数组1.wmv

兰色幻想VBA80集第6集：函数与公式.zip_frozenlmd_vba完整_兰色幻想 80_兰色幻想vba从入门到进阶80集

CAD VBA 选择集的过滤

EXCEL技术\ VBA编写（教程）

VBA （全集CHM）

《Excel VBA实用技巧大全(848个实用技巧)》VBA实例

Office VBA编程合集

VBA编程示例集代码.zip

VBA小技巧

VBA常用技巧(1-5)

VBA程序集实例50

vba技巧大全 office应用

兰色幻想vba从入门到进阶80集完整版（第一集）

VBA常用技巧解析(全卷).zip

vba程序集 百余个程序

最新资源

vba程序集百余个程序