okshef
30-05-2011, 11:01
Pozia, мне проще вам дать макрос
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
R = Target.Row
C = Target.Column
MsgBox "Строка=" & R & "; Столбец=" & C
End Sub
Для изучения: создайте новую книгу, скопируйте текст выше, откройте редактор VBA, откройте "Лист1", вставьте скопированный текст, перейдите из редактора VBA на Лист 1 в книге и начните щелкать по ячейкам.
Свойство Target.Row возвращает номер строки выделенной ячейки.
P.S. А номер строки возвращает функция СТРОКА. Подумайте, как ее "прикрутить" к вашей задаче.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
R = Target.Row
C = Target.Column
MsgBox "Строка=" & R & "; Столбец=" & C
End Sub
Для изучения: создайте новую книгу, скопируйте текст выше, откройте редактор VBA, откройте "Лист1", вставьте скопированный текст, перейдите из редактора VBA на Лист 1 в книге и начните щелкать по ячейкам.
Свойство Target.Row возвращает номер строки выделенной ячейки.
P.S. А номер строки возвращает функция СТРОКА. Подумайте, как ее "прикрутить" к вашей задаче.