Range单元格对象常用属性(三)

大家好，本节主要介绍单元格对象的Resize属性，Entirecolumn属性、Entirerow属性，以及单元格美化方面的属性。

单元格美化相关属性

常见的单元格美化相关的属性，包括单元格背景色，字体、边框等。相关属性可以通过录制宏查看相关代码。

1、单元格背景色

首先介绍设置单元格的背景色，是通过range对象下interior内部对象的color属性（并不是range对象的直接属性）。

有两种属性设置方式，分别是 interior的color属性和 colorindex属性来设置。

interior.colorindex表示颜色索引号，通常在1-56范围内，数值范围小，较常用。

interior.color可以使用RGB三原色的值，三种原色范围均为0-255以内。也可以直接使用颜色值，范围较大为255^3，具体为0-16777215，是长整型数据的范围，不常用。

设置单元格背景色用法相对简单，示例如下。

推荐使用颜色索引号，范围为1-56，使用常用颜色基本足够使用，填充色通常是拥有标注、区分数据使用。下面主要问题就是索引号对应的颜色，下面编写代码做一个色卡：

如果使用RGB表示，颜色范围更大，可以在excel设置右键设置单元格格式--填充--其他颜色--自定义中，找到颜色对应的RGB值。

推荐使用interior.colorindex属性进行设置，有足够多的常用颜色，而且相对简单方便。

2、单元格字体

单元格字体的设置，需要单元格的字体font对象，平常使用excel时也经常涉及字体、字号、字体颜色、是否加粗等，下面通过示例演示下。

Range("b2").Font.Name = "微软雅黑" 设置字体

Range("b2").Font.Size = 16 设置字号大小

Range("b2").Font.ColorIndex = 5 设置字体颜色

Range("b2").Font.Bold = True 设置字体加粗

Range("b2").Font.Italic = False 设置文字是否倾斜

字体系统中有多种可供选择，如“宋体“、”黑体”以及“微软雅黑”等，注意后两个加粗和倾斜属性的值是true或者false。

对于上面代码写法可能会相对繁琐，后续会介绍with语句，对于同一对象的属性可以归类，从而简化代码，

3、单元格的边框

边框设置是通过单元格range对象下的Border对象的属性。主要包括三个属性。

分别是决定边框线类型为linestyle属性，决定颜色的color属性或者colorindex属性。最后是边框线的宽度weight。

颜色color和colorindex和前面介绍的单元格填充色用法相同，推荐使用colorindex颜色索引号。

linestyle属性常用的有以下对应设置。实线为xlcontinuous、 虚线为xldash、双线为xldouble、无线条为xllinestylenone。

weight属性常用以下变量，xlhailine细线、xlthin细、xlmedium中等、xlthick粗。

下面通过代码演示：B2:C4单元格区域的边框设置为红色，边框线为中等宽度的虚线。

注意这里使用的是单元格对象下的borders边框对象集合，因为一个单元格就有四个边框。全部边框要一起修改，就使用了borders集合的属性。

那么如果只是想设置一个区域中部分线条呢？比如只设置边框。那就可以通过borders(index索引号)选择特定的边框。这里特殊的是index的常量。常量和代表的意义汇总如下：

下面以区域左边框设置为红色为例，bonders(xledgeleft).colorindex=3来表示。

在使用单元格边框属性时，首先要明确调整的对象是所有边框borders集合还是其中部分borders(index)，index常量值是固定的。

然后再确定使用哪种属性，包括边框颜色，边框线宽度和边框线类型。

注意边框线类型的值是固定的，根据需要选择。

Resize 属性

range单元格的resize属性用于扩展或缩小指定的单元格区域，得到一个新的单元格区域。

resize属性有两个参数，第一个参数是新区域的行数，第二个参数是新区域的列数。下面直接通过实例来演示下resize属性扩展或缩小两种功能。（基准单元格都是左上角的单元格。）

假设单元格B3，将其扩大为5行3列的单元格区域，标注为蓝色。

上图示例中将B3扩大为5行3列的单元格，下面将上面得到的B3:D7区域域缩小为2行2列的区域，标注为黄色。演示如下：

Entirecolumn和Entirerow属性

单元格对象Entirecolumn整列属性、Entirerow整行属性的用法雷同，该属性分别返回整行和整列，用法相对简单。

下面直接通过示例来演示。比如B2:B3区域单元格的整行都标蓝色。

Range("b3:B4").EntireRow.Interior.ColorIndex = 5即表示选择单元格整行对象的interior.colorindex属性，颜色索引值等于5，为蓝色。

本节主要介绍了美化单元格相关的填充颜色，字体，边框等。美化单元格方面的属性不需要特别记忆，有遗忘时可以简单录制宏，再查看代码。此外本节介绍了resize属性、entirecolumn属性、entirerow属性，了解如何使用即可。祝大家学习快乐。下节将会介绍单元格对象的常用方法。