Преобразование числа в символ для макроса в Statistica - VB
Формулировка задачи:
Здравствуйте, потребовалось провести множественную линейную регрессию в Statistica много раз, для чего решил сделать макрос. Макрос программа написала сама, я лишь добавил цикл. Проблема в строчке:
В ней указываются в виде текста предиктант и предикторы в виде номеров столбцов в таблице (в данном случае предиктор в 1 столбце, предиктанты - в 2-4 столбцах) . Как запрограммировать их изменение (например, увеличение на единицу каждого из них) с каждой итерацией цикла? Большое спасибо.
Весь код макроса:
Листинг программы
- oAD1.Variables = "1 | 2 - 4"
Листинг программы
- Option Base 1
- Sub Main
- Dim A As Integer
- For A = 1 To 10
- Dim AO As AnalysisOutput
- Dim AWB As Workbook
- Dim S1 As Spreadsheet
- Set S1 = ActiveDataSet
- Dim newanalysis2 As Analysis
- Set newanalysis2 = Analysis (scMultipleRegression, S1)
- Dim oAD1 As STARegression.RegStartup
- Set oAD1 = newanalysis2.Dialog
- oAD1.Variables = "1 | 2 - 4"
- oAD1.InputFile = scRegRawData
- oAD1.CasewiseDeletionOfMD = True
- oAD1.PerformNonDefaultStepwiseAnalysis = False
- oAD1.ReviewDescriptiveStatistics = False
- oAD1.ExtendedPrecisionComputations = False
- oAD1.BatchProcessingAndPrinting = False
- newanalysis2.Run
- Dim oAD2 As STARegression.RegResults
- Set oAD2 = newanalysis2.Dialog
- oAD2.ComputeConfidenceLimits = True
- oAD2.AlphaForLimits = 0.05
- oAD2.PLevelForHighlighting = 0.05
- Set AO = newanalysis2.RouteOutput(oAD2.Summary)
- AO.Visible = True
- If AO.HasWorkbook Then
- Set AWB = AO.Workbook
- Else
- Set AWB = Nothing
- End If
- Next
- End Sub
Решение задачи: «Преобразование числа в символ для макроса в Statistica»
textual
Листинг программы
- oAD1.Variables = A & " | " & A+1 & " - " & A+3
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д