Ermitteln Sie den Wert von einem Punkt in Excel-VBA

Ich versuche, die Punkte in einem Diagramm ändern die Farbe, wenn Sie innerhalb bestimmter Wert Parameter (D. H., >1 ist grün, <1 ist rot, sonst blau). Ich kann nicht bestimmen, wie man VBA um mir den Wert an jedem gegebenen Punkt.

In dieser thread, zuvor beantwortet, die Antwort (sehr hilfreich, auf andere Weise) zeigt an, dass die Punkte(num).Wert gibt den Wert an der Stelle. Jedoch erhalte ich eine Fehlermeldung, dies zu tun, und nirgendwo sonst online oder in der VBA-Hilfe finde ich eine Methode, das entspricht dieser. Hat jemand hatte keinen Erfolg mit dieser?

Hier ist das code-snippet, gebe mir Mühe:

For Count = 1 To 7
    If Worksheets("Sheet1").ChartObjects("ChartName").Chart.SeriesCollection(1).Points(Count).Value > 1 Then
    '... do stuff

Wegen der Art der Daten im Datensatz gespeichert, auf jeden Fall wäre es besser, den Wert aus dem Diagramm direkt. Ich konnte herausfinden, eine Problemumgehung verwenden das dataset selbst, aber ich würde eher vermeiden, dass.

Welche Fehlermeldung bekommen Sie? Könnte Sie veröffentlichen eine vollständigere version des Codes? Auch, ich entfernt Ihre Entschuldigung; es ist eigentlich von Stack-Overflow-Regeln, wenn Sie eine neue Frage, Sie sollte die post eine neue Frage anstatt zu Fragen, in eine bestehende ein, so gut auf Sie.
Es heißt "Run-Time Error 438: Objekt unterstützt diese Eigenschaft oder Methode nicht". Scheint ziemlich einfach... war ich meist gefragt, ob die gleiche Eigenschaft existiert, einfach mit einem anderen Namen. Viel mehr gab es nicht an dem code, da ich herausgefunden, dass dies sicher der Teil, war mir der Fehler. Ich habe nicht bekommen, um tatsächlich die Umsetzung des "Zeugs", aber es würde mich nicht einmal öffnen, zum Beispiel, eine "msgbox" Bestätigung hatte, bestanden die Zeile. Und durch die Art und Weise, in diesem besonderen Beispiel wird der Wert des Punkts war in der Tat größer als 1!!

InformationsquelleAutor Joe | 2013-02-27

  1. 10
    Sub Tester()

Dim cht As Chart, s As Series, p As Point
Dim vals, x As Integer

    Set cht = ActiveSheet.ChartObjects(1).Chart
    Set s = cht.SeriesCollection(1)

    vals = s.Values

    For x = LBound(vals) To UBound(vals)
      If vals(x) > 10 Then
        With s.Points(x)
            .MarkerBackgroundColor = RGB(255, 0, 0)
            .MarkerForegroundColor = RGB(255, 0, 0)
        End With
      End If
    Next x

End Sub
    Dies ist erstaunlich, ich danke Ihnen so sehr! Ich habe es angepasst, was ich brauche, es zu tun (Lesen: kompliziert und verschmutzt); was ich nicht verstehen kann, jetzt ist der Grund, warum Sie tut, was ich brauche auf alle, aber einer meiner charts. Ich habe meine code bei pastebin.com/yTqEnw01, wenn Sie möchten, um einen Blick zu nehmen. Im Grunde, es ist die Farbe der Kodierung jedes Diagramm richtig, aber chart "2" ist immer grün; die Farben ändern sich nie.
    Schwer zu sagen, ohne zu sehen, die gesamte Arbeitsmappe: nicht sehen, keine offensichtlichen Probleme mit deinem code.
    Ich denke, dass es endete als ein problem mit Excel erkennt nicht den Titel des Diagramms. Das heißt, ich nannte den charts "1", "2", "3", etc., so konnte ich Durchlaufen, aber VBA war, als wenn ich Rede-Diagramm(1) im Gegensatz zu Tabelle("1"). Ich fügte hinzu, ein "Fall wählen Sie" ausspucken eine tatsächliche Diagramm-name und das problem behoben; außerdem ist der code besser lesbar für Menschen, die mehr Anfänger als ich. Vielen Dank für Ihre Hilfe; ich würde upvote, aber meine Bewertung ist nicht hoch genug!
    Kein problem: bitte "akzeptieren" die Antwort, aber (durch Klick auf das Häkchen). Dies hilft wer kommt später mit einer ähnlichen Frage eine Antwort zu finden.
    Es ist eine Schande Point.Value existiert nicht. Dieser Ansatz ist nur so gut, sobald du es geschrieben. Verwendet die Technik hier, um löschen Sie Daten Etiketten basierend auf dem Wert.

    InformationsquelleAutor Tim Williams

Schreibe einen Kommentar