No.1

通常对Excel工作表进行操作的时候，系统会默认一个活动工作表，这一步在打开Exce文件的时候，系统会自动确认选择。

但是，在多个工作表之间跳转的情况下，就需要我们对工作表进行甄别选择了。

怎么选择要操作的工作表呢？

有几种方法：

1. 在知道工作表名称的情况下选择。
2. 在知道某一个区域对象的情况下选择。
3. 循环工作表遍历选择。

本节我们介绍第二种，在知道某一个区域对象的情况下选择。

也就是Range对象之下的Worksheet属性。

No.2

Range对象，给提供了一种属性，可返回一个工作表对象，这个工作表对象就是这个Range对象所在的工作表。

如上图，第二行代码所示：

Range("NowRange").Worksheet

这行代码返回一个工作表对象，是包含“NowRange”名称区域的一个工作表。

这样编程应用的时候，就可以对包含此名称的表进行一些操作。

在一些情况下如下代码也同样返回一个工作表对象。

如：Range("NowRange").Parent

Parent是一个返回父对象的属性，上述代码也可返回一个Worksheet对象。

它必须是区域名称"NowRange"的父对象。

下图为例，对Range.Worksheet属性进行说明。

No.3

通用声明里设置一些常量，使用Const 变量名="字符串"方法。

使用如下代码的时候，要根据自己的工作表修改相应的工作表名称和单元格区域。

执行之后，返回区域名称为Ra的工作表名称"Sheet1"。

Const s1 = "Sheet1" '常数工作表名
Const s2 = "Sheet2" '常数工作表名
Const Ra = "Range1" '常数单元格区域名
Const Rb = "Range2" '常数单元格区域名
Const Raddress = "B2:D12" '常数单元格区域

按钮代码

Private Sub CommandButton2_Click()
    setActiveSheet s1, Ra, Raddress'调用过程
    Dim R As Range
    Set R = ActiveSheet.Range(Ra)
    Dim w As Worksheet
    Set w = R.Worksheet
    MsgBox "当前工作表： " & w.Name, vbInformation, "提示"
End Sub

过程代码

Dim st As Worksheet
Dim Ranges As Range
Sub setActiveSheet(s, Ra, Raddress)
    Set st = ThisWorkbook.Worksheets(s)
    st.Activate
    Set Ranges = st.Range(Raddress)
    Ranges.Name = Ra
End Sub

此代码应用了一个常用模块，如上图片。

功能为设置当前工作表和表格区域、名称。

这一步很重要，在调用之后才可以实现工作表对象返回。

初学VBA代码，可能对模块的使用比较陌生，逐渐熟练以后会得心应手的。

如本例中返回一个工作表名称，并没有太大意义，更重要的是，我们得到了一个工作表对象"W"。

利用这个对象"W"，可以做很多事情。

就像在茫茫人海中找到了某一个人，知道了他的名字。但是这有什么意义呢，更大意义在于，找到这个人要和他进行互动，要和他产生某种联系，最终生产某些价值。

这就是下一步编程的工作所在。

当然，看上去没有意义的事情，是很重要的一件事情，在和这个对象产生某些交互的情况之前，首先要找到它。

就如一枚导弹，发射之前，要准确锁定目标，这个过程就显得十分有必要了。

不然就变成了无的放矢，失了准心，导弹就毫无价值。

所以，掌控Range.Worksheet属性，很有必要。

欢迎关注、收藏。

---END---

Tags：subcommand