Подскажите, как в макросе задать формулу m=КОРРЕЛ(Лист1!Bi:Bj;Лист1!Ci:Cj), где i, j - количество строк и столбцов таблицы соответственно.

vkodor

У меня что-то не получается, может что-то не так делаю

Sub macros1()

Dim MyTable As Range
k = Int(InputBox("Введите количество строк:"))
l = Int(InputBox("Введите количество столбцов:"))
For i = 2 To k
For j = 1 To l
Formula = WorsheetsFunction.Correl(Worksheets("Лист2").Range("B" & "1" & (":B" & i)))
Set MyTable1 = Range(Cells(2, 1), Formula)
MyTable.Select
Next i
Next j

End Sub

asta97 автор
Подскажите, как в макросе задать формулу m=КОРРЕЛ(Лист1!Bi:Bj;Лист1!Ci:Cj), где i, j - количество строк и столбцов таблицы соответственно.

ОЧЕНЬ интересно сформулированное условие.
авторFormula = WorsheetsFunction.Correl(Worksheets("Лист2").Range("B" & "1" & (":B" & i)))
Set MyTable1 = Range(Cells(2, 1), Formula) Вот это не пойдет
Судя по первому посту, работаем только со строками, столбцы неизменны B, C. Нумерация строк с 1.
' в активную ячейку пишем формулу, предварительно определяя количество строк, и начальный номер строки.
Sub macros1()
k = Int(InputBox("Введите количество строк:"))
i = Int(InputBox("Введите начальный номер строки:"))
ActiveCell.Formula = "=CORREL(Лист1!B" + Trim(Str(i)) + ":B" + Trim(Str(i + k - 1)) + ",Лист1!C" + Trim(Str(i)) + ":C" + Trim(Str(i + k - 1)) + ")"
End Sub

Спасибо почти все получилось!

asta97 автор
Подскажите, как в макросе задать формулу m=КОРРЕЛ(Лист1!Bi:Bj;Лист1!Ci:Cj), где i, j - количество строк и столбцов таблицы соответственно.

ОЧЕНЬ интересно сформулированное условие.
авторFormula = WorsheetsFunction.Correl(Worksheets("Лист2").Range("B" & "1" & (":B" & i)))
Set MyTable1 = Range(Cells(2, 1), Formula) Вот это не пойдет
Судя по первому посту, работаем только со строками, столбцы неизменны B, C. Нумерация строк с 1.
' в активную ячейку пишем формулу, предварительно определяя количество строк, и начальный номер строки.
Sub macros1()
k = Int(InputBox("Введите количество строк:"))
i = Int(InputBox("Введите начальный номер строки:"))
ActiveCell.Formula = "=CORREL(Лист1!B" + Trim(Str(i)) + ":B" + Trim(Str(i + k - 1)) + ",Лист1!C" + Trim(Str(i)) + ":C" + Trim(Str(i + k - 1)) + ")"
End Sub

А подскажите, пожалуйста, еще! А как записать формулу, если сделать столбцы B и С переменными? То есть ввести переменные, например, s и t - введите имя первого и второго столбца?