Помогите, пожалуйста подправить макрос.
Суть макроса в том, что он автоматизирует описание корреляций. Что-то файл не прикрепляется. Залил сюда
http://rghost.ru/59144887
вот код
Код:
Sub CorrDescription()
Dim sNmCl$, sNmRw$, sStr$
Dim r As Range
Dim oDict: Set oDict = CreateObject("Scripting.Dictionary"): oDict.CompareMode = vbBinaryCompare
sStr = "При проведении корреляционного анализа были полученные статистически достоверные зависимости, так, "
For Each r In Selection
If r.Font.ColorIndex = 3 Then
sNmCl = Cells(1, r.Column).Value
sNmRw = Cells(r.Row, 1).Value
If oDict.Exists(sNmCl & sNmRw) = False And oDict.Exists(sNmRw & sNmCl) = False Then
If r.Value >= 0 Then
sStr = sStr & sNmCl & " положительно коррелирует с " & sNmRw & " (r = " & Application.Round(r.Value, 2) & ", p<0,05), "
Else
sStr = sStr & sNmCl & " отрицательно коррелирует с " & sNmRw & " (r = " & Application.Round(r.Value, 2) & ", p<0,05), "
End If
oDict.Item(sNmCl & sNmRw) = 1
oDict.Item(sNmRw & sNmCl) = 1
End If
End If
Next
sStr = Left(sStr, Len(sStr) - 2) & "."
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 2, 1) = sStr
End Sub
просто запускается макрос и коэф.помеченные красным цветом описываются, например var1 c var.
А можно туда добавить строчки, чтобы он не просто писал механически типа
PHP код:
var2 положительно коррелирует с var1 (r = 0,7, p<0,05)
, а чтобы шаблонно добавлял выводы.Например, понятно, что если положительно коррелирует, значит чем больше вар2, тем больше вар1, если отрицательно, то чем больше вар2, тем меньше вар1.
Чтобы тогда описание выглядело так
var2 положительно коррелирует с var1 (r = 0,7, p<0,05)
следовательно чем больше var 2,
тем больше var1
если знак отрицательный, то следовательно, чем больше var 2,тем меньше var1
жирным помечены эти вводные слова, которые надо прописать в код.
