Excel VBA教程:Group方法

应用于 ShapeRange对象的 Group方法。

组合指定的区域中的图形。将成组的图形作为单个 Shape对象返回。

expression.Group

expression   必需。该表达式返回 ShapeRange对象。

应用于 Range对象的 Group方法。

当 Range对象代表数据透视表字段的数据区域中的单个单元格时,Group方法在该字段中执行基于数字或日期的组合。

expression.Group(Start, End, By, Periods)

expression   必需。该表达式返回一个 Range对象。

Start   Variant 类型,可选。要组合的第一个值。如果省略或为 True,则使用字段中的第一个值。

End   Variant 类型,可选。要组合的最后一个值。如果省略或为 True,则使用字段中的最后一个值。

By   Variant 类型,可选。如果字段为数字,则该参数指定每个组合的大小。如果字段是日期,当 Periods 数组中的元素 4 为 True,而其他所有元素为 False 时,本参数指定每个组合中的天数。其他情况下,忽略本参数。如果参数被忽略,Microsoft Excel 将自动选择一个默认的组合大小。

Periods   Variant 类型,可选。布尔值数组,指定组合的期限,如下表所示。

数组元素 句号
1
2
3 小时
4
5
6 季度
7

如果数组中的元素为 True,则为相应的时间创建组合;如果元素为 False,则不创建组合。当字段不是日期字段时,忽略该参数。

说明

因为将组合图形作为单个图形对待,因此组合或取消图形组合时,将更改 Shapes集合中的项目个数,并更改集合中受影响的图形之后的各项的索引号。

Range对象必须是数据透视表字段的数据区域中的单个单元格。如果试图对多个单元格应用该方法,将会失败(不显示错误消息)。

Excel VBA教程:Group方法·示例

本示例用 10 天期限组合名为“ORDER_DATE”的字段。


Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Group by:=10, _
    periods:=Array(False, False, False, _
        True, False, False, False)

上页:Excel VBA教程:Goto方法 下页:Excel VBA教程:Group方法(ShapeRange对象)

Excel VBA教程:Group方法

Excel VBA教程:Group方法(ShapeRange对象) Excel VBA教程:Heartbeat方法
Excel VBA教程:Help方法 Excel VBA教程:HighlightChangesOptions方法
Excel VBA教程:Import方法 Excel VBA教程:InchesToPoints方法
Excel VBA教程:IncrementBrightness方法 Excel VBA教程:IncrementContrast方法
Excel VBA教程:IncrementLeft方法 Excel VBA教程:IncrementOffsetX方法
Excel VBA教程:IncrementOffsetY方法 Excel VBA教程:IncrementRotation方法
Excel VBA教程:IncrementRotationX方法 Excel VBA教程:IncrementRotationY方法
Excel VBA教程:IncrementTop方法 Excel VBA教程:InputBox方法
Excel VBA教程:Insert方法 Excel VBA教程:InsertIndent方法
Excel VBA教程:Intersect方法 Excel VBA教程:Item方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号