Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Протянуть формулу по левому столбцу(VBA)
 
#1
13.03.2013 20:49:12
Доброго времени суток господа.
Помогите победить кусок кода, а именно:
надо макросом протянуть формулу.
и именно ActiveCell вместо Range

Код
   ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-9],StandDB!C[-10]:C[21],11,0),"""")"

Пробовал такой вариант - не работает
Код
 nr = Range("C5", Range("C5").End(xlDown)).Rows.Count
  Range("K6").AutoFill Range("K6:K" & nr)


не то форматирование применил, сорри
Изменено: Евгений Квитницкий - 13.03.2013 20:58:44
 
 
 
#2
13.03.2013 20:53:41
Вставляете код - отключайте смайлы.
 
 
 
#3
14.03.2013 08:32:35
Никаких идей, по вопросу выше ?
 
 
 
#4
14.03.2013 08:53:06
Попробуйте на пустом листе мою незамысловатую формулу протянуть.

Код
Sub formula()
'подготовим что считать
For i = 1 To 10
Cells(i, 2) = i: Cells(i, 3) = i + 20
Next

'протянем формулу
For i = 1 To 10
Cells(i, 1).Activate
'именно ActiveCell
ActiveCell = "=$B" & i & "+$C" & i
Next

End Sub
 
 
 
#5
14.03.2013 12:08:49
Попробуйте

Range.FillDown  

копирует содержимое и форматирование
из верхней строки в остальные строки
диапазона Range
 
 
 
#6
14.03.2013 12:48:06
Цитата
Евгений Квитницкий пишет:
надо макросом протянуть формулу.
и именно ActiveCell вместо Range
Хитро вопрос сформулирован.
И где в ФОРМУЛЕ ActiveCell ?
А если надо поместить формулу "=IFERROR(VLOOKUP(RC[-9],StandDB!C[-10]:C[21],11,0),"""")" в столбец, то
Код
[A1:A10].FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-9],StandDB!C[-10]:C[21],11,0),"""")"

именно это и сделает.
 
 
 
#7
14.03.2013 15:24:56
Я не знаю в каком именно столбце будет эта формула.
ячейка, в какую надо вписать формулу и протянуть вниз(на неопределенное заранее кол-во строк) расчитывается по условию offset от найденой необходимой ячейки. Это может быть как С1 так и F12 и тд
пример прилагается
Изменено: Евгений Квитницкий - 15.03.2013 00:39:24
 
 
 
#8
14.03.2013 16:12:04
Выделяете ячейку с формулой и запускаете макрос
Код
Sub formula()
LR = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
With ActiveCell
.AutoFill Destination:=.Resize(LR - .Row + 1, 1), Type:=xlFillDefault
End With
End Sub
 
 
 
#9
14.03.2013 16:30:54
Sergei_A, спасибо большое,
именно то что надо.
Изменено: Евгений Квитницкий - 14.03.2013 16:31:11
 
 
 
Страницы: 1
Читают тему
Наверх