Как добавить переменную в формулу, VBA

Светлана В

Гость

07.12.2010 12:47:37

В одном из циклов есть такое условие
If ActiveCell(0, -1) <> "" Then ActiveCell.FormulaR1C1 = "=SUMIF(RC[-1]:R[2528]C[-1],RC[-1],RC[-4]:R[2528]C[-4])"

Но значение R[2528] может менятся в зависимости от количества строк.
Перед циклом я задаю переменную, которая возращает количество строк, что-то типа
Range("A1").Select
er = Range(Selection, Selection.End(xlDown)).Rows.Count

Как бы вставить эту переменную в формулу вместо R[2528]??

webley

Пользователь

Сообщений: 2176 Регистрация: 01.01.1970

07.12.2010 13:01:58

Вот так:
If ActiveCell(0, -1) <> "" Then ActiveCell.FormulaR1C1 = "=SUMIF(RC[-1]:R[" & er & "]C[-1],RC[-1],RC[-4]:R[" & er & "]C[-4])"

только не забывайте, что подставить вам надо число, равное количеству столбцов от текущей ячейки. Короче, что ссылки у вас относительные :)

ТолькоУчусь

Пользователь

Сообщений: 1220 Регистрация: 13.05.2010

07.12.2010 13:56:37

Да, а зачем Вам выделять ячейку?
Возможно, так поступить.
--------------------------
'Range("A1").Select
'er = Range(Selection, Selection.End(xlDown)).Rows.Count
lCountRow = ActiveSheet.UsedRange.Rows.Count
'или
'lCountRow = ActiveSheet.Range(Cells(1,1),Cells(Rows.Count, 1).End(xlUp)).Rows.Count
--------------------------

Светлана В Гость	#4 07.12.2010 14:03:38 Не совсем поняла "подставить вам надо число, равное количеству столбцов от текущей ячейки". Почему столбцов? и от текущей ячейки до куда? Таки да, неправильную формулу возвращает

webley

Пользователь

Сообщений: 2176 Регистрация: 01.01.1970

07.12.2010 14:12:05

{quote}{login=Светлана В}{date=07.12.2010 02:03}{thema=}{post}Не совсем поняла "подставить вам надо число, равное количеству столбцов от текущей ячейки".
Почему столбцов? и от текущей ячейки до куда?

Таки да, неправильную формулу возвращает{/post}{/quote}

Да, со столбцами я конечно стормозил - конечно имелась ввиду строка. Т.е. подставить вам надо следующее число:
Номер_строки_ячейки_с_формулой - Номер_последней_строки

Думаю на примере будет понятно

Прикрепленные файлы

post_181619.xls (32.5 КБ)

Светлана В

Гость

07.12.2010 14:12:59

{quote}{login=Дъмитръ}{date=07.12.2010 01:56}{thema=}{post}Да, а зачем Вам выделять ячейку?
Возможно, так поступить.
--------------------------
'Range("A1").Select
'er = Range(Selection, Selection.End(xlDown)).Rows.Count
lCountRow = ActiveSheet.UsedRange.Rows.Count
'или
'lCountRow = ActiveSheet.Range(Cells(1,1),Cells(Rows.Count, 1).End(xlUp)).Rows.Count
--------------------------{/post}{/quote}
Вы знаете, этот UsedRange просто прелесть что такое)) как и в предыдущем совете))) спасибо))) продолжаем борьбу с селектами

Светлана В

Гость

07.12.2010 14:17:29

{quote}{login=webley}{date=07.12.2010 02:12}{thema=Re: }{post}{quote}{login=Светлана В}{date=07.12.2010 02:03}{thema=}{post}Не совсем поняла "подставить вам надо число, равное количеству столбцов от текущей ячейки".
Почему столбцов? и от текущей ячейки до куда?

Таки да, неправильную формулу возвращает{/post}{/quote}

Да, со столбцами я конечно стормозил - конечно имелась ввиду строка. Т.е. подставить вам надо следующее число:
Номер_строки_ячейки_с_формулой - Номер_последней_строки

Думаю на примере будет понятно{/post}{/quote} я таки сама разобралась, просто у меня что-то в файло стормозило и диапазоны вообще не выделялись))
Принцип понятен, буду адаптировать под свои задачи))
Единственное, хотела бы спросить, что означают & в R[" & er & "] ???

webley Пользователь Сообщений: 2176 Регистрация: 01.01.1970	#8 07.12.2010 14:27:04 & - объединение двух строк

Светлана В Гость	#9 07.12.2010 14:40:08 Спасибо, всё получилось. А относительные ссылки в данном случае очень нужны, ибо у диапазона должна сдвигаться верхняя граница. А нижнюю границу зафиксировала путем вычитания номера шага цикла из переменной. короче, намудрила, но работает))) спасибо огромное)))

Читают тему