VBA第二十八期 如何调整单元格区域大小

我们在以前设计的动态显示图表的时候，是采用翻页的方式实现，这里介绍另外一种方式，这种方法在处理数据量不是很大的表格图表时，通过Range对象的Resize属性使得报容易改变单元格区域的大小。以达到动态显示图表数据的目的。Resize属性有两个参数，分别表示被调整的单元格区域内的总行数和总列数。

例如，在执行下列语句后，MyRg对象是20行5列（单元格区域A1:E20):

Set MyRg-Range ("A1")

Set MyRg = MyRg. Resize (20, 5)

执行完以下语句后，MyRg的大小增加一行。注意，第二个参数省略了，因此列数不变。Set MyRg-=MyRg. Resize (MyRg. Rows. Count+1)

如果需要增加一列：

MyRg-=MyRg. Resize (MyRg. Columns. Count+1)

更实际的例子涉及更改单元格区域名称的定义。

假定工作簿有一个名为Data的单元格区域。代码需要添加额外一行来扩展命名的单元格区域。下面这个代码片段将完成这项工作：

With Range ("Data")

.Resize (. Rows. Count+1) . Nane-"Data"

End With

当然更要注意的是这里增加的行和列是往下DOWN和往右TOright的。