ExcleVBA常用技巧Worksheet对象
- 格式:docx
- 大小:469.30 KB
- 文档页数:35
ExcleVBA常用技巧Worksheet对象
VBA常用技巧
目录
VBA常用技巧 ................................................................................................................................... 1
第 2 章 Worksheet(工作表)对象 .................................................................................. 2
技巧 1 引用工作表的方式 ........................................................................................... 2
1-1 使用工作表的名称 ......................................................................................... 2
1-2 使用工作表的索引号 ..................................................................................... 2
1-3 使用工作表的代码名称 ................................................................................. 3
1-4 使用 ActiveSheet 属性引用活动工作表 ....................................................... 3
技巧 2 选择工作表的方法 ........................................................................................... 4
技巧 3 遍历工作表的方法 ........................................................................................... 5
3-1 使用 For...Next 语句 ..................................................................................... 5
3-2 使用 For Each... Next 语句 ............................................................................ 7
技巧 4 在工作表中上下翻页 ....................................................................................... 8
技巧 5 工作表的增添与删除 ....................................................................................... 9
技巧 6 严禁删除指定工作表 ..................................................................................... 13
技巧 7 自动建立工作表目录 ..................................................................................... 15
技巧 8 工作表的深度隐蔽 ......................................................................................... 17
技巧 9 防范改正工作表的名称 ................................................................................. 19
技巧 10 工作表中一次插入多行 ............................................................................... 20
技巧 11 删除工作表中的空行 ................................................................................... 21
技巧 12 删除工作表的重复行 ................................................................................... 23
技巧 13 定位删除特定内容所在的行 ....................................................................... 25
技巧 14 判断能否选中整行 ....................................................................................... 26
技巧 15 限制工作表的转动地域 ............................................................................... 27
技巧 16 复制自动挑选后的数据地域 ....................................................................... 28
技巧 17 使用高级挑选获取不重复记录................................................................... 30
技巧 18 工作表的保护与排除保护 ........................................................................... 31
技巧 19 奇偶页打印 ................................................................................................... 34 ExcleVBA常用技巧Worksheet对象
第 2章 Worksheet (工作表)对象
技巧 1 引用工作表的方式
VBA 中,在不一样的工作表之间变换也许对不一样工作表中的单元格地域进行操作时,需要指定引用的工作表,平时有下边几种方法:
1-1 使用工作表的名称
工作表名称是指显示在工作表标签中的文本, 工作表名称可以使用 WorkSheets 会集和
Sheets 会集两种引用方式,以下边的代码所示。
#001 Sub ShActivate()
#002 Worksheets(" 索引号 ").Activate
#003 'Sheets(" 索引号 ").Activate
#004 End Sub
第 3、 4 行代码都激活工作簿中名称为“索引号”的工作表,激活后“索引号”工作表将成为活动工作表。
WorkSheets 会集包含所有的工作表, 而 Sheets 会集不但包含工作表会集 WorkSheets ,还包含图表会集 Charts 、宏表会集 Excel4MacroSheets 与 MS Excel 5.0 对话框会集
DialogSheets 等。
任何时辰工作簿中只有一个工作表是活动工作表。
1-2 使用工作表的索引号
工作表索引号是指工作表在工作簿中的地点, Excel 依据工作表在工作表标签中的地点
以 1 开始从左向右进行编号。下边的代码选中并激活当前工作簿中第 1 个工作表:
#001 Sub ShIndex()
#002 Worksheets(1).Select
#003 End Sub ExcleVBA常用技巧Worksheet对象
单个 WorkSheet 对象的 Select 方法与 Activate 方法的主要差别在于 Select 方法要求工
作表可视。
注意 当工作簿包含工作表、宏表、图表等时,使用索引号引用工作表如 Sheets(1) 与
WorkSheets(1) 引用的可能不是同一个表。
使用 Worksheet 对象的 Index 属性可以返回工作表的索引号,以下边的代码所示。
#001 Sub ShInde()
#002 MsgBox Worksheets(" 索引号 ").Index
#003 End Sub
1-3 使用工作表的代码名称
使用 Worksheet 对象的 CodeName 属性可以返回工作表的代码名称, 以下边的代码所
示。
#001 Sub ShCodeName()
#002 MsgBox Sheets(1).CodeName
#003 End Sub
工作表的代码名称显示在 VBE 工程资源管理器窗口中,在属性窗口中可以更正工作表
代码名称,如图 1-1 所示。在 VBA 中可以直接使用工作表的代码名称引用工作表,即便工
作表的名称被更正,代码依旧可以正常运转。
图 1-1 工作表的代码名称
1-4 使用 ActiveSheet 属性引用活动工作表
使用 ActiveSheet 属性可以返回活动工作表,以下边的代码所示。