Формула "Равно" в макросе

[27102014]

Всем доброго времени суток!
В теме от Jaroslav мелькнула очень интересная идея, которая сподвигла на написание макроса для составления одного отчета.
Возникла проблема - нужно на одном листе поставить в ячейке ссылку на ячейку на другом листе, проще говоря ячейка В2= А1, через макрорекодер выглядит так

    Range("D4").Select
    ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C"

Хотелось бы чтобы это выглядело как-то так

Range("D4").FormulaR1C1 = "=Sheet1!" & Cells(7, 4)

чтобы была возможность сделать ссылку на "плавающую ячейку" - выбранную в зависимости от условия

Нужно поставить не значение из ячейки, а именно ссылку на ячейку

[IgorGO]

r = 7:  c = 4
Range("D4").FormulaR1C1 = "=Sheet1!R" & r & "C" & c

[27102014]

Игорь, СПАСИБО ОГРОМНОЕ!!!!
То что нужно!!!!! Надеялся на Вашу помощь - когда-то Вы сказали что предпочитаете стиль ячеек R1C1.
Уточните, пжл, если знаете - вставляемая макросом ссылка абсолютная, в $ $, можно ли прописать в коде чтобы она была относительной????

[IgorGO]

dim dr as string, dc as string, r as long, c as long, cell as range
r = 7:  c = 4:  set cell = [d4]
dr = "R" & iif (r-cell.row =0, "", "[" & r-cell.row & "]")
dc = "C" & iif(c-cell.column =0, "", "[" & c-cell.column & "]")
cell.FormulaR1C1 = "=Sheet1!" & dr & dc

[27102014]

Очень сложно понять
Попробовал настроить под свои данные - координаты ячейки вычисляются в цикле - получилась "каша"

Воспользуюсь первоначальной формулой, а потом сделаю замену $ вот так

Selection.Replace What:="$", Replacement:="", LookAt:=xlPart

Еще раз спасибо!!!!!

[IgorGO]

устанавливаются значения переменных:
r, c (ряд, колонка) - куда надо сослаться
cell - ячейка, в которую внести формулу
r = 7: c = 4: set cell = [d4]
тремя строками ниже в cell вносится относительная ссылка на ячейку (r,c) листа Sheet1

[27102014]

Вроде понял - уже использовал переменную "с", поэтому изначально не получилось

r = i + 1: j = h:
Set cell = ActiveCell
dr = "R" & IIf(r - cell.Row = 0, "", "[" & r - cell.Row & "]")
dj = "C" & IIf(j - cell.Column = 0, "", "[" & j - cell.Column & "]")
cell.FormulaR1C1 = "=Sheet1!" & dr & dj

[pashulka]

Сообщение от 27102014

можно ли прописать в коде чтобы она была относительной????

Range("D4").Formula = "=Sheet1!" & Cells(7, 4).Address(False, False)