Excel VBA - LaunchSet-Methoden, die von IR-Steuerungskarten verwendet werden<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hallo wieder. Ich habe mir das VB.NET-Beispiel "Analyse" angesehen:
C: \ Programme \ SAS \ JMP \ 11 \ Samples \ Automation \ Visual Basic-Beispiele \ Analysis .NET \ analysis.vb
Dann extrahierte ich aus der ControlChart_Click () - Prozedur Code in Bezug auf IR-Charts (siehe unten).
Der Code wurde erfolgreich ausgeführt ... mit Ausnahme der 2 Codezeilen, die ich hinzugefügt habe:
ccontrol2.LaunchSetIRChartParms (True, False, 2)
ccontrol2.LaunchSetKSigmaAlphaH (True, False, False, 3.0, 1.0)
Bitte informieren Sie sich über die korrekte Syntax. Vielen Dank!
'--------------------------------------------- ---------
'Analyse> Kontrollkarte> IR> Einzelmessung
'--------------------------------------------- ---------
Sub ControlChart ()
Dim-App als JMP.Application
Dim doc Als JMP.Dokument
Dim dt As JMP.DataTable
Dim ccontrol2 Wie JMP.ControlChart
'Starten Sie JMP
Set app = CreateObject ("JMP.Application")
app.Visible = True
'Rufen Sie das Dokument auf und rufen Sie den Zeiger auf die zugrunde liegende Datentabelle ab.
Legen Sie doc = app.OpenDocument fest ("C: \ Programme \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp").
Legen Sie dt = doc.GetDataTable fest
'Bringen Sie die Datentabelle in den Vordergrund und machen Sie sie zur aktiven Tabelle.
dt.Activate
'Einen bestimmten Typ von Analyseobjekt erstellen (z. B. ControlChart),
', um Spalten anzugeben und die Analyse zu starten.
Legen Sie ccontrol2 = doc.CreateControlChart fest
'Wählen Sie eine Spalte für das Diagramm auf der vertikalen Achse aus.
ccontrol2.LaunchAddProcess ("height")
'Wählen Sie eine Spalte aus, deren Werte die horizontale Achse kennzeichnen.
ccontrol2.LaunchAddSampleLabel ("age")
'Wählen Sie die Spalte für die Nachbearbeitung aus.
ccontrol2.LaunchAddBy ("sex")
'Wählen Sie den gewünschten Diagrammtyp aus jmpControlChartConstants (z. B. IR) aus.
ccontrol2.LaunchSetChartType ((JMP.jmpControlChartConstants.jmpControlChartIR))
'Legen Sie für die IR-Karte die Option Einzelmessung und KSigma-Parameter fest.
ccontrol2.LaunchSetIRChartParms (True, False, 2)
ccontrol2.LaunchSetKSigmaAlphaH (True, False, False, 3.0, 1.0)
'Führen Sie die Analyse mit zuvor durch LaunchAdd___ angegebenen Spalten aus.
ccontrol2.Launch
End Sub
Betreff: Excel VBA - LaunchSet-Methoden, die von IR-Steuerungskarten verwendet werdenDanke, Brian. Ihr Test meines Codes hat mir geholfen, in die richtige Richtung zu weisen.
Ich habe über die Syntax zum Aufrufen von Unterprogrammen gelesen:
- Wenn Sie das Schlüsselwort "Call" verwenden, müssen Sie die Argumentliste in Klammern einschließen.
- Wenn Sie das Schlüsselwort "Call" nicht angeben, müssen Sie auch die die Argumentliste umgebende Klammer weglassen.
Es gibt also zwei korrekte Möglichkeiten, dies in VB zu codieren:
Rufen Sie ccontrol2.LaunchSetIRChartParms auf (True, False, 2)
Aufruf ccontrol2.LaunchSetKSigmaAlphaH (True, False, False, 3 #, 1 #)
und
ccontrol2.LaunchSetIRChartParms True, False, 2
ccontrol2.LaunchSetKSigmaAlphaH True, False, False, 3 #, 1 #
Betreff: Excel VBA - LaunchSet-Methoden, die von IR-Steuerungskarten verwendet werdenHallo JB,
Ich kann dir nicht helfen. Die Methoden, die Sie oben erwähnt haben, haben für mich gut funktioniert. Was für einen Fehler bekommst du?
Brian Corcoran
JMP
