当前位置:首页 > 办公 > Excel教程 > 正文内容

excel图表快速确定自已的地盘——CurrentRegion属性

酷网3周前 (10-09)Excel教程23

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

在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

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

扫描二维码推送至手机访问。

版权声明:本文章来源于互联网,由八酷网收集发布,如需转载请注明出处。

本文链接:https://www.i8ku.com/2021/39557.html

分享给朋友:

相关文章

使用lookup函数计算销售提成

使用lookup函数计算销售提成

大家伙好,今天讨论下这样的问题,一个公司的业务提成计算方法如下: 现在需要根据各业务员的销售业绩计算他们的提成工资。如下 业务员销售业绩提成点数提成 张飞1000 赵云2000 曹操2001 荀彧5000 关羽1000...

excel甘特图让项目进度清晰可见

excel甘特图让项目进度清晰可见

这里所说的进度条形图,就是“甘特图”。 甘特图定义: 以图示的方式通过活动列表和时间刻度形象地表示出任何特定项目的活动顺序与持续时间。基本是一条线条图,横轴表示时间,纵轴表示活动(项目),线条表示在整个期间上计划和实际的...

Excel中如何在批注中插入图片

Excel中如何在批注中插入图片

  我们在使用Excel办公的时候,为了方便修改后别人更好地阅读查看,经常会在修改的数据中插入批注。但批注中除了可以插入文字以外,其实还可以插入图片显示。下面就给大家分享一下,Exce...

必看!最好用的28个Excel公式

必看!最好用的28个Excel公式

一起来看看这28个公式,你还记得几个? 1.根据成绩的比重,获取学期成绩。   =C8*$C$5+D8*$D$5+E8*$E$5 引用方式有绝对引用、混合引用、相对引用,可以借助F4键快速切换。 如果学了SUM...

excel图表怎么做总计与分类柱状图

excel图表怎么做总计与分类柱状图

问题情境 如下样表,是不同地区不同产品销售量表: 如何生成如下图表,既能体现不同产品总计对比情况,又能体现某产品不同地区销量对比? 实现过程 1、选择A1:E4区域,【插入】菜单中选择【图表】功能区的【堆积柱形图】:...

除了使用IF函数,你还可以这么做……

除了使用IF函数,你还可以这么做……

IF函数是我们入门必学的函数之一,确实可以帮助我们解决很多问题,学习圈甚至传言,IF函数无所不能。 即使IF函数很强大很实用,我们也不能靠这一个走遍天下,接下来我们就来看下一些场景中IF函数的替代方案。 MAX函数替代...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。