-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
Listenelement mit VBA abfragen
Accueil > Community > Automation and VBA > Listenelement mit VBA abfragen
- This topic has 1 reply, 2 voices, and was last updated 3 years, 4 months ago by Bernhard Kantz.
-
AuthorPosts
-
May 27, 2021 at 8:33 am #28955Helmut MeßmerParticipant
Hallo,
in VBA scheitere ich daran, die Elemente einer Liste abzuarbeiten.
Mit der FPScript-Formel “textliste”
Dim idx = ValuesAboveLevel(Integer32 (("" <> Kommentar) == ("Start" <> Kommentar)), 0.5, EVENT_INDEX) Dim Liste = [Zyklus[idx], Kommentar[idx]] // Erstellen der Liste mit 2 Datenreihen.
erzeuge ich einen Liste mit zwei Datenreihen.
Die FPScript-Formel “Anzahl”
NumberOfRows(textliste.[0])
erzeugt einen Einzelwert mit der Länge dieser Liste.
In VBA sieht die Abfrage der beiden Formeln dann so aus:
Dim Anzahl As FlexPro.Formula Set Anzahl = oDiagram.ParentFolder.Object("Anzahl", fpObjectTypeFormula) Dim Text As FlexPro.Formula Set Text = oDiagram.ParentFolder.Object("textliste", fpObjectTypeFormula) MsgBox Anzahl.Value(0, 0) MsgBox Text.Value(0, 0)
Die MsgBox für den Einzelwert funktioniert und zeigt was an, egal ob “fpDataComponentY” drin steht oder nicht. Für die Liste funktioniert das aber so natürlich nicht.
Meine Frag ist nun: Wie kann ich einen Einzelwert der Liste abfragen?
In FPScript wird das mit:
textliste.[1][1]
gemacht, um den zweiten Einzelwert der zweiten Datenreihe anzuzeigen.
Dieser FPScript-Syntax funktioniert aber nicht in VBA.
Meine Frage ist nun: Wie ist der korrekte Syntax, um diesen Einzelwert in VBA, z.B. in der MsgBox anzeigen zu lassen?
Vielen Dank
May 27, 2021 at 9:11 am #28956Bernhard KantzParticipantDie Formel liefert als Wert eine Liste zurück. In dieser kann man mit dem Elementnamen oder eins-basierten Index ein Element referenzieren. In Ermangelung eines Cast-Operators in VBA bietet sich folgende Herangehensweise an:
Dim Text As FlexPro.List Set Text = oDiagram.ParentFolder.Object("textliste", fpObjectTypeFormula).Value MsgBox "Die zweite Zeile im zweiten Element ist " & Text(2)(1)
Man beachte den Listelementindex, dieser kann alternativ auch als Zeichenkette mit dem Elementnamen angegeben werden.
-
AuthorPosts
- You must be logged in to reply to this topic.