Как в VBA записать в ячейку формулу - есть ответ

newii, 251 просмотр

Привет.
Есть 2 ячейки c строкой/колонкой cell_one_row/cell_one_col и cell_one_row/cell_one_col.
Как в VBA сделать, чтобы на после выполнения скрипта была формула = ячейка(cell_one_row, cell_one_col) + ячейка(cell_one_row/cell_one_col).
Внимание, мне не рузультат вычисления нужен в ячейке а формула (типа =A1+A2)

Примечание:
Abdy K, не получается.
"=" & Cells(Row1,Col1) & "+" & Cells(Row2,Col2) - не работает
Cells(1,l1) - это range объект, а не "$A$1", а вот как из него "$A$1" сделать?

Примечание:
В общем все просто оказалось Cells(Row1,Col1).Address - как раз и дает адрес вида "$A$1"

Строка выглядит так:
ActiveCell.Formula="=" & Cells(Row1,Col1).Address & "+" & Cells(Row2,Col2).Address

Ответы:

Просто Андрюша

Ща времени нет эксперементировать, но если попробовать записать как текст формулу, а потом формат сменить на общий , может прокатит?

Andy_K

Если с относительным положением ячейки от активной, то:
R1C1 соответствует конкретной ячейке $A$1
R[1]C[1] соответсвует ячейке на одну строку вперед относительно текущего и на один столбец вперед относительно текущего.
Пример:
Dim Col1,Row1,Col2,Row2 as Integer
Row1=3
Col1=-1
Row2=6
Col2=1

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.