excel图表快速确定自己的域——CurrentRegion属性

清初，入关的八旗子弟以骑马的方式圈定自己的土地，称之为“押马”。但这种霸道行为极大地刺激了满汉矛盾，后来清政府停止了这种霸道无理的行为。

在Excel中，不用费心，可以快速确定任意单元格所在的区域。只要区域周围是空的行列，不会引起矛盾，用户也很喜欢这种做法。

如果直接在工作表中操作，当当前单元格位于单元格区域的任意单元格中时，可以通过按住Ctrl Shift *快速选择整个单元格区域，如下图所示。

在VBA，Range对象的CurrentRegion属性扮演着同样的角色。仍然以上图所示的工作表为例，运行以下代码：

范围(“B2”)。当前区域。选择

还选择了单元格区域B2:D6。

如上所述，当前小区不一定是B2小区，但是这个区域的任何小区都会做，例如，下面的代码：

范围(“C3”)。当前区域。选择

还选择了单元格区域B2:D6。

从上面可以看出，CurrentRegion属性返回表示当前区域的Range对象。当前区域是指包含当前单元格并被空行和空列包围的区域。在此区域中，必须确保该区域中的每一行或每一列中至少有一个包含数据的单元格。

但是，该属性在受保护的工作表中无效。

如上所示的工作表。

1.如果单元格B2或C3是当前单元格，则以下代码：

ActiveCell。当前区域。选择

还选择了单元格区域B2:D6。

2.以下代码：

子货币区域1()

' Dimrng asrange '声明了一个对象变量。

将当前单元格区域分配给变量。

设置rng=范围(“B2”)。当前区域

显示信息。

MsgBox“有”rng。行数。计算“当前单元格区域的行数”_.

Rng。列。计数“列”vbCrLf _

"当前单元格区域在rng行。第行，“_”。

Rng。列“列开始”

末端接头

运行后，会弹出如下图所示的消息框，显示当前单元格区域的一些信息。

尝试，如果选择单元格区域旁边的行和列中的单元格作为当前单元格，然后运行CurrentRegion属性，则获得的区域将包含该单元格所在的行或列，即使该单元格所在的行或列现在为空。

下图显示了以下示例工作表。请看下面的代码：

子货币区域2()

' Dimrng asrange '声明了一个对象变量。

将当前单元格区域分配给变量。

设置rng=范围(“B1”)。当前区域

选择除第一行以外的当前单元格区域。

rng。偏移量(1，0)。调整大小(rng。行数。计数1，rng。列数。挑选

末端接头

代码运行后，除了当前区域的表头行之外的单元格区域都会被选中，如下图所示。

如上工作表所示，下面的代码将当前单元格区域中偶数行的背景颜色设置为红色：

子货币区域3()

' Dimrng asrange '声明了一个对象变量。

“Dimrn按范围增长”声明了计数变量。

将当前单元格区域分配给变量。

设置rng=范围(“B1”)。当前区域

选择除第一行以外的当前单元格区域。

对于每一个rng的成长。行

如果是偶数行，将其背景颜色设置为红色。

如果rngRow。行模2=0然后

rngRow。内饰。颜色索引=3

如果…就会结束

下一个rngRow

末端接头

运行代码后的结果如下图所示。