Excel教程

Excel VBA 用CurrentRegion属性快速确定自已的地盘

字号+作者:自在教程 来源:自在教程 2018-04-26 14:04 我要评论() 收藏成功收藏本文

在清朝初期,入关的八旗子弟通过骑马来圈定自已所属的土地,称为“跑马圈地”,但这种恃强凌弱的行为极大地激发了满汉之间的矛盾,后来清政府制止'...

在清朝初期,入关的八旗子弟通过骑马来圈定自已所属的土地,称为“跑马圈地”,但这种恃强凌弱的行为极大地激发了满汉之间的矛盾,后来清政府制止了这种霸道无理的行为。

在Excel中,用不着这么麻烦,任一单元格所在区域能很快地确定下来,只要这一区域周边被空行和空列所包围着,并且也不会激发任何的矛盾,用户也非常喜欢这样的做法。

如果在工作表中直接操作,就是在当前单元格位于单元格区域中的任一单元格时,按下Ctrl+Shift+* 组合键,即可快速选择整个单元格区域,如下图所示。

在VBA中,起到相同作用的是Range对象的CurrentRegion属性。仍以上图所示的工作表为例,运行下面的代码:

    Range("B2").CurrentRegion.Select

同样会选择单元格区域B2:D6。

正如上面所说的,当前单元格不一定是单元格B2,该区域中任意单元格都行,例如,下面的代码:

    Range("C3").CurrentRegion.Select

也会选择单元格区域B2:D6。

由上可知,CurrentRegion属性返回代表当前区域的Range对象。当前区域是指包含有当前单元格的由空行和空列围绕组成的区域。在该区域中,必须保证区域中的每一行或列中至少有一个存在数据的单元格。

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

如上图所示的工作表。

1、若单元格B2或者C3是当前单元格,那么下面的代码:

    ActiveCell.CurrentRegion.Select

也会选择单元格区域B2:D6。

2、下面的代码:

Sub CurrentRegionTest1()

    Dim rng As Range '声明对象变量

    '将当前单元格区域赋值给变量

    Set rng =Range("B2").CurrentRegion

    '显示信息

    MsgBox "当前单元格区域共有" &rng.Rows.Count & "行," & _

            rng.Columns.Count & "列" &vbCrLf & _

            "当前单元格区域在第"& rng.Row & "行,第" & _

             rng.Column & "列开始"

End Sub

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

试试看,如果选择紧邻单元格区域的行列中的单元格为当前单元格,再运行CurrentRegion属性,所获得的区域将包含该单元格所在的行或列,即便现在该单元格所在的行或列为空。

 

下面的示例工作表如下图所示,看看下面的代码:

Sub CurrentRegionTest2()

    Dim rng As Range '声明对象变量

    '将当前单元格区域赋值给变量

    Set rng =Range("B1").CurrentRegion

    '选择当前单元格区域除第1行以外的区域

    rng.Offset(1, 0).Resize(rng.Rows.Count - 1,rng.Columns.Count).Select

End Sub

运行代码后,将选择当前区域中除标题行以外的单元格区域,如下图所示。

如上图所示的工作表,下面的代码设置当前单元格区域的偶数行的背景色为红色:

Sub CurrentRegionTest3()

    Dim rng As Range '声明对象变量

    Dim rngRow As Range '声明计数变量

    '将当前单元格区域赋值给变量

    Set rng =Range("B1").CurrentRegion

    '选择当前单元格区域除第1行以外的区域

    For Each rngRow In rng.Rows

        '如果为偶数行,则将其背景色设置为红色

        If rngRow.Row Mod 2 = 0 Then

            rngRow.Interior.ColorIndex = 3

        End If

    Next rngRow

End Sub

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

上一遍:Excel2013打印时怎么固定表头及表尾让打印后的每页都可以看得到                       下一遍:Excel表格中在一级菜单的基础上如何制作二级下拉菜单

本站仅为信息交流平台,网站所有内容都由网友提供,系统会以非人工方式自动生成网页, 如您认为本站信息侵犯了您的版权,请联系我们,我们将尽快处理。