Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Étant donné une hiérarchie d’attributs, renvoie une mesure implicite pour la fonction donnée qui correspond à cet attribut. Si une mesure implicite n’existe pas, une mesure implicite est créée et ajoutée à la collection CubeFields .
Syntaxe
expression. GetMeasure (AttributeHierarchy, Function, Caption)
expression Variable qui représente un objet CubeFields .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Hiérarchie des attributs | Obligatoire | Variant | Champ de cube unique qui constitue une hiérarchie d’attributs (XlCubeFieldType = ,xlHierarchy et XlCubeFieldSubType = xlCubeAttribute). |
| Fonction | Obligatoire | XlConsolidationFunction | Fonction effectuée dans le champ de données ajouté. |
| Caption | Facultatif | Variant | Étiquette utilisée dans le rapport de tableau croisé dynamique pour identifier cette mesure. Si la mesure existe déjà, la légende remplacera l’étiquette existante de cette mesure. |
Remarques
L’obtention d’une mesure à l’aide de la fonction GetMeasure ne fonctionnera que pour ces fonctions : Count, Sum, Average, Max et Min.
Par exemple, ceux-ci fonctionneront :
Get CubeField0 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlCount, "NumCarsOwnedCount")Set CubeField1 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlSum, "NumCarsOwnedSum")Set CubeField2 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlAverage, "NumCarsOwnedAverage")Set CubeField4 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlMax, "NumCarsOwnedMax")Set CubeField5 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlMin, "NumCarsOwnedMin")
Celles-ci ne fonctionneront pas :
Set CubeField3 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlCountNums, "NumCarsOwnedCountNums")Set CubeField6 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlProduct, "NumCarsOwnedProduct")Set CubeField7 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlStDev, "NumCarsOwnedStDev")Set CubeField8 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlStDevP, "NumCarsOwnedStDevP")
Valeur renvoyée
CHAMP CUBE
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.