女sub是什么属性（介绍一个很有意思的VBA属性）

No.1

如果会熟练操作Excel，什属绍个思的A属那么对单元格并不陌生，性介性也就是有意Range对象。

英文解释为：区间，什属绍个思的A属一系列，性介性范围，有意种或者类等等。什属绍个思的A属

在Excel中表示一些单元格组成的性介性区域或范围，它是有意可以变化的，也就是什属绍个思的A属大小数量可变。

本节不介绍Range对象，性介性而要介绍Range对象之下的有意一个属性Range。

奇妙吧，什属绍个思的A属属性竟然和对象同名。性介性

我也觉得不平凡，有意但是既然给出了这个属性，那么，我们就有必要来了解一下。

了解一下其不同凡响的地方在什么方面。

如下图属性，可仔细看看。

No.2

一般来讲，如果定义了一个Range对象，那么这个对象的地址默认是以A1为参照进行分配。

如定义了一个Range("C4:I15")为对象区域。

那么其对象里的实际地址就对应了C4:I15，其第一个单元格为C4。

如果用Range属性来表示，应该是这样的：

Range("C4:I15").Range("A1")

对应单元格Range("C4")，也就是我们定义的区域中第一个单元格。

是不是很迷糊？

下面看这张图片来理解一下：

黄色单元格是定义的一个区域C4:I15。

此区域的Range属性中的A1就是C4单元格，B1就是D4单元格依次类推。

实际上是更换了一下单元格名称而已。至于这么做，有什么意义，那就要用代码来进行说明了。

特别是对某一指定区域进行循环的时候有用。

此过程理解为，给某些区域的第n列或者第n行进行数值计算的时候，可以利用此属性进行判断。

No.3

上图为例，循环绿色区域里的单元格，当数值小于230的时候背景色为红色，当数值大于230的时候为绿色。数值随机生成。

此应用十分简单。

代码：

Private Sub CommandButton1_Click()Dim R As Range, cell As RangeSet R = Range("B2:F10")R.Value = VBA.Int((500 - 10) * VBA.Rnd + 10)For Each cell In R With cell If .Value > 230 Then .Range("A1").Value = .Value & ">230" .Interior.Color = RGB(121, 211, 156) Else .Range("A1").Value = .Value & "<230" .Interior.Color = RGB(221, 211, 56) End If .Borders.Item(xlEdgeBottom).LineStyle = 2 End WithNext cellWith R .RowHeight = 20 .ColumnWidth = 10 With .Range(Cells(1, 1), Cells(.Rows.Count, 1)).Offset(0, -1) .Formula = "=row()-1" .Interior.Color = RGB(211, 111, 122) .Borders.Item(xlEdgeBottom).LineStyle = 2 .ColumnWidth = 5 End WithEnd WithEnd Sub

Range对象的Range属性是一个特别的对象属性，应用当中返回一个Range对象。

返回的对象包含在Range对象中，感觉像绕口令。

总之，这个返回的Range对象，就是我们要进行处理，数据计算，或者属性设置的对象。

当然，返回的这个对象能不能再次使用Range属性，再返回一个Range对象？

可以来试试！

如果成功了，是不是有种看《盗梦空间》的感觉，梦中梦。

注：

其实，我试过了，完全可以返回另一个Range对象。

Range("C4:I15").Range("A1").Range("A1").Value = "X"

欢迎关注、收藏