Код:
Function clmn(pRange As Range)
MsgBox pRange.Column
End Function
Результат: 2
Как получить тот же результат, когда в ячейке B3 написано: =clmn()
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Разобрался!
Помогли люди с форума http://www.planetaexcel.ru
The_Prist писал(а):
Попробуйте так
Для столбца
Function clmn()
clmn = Application.Caller.Column
End Function
Полный адресс
Function clmn()
clmn = Application.Caller.Address
End Function