Возврат значения активной ячейки - Microsoft Office Excel

Пингвини · 17.04.2012, 03:31

Друзья, подскажите плиз. Что-то меня заклинило, уже третий день бьюсь. Поиск ничего не дал (может неправильно формулирую запрос). Подскажите пожалуйста или ткните в тему где это обсуждалось.

Проблема (и задача) достаточно простая. Есть таблица и есть на втором листе ячейка. В таблице в первом столбце идет номерация строк. Как мне сделать так, что бы при выборе любой ячейки в строке, в ячейку на втором листе вставлялся(копировался) номер этой строки из таблицы? И так по всей таблице?
Или упрощенная версия. При выборе (активизации) ячейки с номером, её значение автоматически копировалось бы в ячейку на втором листе. Но при активизации ячеек только в первом столбце?

ShAM66 · 17.04.2012, 06:39

Так?

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("1:10")) Is Nothing Then Worksheets("Лист2").[C3].Value = Cells(Target.Row, 1).Value
End Sub

Пингвини · 17.04.2012, 15:48

Да, оно. Заработало!!! Спасибо друг тебе огромное!!!

17.04.2012, 03:31	#1
Пингвини Новичок Джуниор Регистрация: 17.04.2012 Сообщений: 2	Возврат значения активной ячейки Друзья, подскажите плиз. Что-то меня заклинило, уже третий день бьюсь. Поиск ничего не дал (может неправильно формулирую запрос). Подскажите пожалуйста или ткните в тему где это обсуждалось. Проблема (и задача) достаточно простая. Есть таблица и есть на втором листе ячейка. В таблице в первом столбце идет номерация строк. Как мне сделать так, что бы при выборе любой ячейки в строке, в ячейку на втором листе вставлялся(копировался) номер этой строки из таблицы? И так по всей таблице? Или упрощенная версия. При выборе (активизации) ячейки с номером, её значение автоматически копировалось бы в ячейку на втором листе. Но при активизации ячеек только в первом столбце?

17.04.2012, 06:39	#2
ShAM66 Форумчанин Регистрация: 24.02.2012 Сообщений: 160	Так? Код: `Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("1:10")) Is Nothing Then Worksheets("Лист2").[C3].Value = Cells(Target.Row, 1).Value End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Окрашивание активной ячейки	ru3000	Microsoft Office Excel	33	14.03.2012 16:17
Переход с активной ячейки направо	sergantikus	Microsoft Office Excel	3	01.07.2010 13:11
Определение позиции активной ячейки	Nynexerasebe	Microsoft Office Excel	2	30.06.2010 13:43
Выделение цветом активной ячейки в excel	ksmspb	Microsoft Office Excel	1	05.08.2009 14:26
Данные в ячейке из активной ячейки.	ru3000	Microsoft Office Excel	1	28.07.2009 05:29

17.04.2012, 15:48	#3
Пингвини Новичок Джуниор Регистрация: 17.04.2012 Сообщений: 2	Да, оно. Заработало!!! Спасибо друг тебе огромное!!!