[原创]【VBA入门点滴】“工作表”表示方法

hhzjxss · 发表于 2007-12-15 10:19

给新手谈谈“工作表”表示方法      早上看到zgwei050发了个“工作表的位置问题学习体会”，顺便再发一个给大家，好让基础班的学员了解一下！（不对的地方欢迎大家批评指正！）工作表的三种表示方法：1、直接引用名称：    Sheets("工作表名称") ，引号内直接用工作表标签处的工作表名称即可。    比如：工作表名称为“汇总”，则表示为：Sheets("汇总")。如图：

[原创]给新手谈谈“工作表”表示方法

代码：Sub 测试_直接用名称() '只是不能用变量，所以无法做成循环的（雨中漫步）    On Error Resume Next                 Sheets("a").Select         MsgBox "你选中的是“" & Sheets("a").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("b").Select         MsgBox "你选中的是“" & Sheets("b").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("c").Select         MsgBox "你选中的是“" & Sheets("c").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("d").Select         MsgBox "你选中的是“" & Sheets("d").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("e").Select         MsgBox "你选中的是“" & Sheets("e").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("f").Select         MsgBox "你选中的是“" & Sheets("f").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("g").Select         MsgBox "你选中的是“" & Sheets("g").Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheets("h").Select         MsgBox "你选中的是“" & Sheets("h").Name & "”工作表！", 0 + 64, "雨中漫步提示你："             Sheets("汇总").Select         MsgBox "你选中的是“" & Sheets("汇总").Name & "”工作表！", 0 + 64, "雨中漫步提示你："End Sub

[此贴子已经被作者于2007-12-17 10:28:04编辑过]

hhzjxss · 发表于 2007-12-15 10:20

2、Sheet加数字法：    Sheet+工作表序号 ，Sheet紧接工作表在VBE编程界面里的从上到下的名称编号即可。    比如：工作表名称为Sheet1，则表示为：Sheet1。如图：

<a id="ImgSpan" href="http://www.excelpx.com/UploadFile/2007-12/2007121510202963722.jpg" target="_blank"></a>代码：Sub 测试_Sheet位置() '只是不能用变量，所以无法做成循环的（雨中漫步）    On Error Resume Next             Sheet1.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet1.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet2.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet2.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet3.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet3.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet4.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet4.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet5.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet5.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet6.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet6.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet7.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet7.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet8.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet8.Name & "”工作表！", 0 + 64, "雨中漫步提示你："                 Sheet9.Select '按VBE编辑界面里的位置排序         MsgBox "你选中的是“" & Sheet9.Name & "”工作表！", 0 + 64, "雨中漫步提示你："End Sub

[此贴子已经被作者于2007-12-15 10:24:59编辑过]

hhzjxss · 发表于 2007-12-15 10:20

3、Sheets（数字）法：    Sheets(数字) ，Sheets后面的括号里用工作表在标签处的从左到右的顺序号即可，此法可利用循环，推荐使用。    比如：工作表在左边第一个位置，则表示为：Sheets(1)。如图：

<a id="ImgSpan" href="http://www.excelpx.com/UploadFile/2007-12/2007121510213110279.jpg" target="_blank"></a> <a id="ImgSpan" href="http://www.excelpx.com/UploadFile/2007-12/2007121510202963722.jpg" target="_blank"></a>代码：Sub 测试_Sheets位置()     Dim i As Integer     For i = 1 To Sheets.Count         Sheets(i).Select '按工作表标签的物理位置排序         MsgBox "你选中的是“" & Sheets(i).Name & "”工作表！", 0 + 64, "雨中漫步提示你："     Next i End Sub 说明：准确的地讲，上面写成的sheets只有在工作簿中只有工作表时才对，有其他图表的就不对，标准写法是写成worksheets。因为：worksheets 是工作表的集合，只包含worksheet。sheets 是图和表的集合，包括工作表和图表。即：工作表worksheet、图表Chart、宏表Macro和对话框Dialog。如下：

[此贴子已经被作者于2007-12-15 12:37:14编辑过]

hhzjxss · 发表于 2007-12-15 10:24

从上面可以看出，用直接引用名称或者引用VBE里的顺序名称，可以做到绝对引用，但不能循环，多表时就麻烦。变量法可以方便多表写代码，但有一个缺点，就是工作表标签处的顺序不能随意改变，一旦改变，则指定的工作表相应变化。做了一个附件，大家测试看看，加深理解：

E8U29SHV.rar (12.86 KB, 下载次数: 46)

zhangyilike · 发表于 2007-12-15 10:46

谢谢雨版~~学习……

hhzjxss · 发表于 2007-12-15 12:58

zgwei050发了个“工作表的位置问题学习体会”帖子：<a title="VBA第5讲多个明细表的合并练习题学习体会" href="http://www.excelpx.com/forum.php?mod=viewthread&tid=33323&replyID=&skin=1" target="_blank">VBA第5讲多个明细表的合并练习题学习体会</a> 作者：<a href="http://www.excelpx.com/dispuser.asp?id=48559" target="_blank">zgwei050</a>   浏览：25   回复：4  →   <a href="http://www.excelpx.com/forum.php?mod=forumdisplay&fid=141" target="_blank">『VBA基础入门班』</a> 2007-12-15 8:16:00   <hr style="BORDER-TOP: #b3b3b3 1px dashed; WIDTH: 98%; BORDER-BOTTOM: 0px; HEIGHT: 0px;"/><hr/>

至尊宝_98_76 · 发表于 2007-12-15 13:04

雨版就是厉害，这么复杂的问题都让你讲清楚了。又学了一招。

hhzjxss · 发表于 2007-12-15 13:31

至尊宝_98_76[em23]

hong4777 · 发表于 2007-12-15 14:29

study

jilijun · 发表于 2007-12-15 16:03

学习一下，感谢分享。

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

[习题] [原创]【VBA入门点滴】“工作表”表示方法

浏览过的版块