Remarque
L’accès à cette page requiert une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page requiert une autorisation. Vous pouvez essayer de modifier des répertoires.
Dans une hiérarchie d’attributs, retourne une mesure implicite pour la fonction donnée qui correspond à cet attribut. Si aucune mesure implicite n’existe, une nouvelle 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 |
|---|---|---|---|
| AttributeHierarchy | Requis | Variant | Champ de cube unique qui est 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à, Caption remplace l’étiquette existante de cette mesure. |
Remarques
L’obtention d’une mesure à l’aide de la fonction GetMeasure fonctionne uniquement pour ces fonctions : Count, Sum, Average, Max et Min.
Par exemple, les opérations suivantes fonctionnent :
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")
Ceux-ci ne fonctionnent 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
CUBEFIELD
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.