Перейти на определенную ячейку в текущей строке - Microsoft Office Excel - Страница 2

ольгаг · 06.06.2012, 11:20

Спасибо большое! Код:
Cells(ActiveCell.Row, 4).MergeArea.Copy
копирует объединенный диапазон!

Подскажите пожалуйста, как сделать чтобы адрес первой (верхней левой) ячейки объединенного диапазона был использован как формула в другой ячейке? Т.е. ниже приведен код, в котором в первой (верхней левой) ячейке определяется адрес (dd), например, $B$9. Как сделать чтобы в другой ячейке (т.е. ActiveCell.Offset(0, 1)) прописалась формула "=$B$9"?

Dim dd As Variant
dd = Cells(ActiveCell.Row, 4).MergeArea.Cells(1, 1).Address
'MsgBox dd
ActiveCell.Offset(0, 1).Formula = "?"

Заранее спасибо!

SAS888 · 06.06.2012, 12:26

Так и пишите:

Код:

ActiveCell.Offset(0, 1).Formula = "=" & dd

ольгаг · 06.06.2012, 12:33

Спасибо большое этот код работает в моем задании!
Дело оказалось в правильной записи, которую Вы подсказали. Еще раз спасибо.

SAS888 · 06.06.2012, 12:36

Цитата:

Главное в чем у меня проблема, как сделать чтобы в другой ячейке прописалась формула "=$B$9"

А что? Не прописывается?

ольгаг · 06.06.2012, 12:44

Все в порядке, Вы правильно подсказали мне код
ActiveCell.Offset(0, 1).Formula = "=" & dd.

Дело в том что у меня была такая задача, что нужно было сделать следующее:
есть объединенная ячейка, например, B9:B12. И справа от нее идут строки, в первой ячейке которых должно быть значение из объединенной ячейки. Причем должна быть связь (меняется значение в объединенной ячейке - меняются в первых ячейках строк). Может конечно есть грамотнее решение, но с Вашим кодом работает. Спасибо.

IgorGO · 06.06.2012, 12:55

все вздохнули с облегчением. а то казалось - эта переписка не закончится.

06.06.2012, 12:26	#12
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Так и пишите: Код: `ActiveCell.Offset(0, 1).Formula = "=" & dd` Чем шире угол зрения, тем он тупее. Последний раз редактировалось SAS888; 06.06.2012 в 12:34.

06.06.2012, 12:33	#13
ольгаг Форумчанин Регистрация: 22.02.2010 Сообщений: 326	Спасибо большое этот код работает в моем задании! Дело оказалось в правильной записи, которую Вы подсказали. Еще раз спасибо. Последний раз редактировалось ольгаг; 06.06.2012 в 12:38.

06.06.2012, 12:55	#16
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	все вздохнули с облегчением. а то казалось - эта переписка не закончится. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Скопировать значение из определённой ячейки ТЕКУЩЕЙ СТРОКИ в определённую ячейку другого листа	Павел-812	Microsoft Office Excel	12	12.07.2012 17:44
Смена текущей папки в командной строке	_-Re@l-_	Свободное общение	11	14.05.2011 07:25
Перейти на определенную запись	Yuran	БД в Delphi	5	20.09.2010 14:01
Как перейти на ячейку	komar73	Microsoft Office Excel	2	09.02.2009 13:30
Как в DBgrid выделить определенную ячейку жирным?	Dux	БД в Delphi	6	10.08.2008 03:42

06.06.2012, 11:20	#11
ольгаг Форумчанин Регистрация: 22.02.2010 Сообщений: 326	Спасибо большое! Код: Cells(ActiveCell.Row, 4).MergeArea.Copy копирует объединенный диапазон! Подскажите пожалуйста, как сделать чтобы адрес первой (верхней левой) ячейки объединенного диапазона был использован как формула в другой ячейке? Т.е. ниже приведен код, в котором в первой (верхней левой) ячейке определяется адрес (dd), например, $B$9. Как сделать чтобы в другой ячейке (т.е. ActiveCell.Offset(0, 1)) прописалась формула "=$B$9"? Dim dd As Variant dd = Cells(ActiveCell.Row, 4).MergeArea.Cells(1, 1).Address 'MsgBox dd ActiveCell.Offset(0, 1).Formula = "?" Заранее спасибо!

06.06.2012, 12:44	#15
ольгаг Форумчанин Регистрация: 22.02.2010 Сообщений: 326	Все в порядке, Вы правильно подсказали мне код ActiveCell.Offset(0, 1).Formula = "=" & dd. Дело в том что у меня была такая задача, что нужно было сделать следующее: есть объединенная ячейка, например, B9:B12. И справа от нее идут строки, в первой ячейке которых должно быть значение из объединенной ячейки. Причем должна быть связь (меняется значение в объединенной ячейке - меняются в первых ячейках строк). Может конечно есть грамотнее решение, но с Вашим кодом работает. Спасибо.