Окно для поиска ячейки по всем листам.

[TiG]

Приветствую шаманов экселя)
Каким образом можно реализовать поиск ячейки по ее названию, во всех листам документа, через созданное окно поиска на панели?
Спс заранее!!!

[EducatedFool]

Каким образом можно реализовать поиск ячейки по ее названию

А что такое "название ячейки"?

через созданное окно поиска на панели?

Созданное кем или чем?
На какой панели?

Приветствую шаманов экселя)

Шаманы здесь есть, а вот телепаты (которые только и смогут Вам помочь) все в отпуске...

[TiG]

Сообщение от EducatedFool

А что такое "название ячейки"?

Содержащаяся в ней информация в буквенном и числовом виде)

Сообщение от EducatedFool

Созданное кем или чем?
На какой панели?

Созданная в ручную, на панели инструментов. С предположением, что к ней можно присвоить код на VBA позволяющий выполнять данное действие.

Сообщение от EducatedFool

Шаманы здесь есть, а вот телепаты (которые только и смогут Вам помочь) все в отпуске...

Опять на марс вихри поднимать улетели?=)

[EducatedFool]

Сформировать в строке меню Excel 2003 поле для ввода искомого текста можно так:

Private Sub Workbook_Open()
    Application.CommandBars(1).Reset
    Add_Control Application.CommandBars(1), 4, -1, "SearchCell", "Поиск ячеек во всех листах книги"
End Sub

Function Add_Control(ByRef Comm_Bar, ByVal B_Type As Integer, ByVal B_Face As Integer, _
                     ByVal On_Action As String, ByVal B_Caption As String, _
                     Optional ByVal Begin_Group As Boolean = False, Optional Tag As String = "") _
                     As CommandBarControl
    ' добавляет контролы в меню Comm_Bar ' type=1 - это кнопка, type=4 - это комбобокс, 10 - popup
    On Error Resume Next
    Set Add_Control = Comm_Bar.Controls.Add(Type:=B_Type)
    With Add_Control
        If B_Face > 0 Then .FaceId = B_Face:
        .Tag = Tag: .onaction = On_Action: .Caption = B_Caption: If Begin_Group Then .BeginGroup = True
    End With
End Function

Sub SearchCell()
    On Error Resume Next
    txt = Application.CommandBars.ActionControl.Text
    If Len(txt) Then MsgBox "Получена команда поиска текста: " & txt, vbInformation
End Sub

Запустите этот файл, и получите поле для поиска.
Вам останется только выбрать макрос для поиска (вариантов макросов для поиска на форуме множество)

А чем Вас не устраивает комбинация Ctrl + F ?


(добавлено позже)
Готовое решение можно найти здесь: http://excelvba.ru/code/SearchCells

[TiG]

Спасибо за строку)
А возможно ли ей присвоить функции поиска ctrl+f или только с помощью макроса риализуемо?

[FormAlDeGid]

Хээ... запустил файл посмотрел и не пойму как удалить появившеюся закладку с её содержимым.

[FormAlDeGid]

В тему:
а можно ли создать окошечко поисковика например в левом нижнем углу листа?
вот такого типа:

чтобы отображалось на всех листах книги и проводило поиск по всей книге?
Поисковиком пользуюсь часто, он по сути мой рабочий инструмент, а вот окно поисковика вызываемого через Ctrl+F громоздкое и постоянно мешает загораживая собой кусок старници.

[EducatedFool]

Сообщение от FormAlDeGid

В тему:
а можно ли создать окошечко поисковика например в левом нижнем углу листа?
вот такого типа:

Да, можно. Сложно, но можно.
За WebMoney я и не такое сделаю

[FormAlDeGid]

на такие шалости мне начальство денег не отжалеет =(

еще раз повторюсь... ктонить скажите как убрать появившуюся закладку после запуска файла валоженного EducatedFool

[EducatedFool]

• Alt + F11
• Ctrl + G
• вставить в активное поле строку Application.CommandBars(1).Reset
• нажать Enter