Поиск фигур

[hamlook]

Есть план помещения. Помогите пожалуйста создать поиск по имени фигуры с выделением ее цветом (красным например) и с выделением связанных с ней фигур. И еще, если это возможно, рядом с фигурой (или где то в специальном окне) отображалось описание. Например набирается в поиск "1", должен выделится квадрат "1", квадраты "1/1" и "1/2" и описание "первый", "первый1", "первый2".

[doober]

Главное правильно квадратикам имена дать,а найти их не проблема.
По нужной цифре 1,2, или 3 двойной клик

PS.Проще наверное через Техт,но я привык с именами работать

[Dophin]

я в таких событиях обычно использую в конце строку

Cancel = True

ибо входить в режим редактирования формул нам в данном случае не нужно.

[hamlook]

Прошу прощения, но я не понял как запустить поиск... (((

[doober]

По нужной цифре 1,2, или 3 двойной клик

В17 или В19 или В21
Сам принцип,остальное сделаете под себя

[hamlook]

Все получается! Спасибо.
Dophin Ты прав, так удобнее. Спасибо.

[hamlook]

Появилось еще несколько вопросов...
План у меня получается довольно большой и я поместил инфу и схему на разные листы. Подскажите как зделать так чтобы при любом масштабе выделяемая фигура была в рамках экрана.
И еще. Как правильно дать имя связанным фигурам? Все фигуры у меня имеют совершенно разные наименования и никак не пойму как связать их.

[doober]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim L As Integer
Dim r As Shape
Dim w As String
w = Target.Value
L = 1
 Sheets("Лист2").Shapes(1).DrawingObject.Interior.ColorIndex = 0
  For Each r In Sheets("Лист2").Shapes
  
  If r.Name Like w & "*" And w <> "" Then
  
  r.DrawingObject.Interior.ColorIndex = 3
  
 L = r.Left / 64 ' У вас установлена на данный момент такая ширина столбца
  
  Else
   r.DrawingObject.Interior.ColorIndex = 0
  Cancel = True
  End If
   Next r
 Cancel = True
 Sheets("Лист2").Activate

   ActiveWindow.ScrollColumn = L
End Sub

[hamlook]

Спасибо. Прекрасно работает.
Вот со связями пока проблемма...

[hamlook]

Я решил добавить форму поиска в свой план. Уважаемый EducatedFool как-то давал ссылку на такую форму. Я ей воспользовался и подправил для своих нужд.
Помогите пожалуйста теперь настроить поиск фигур с кнопки "Поиск на плане" в форме .
И еще пара вопросов по форме. Я понял как зделать запрет на редактирование через форму. Но я бы хотел чтобы редактирование в поле "Примечание" оставалось возможным.
И еще. Поиск в базе данных и переход к просмотру работают нормально. Вот только когда обратно нажимаешь кнопку "Поиск в базе.." и в форме выбираешь другую строку, при переходе к Просмотру отображаются данные прошлой строки. Скажите пожалуйста как исправить.
Заранее спасибо.