Определение крайних ячеек диапазона

[Айвенго]

...читал некую похожую тему... но там не то что хотелось бы осуществить... вообщем проблема в следующем... имеется таблица где она заполнена различными цифрами... нужно сделать так чтобы при вводе числа допустим в ячейку А1 (число имеется в данной таблице) определилось крайнее верхнее число этой таблицы в ячейку B1 и крайнее левое число этой таблицы в ячейку C1... иными словами какая функция выполняет обратное действие функций "ВПР" и "ГПР"

[nilem]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
Dim pz As Range
Set pz = Intersect(Me.UsedRange, Me.Rows("3:1000")).Find([a1], LookAt:=xlWhole)
If pz Is Nothing Then Exit Sub
[b1] = Cells(2, pz.Column): [c1] = Cells(pz.Row, 1)
End Sub

[Айвенго]

спасибо... работает... а не используя программный код как это можно реализовать??? просто цель в будущем стоит чтобы эти значения как вводились так и выводились каждый раз в разных ячейках...

[IgorGO]

во вложении аж 2 варианта

[Айвенго]

хэх... спасибо... второй вариант... довольно таки оооочень интересен

[nilem]

4-й вариант. UDF (2 штуки).

[Айвенго]

всем спасибо... выручили