VBA常用技巧代码解析

一_一 · 发表于 2009-2-12 23:27

yuan版您好,我在学习的过程中发现----[技巧6 替换单元格内字符串]
这个附件中的示例没有实现替换后的效果,也没有出现替换过程的那一瞬间,
请您确认.盼复

哦,看了楼下版主的解释我明白了,还以为这是版本的问题呢,因为我在2007当中打开的
多谢

[ 本帖最后由一_一于 2009-2-13 14:31 编辑 ]

yuanzhuping · 发表于 2009-2-13 00:14

原帖由 一_一 于 2009-2-12 23:27 发表
yuan版您好,我在学习的过程中发现----[技巧6 替换单元格内字符串]
这个附件中的示例没有实现替换后的效果,也没有出现替换过程的那一瞬间,
请您确认.盼复

不错，原来的附件只能替换一次，第2次就看不出效果了，我把附件修改了下，可以互相替换。

yuanzhuping · 发表于 2009-2-13 09:31

技巧21       引用工作表的方式
   VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法：
21-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等。
   任何时刻工作簿中只有一个工作表是活动工作表。
21-2       使用工作表的索引号
   工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表：

#001 Sub ShIndex()
#002 Worksheets(1).Select
#003 End Sub

复制代码

单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。
注意当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与WorkSheets(1)引用的可能不是同一个表。
21-3 使用工作表的代码名称
使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。

#001 Sub ShCodeName()
#002 MsgBox Sheets(1).CodeName
#003 End Sub

复制代码

工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，如图所示。在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。
工作表的代码名称.jpg

21-4 使用ActiveSheet属性引用活动工作表
使用ActiveSheet属性可以返回活动工作表，如下面的代码所示。

#001 Sub ShActive()
#002 MsgBox ActiveSheet.Name
#003 End Sub

复制代码

ActiveSheet属性应用于AppActivate对象、Window对象和Workbook对象时，如果未给出对象识别符，返回活动工作簿中的活动工作表。

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:35 编辑 ]

LangQueS · 发表于 2009-2-13 09:59

真不错！收藏了，谢谢yuanzhuping 版主！

鱼求雨 · 发表于 2009-2-13 14:27

相当不错的讲解，十分感谢，版猪辛苦，有心人哇！

calvinp · 发表于 2009-2-13 14:54

谢谢楼主共享

大江东去2004 · 发表于 2009-2-13 20:13

感谢楼主无私的奉献!我们这些菜鸟定当努力学习!

kdweb118 · 发表于 2009-2-13 20:49

真是太好了，省了不少事！

害虫 · 发表于 2009-2-13 21:10

谢谢yuanzhuping 版主，都收藏了。

刚接触VBA，留着慢慢啃吧。

yuanzhuping · 发表于 2009-2-14 01:08

技巧22 选择工作表的方法
在VBA中需要激活或者选择某个工作表时使用Select方法或Activate方法，如下面的代码所示。

#001 Sub SelectSh()
#002 Worksheets("Sheet2").Select
#003 End Sub
#004 Sub ActivateSh()
#005 Worksheets("Sheet2").Activate
#006 End Sub

复制代码

代码解析：
SelectSh过程使用Select方法选择“Sheet2”工作表，而ActivateSh过程则使用Activate方法选择“Sheet2”工作表，从表面看两者的作用是相同的，但是如果“Sheet2”工作表是隐藏的，Activate方法可以正常运行，而Select方法将会出现错误，如图所示。

如果需要同时选中工作簿中的所有工作表，则只能使用Select方法而不能使用Activate方法，如下面的代码所示。

#001 Sub SelectShs()
#002 Dim Shs As Worksheet
#003 For Each Shs In Worksheets
#004 Shs.Select False
#005 Next
#006 End Sub
#007 Sub SelectSheets()
#008 Worksheets.Select
#009 End Sub
#010 Sub ArraySheets()
#011 Worksheets(Array(1, 2, 3)).Select
#012 End Sub

复制代码

代码解析：
SelectShs过程遍历工作表并使用带参数的Select方法选中所有工作表。应用于Worksheet对象的Select方法的语法如下：
Select(Replace)
   参数Replace是可选的。如果该值为True，则用指定对象替代当前选定对象。如果该值为False，则延伸当前选定对象以包括任何以前选定的对象。
   SelectSheets过程使用Worksheets集合的Select方法选中集合中所有的对象。
   ArraySheets过程使用Array 函数返回工作簿中的前三张工作表并使用Worksheets集合的Select方法选中前三张工作表。

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:36 编辑 ]

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第2部分Worksheet（工作表）对象

评分

第2部分Worksheet（工作表）对象

浏览过的版块