Определение позиции активной ячейки - Microsoft Office Excel

Nynexerasebe · 30.06.2010, 11:56

Всем привет!

Возник вопрос по поводу определения позиции ячейки в Excel (2003) средствами макроса.

Есть "лист1" в котором макрос автоматически запускается при активизации ячеек в колонке "B:B". При этом в ячейке "A1" по идее должен выводиться номер строки активной ячейки (в которую вводим текст). НО как на зло макрос выводит номер строки той ячейки на которую переводиться курсор после ввода текста.

Например если в ячейку "B4" я ввожу слово "проверка" и нажимаю Enter, то в ячейке "A1" появляется цифра "5" (номер строки) (так как после нажатия на Enter выделение сместилось вниз)
или если после ввода текста что бы закончить редактирование я переношу курсор в ячейку "C3", то и номер строки активной ячейки проставляется тоже "3".

Может есть другой способ?
Заранее благодарю за помощь!

The_Prist · 30.06.2010, 13:34

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([B:B], Target) Is Nothing Then
        Range("A1") = Target.Row
    End If
End Sub

Nynexerasebe · 30.06.2010, 13:43

The_Prist,

Спасибо огромное! Признателен!

30.06.2010, 13:34	#2
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B:B], Target) Is Nothing Then Range("A1") = Target.Row End If End Sub` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выделение цветом столбца и строки активной ячейки	cerberochek	Microsoft Office Excel	7	28.11.2012 12:56
Окрашивание активной ячейки	ru3000	Microsoft Office Excel	33	14.03.2012 16:17
выбор активной ячейки при выделении в listbox-e	serafim09	Microsoft Office Excel	5	25.03.2010 10:37
Выделение цветом активной ячейки в excel	ksmspb	Microsoft Office Excel	1	05.08.2009 14:26
Данные в ячейке из активной ячейки.	ru3000	Microsoft Office Excel	1	28.07.2009 05:29

30.06.2010, 13:43	#3
Nynexerasebe Регистрация: 04.06.2010 Сообщений: 8	The_Prist, Спасибо огромное! Признателен!