Klasse ModelMeasure (Excel VBA)

Die Klasse ModelMeasure stellt ein einzelnes ModelMeasure -Objekt in der ModelMeasures -Auflistung dar.

Die wichtigste Prozeduren der Klasse ModelMeasure sind Delete und ModelMeasures.Add

Set

Um eine ModelMeasure -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim mme as ModelMeasure
Set mme = ActiveWorkbook.Model.ModelMeasures(Index:=1)

Die folgenden Prozeduren können zum Festlegen der ModelMeasure Klassenvariablen verwendet werden : ModelMeasures.Item, ModelMeasures.Add und Model.ModelMeasures

For Each

Hier ist ein Beispiel für die Verarbeitung der ModelMeasure -Elemente in einer Sammlung

Dim mme As ModelMeasure
For Each mme In ActiveWorkbook.Model.ModelMeasures
	
Next mme

Methoden

Die Hauptmethoden der Klasse ModelMeasure sind

Delete - Löscht das Modellmeasure aus dem Datenmodell.

ActiveWorkbook.Model.ModelMeasures(1).Delete

ModelMeasures.Add - Fügt dem Modell ein Modellmeasure hinzu.

Dim strMeasureName As String: strMeasureName = 
Dim strFormula As String: strFormula = 
Dim mme As ModelMeasure
Set mme = ActiveWorkbook.Model.ModelMeasures.Add(MeasureName:=strMeasureName, AssociatedTable:=, Formula:=strFormula, FormatInformation:=)

Andere Methoden

ModelMeasures.Item - Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Eigenschaften

AssociatedTable

ActiveWorkbook.Model.ModelMeasures(1).AssociatedTable =

Description Die Beschreibung des Modellmeasures.

ActiveWorkbook.Model.ModelMeasures(1).Description =

FormatInformation Das Format des Modellmeasures.

ActiveWorkbook.Model.ModelMeasures(1).FormatInformation =

Formula Die DAX-Formel (Data Analysis Expressions) des Modellmeasures.

ActiveWorkbook.Model.ModelMeasures(1).Formula =

Name Der Name des Modellmeasures.

ActiveWorkbook.Model.ModelMeasures(1).Name =

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelMeasures(1).Parent

ModelMeasures.Count Gibt eine ganze Zahl zurück, die die Anzahl der Objekte in der Sammlung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.Model.ModelMeasures.Count

ModelMeasures.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelMeasures.Parent