Страницы: 1
RSS
Создание кнопки "Поиск" средствами VBA
 
Помогите пожалуйста -никак не могу найти то, что нужно.  
 
Есть база данных, оформлена в Excel.  
 
Жизнено необходим быстрый поиск, но дело в том, что базой пользуюсь не только я, и комбинация ctrl+f многим неизвестена :((((  
 
Помогите, как создать на листе кнопку "Поиск", которая будет дублировать ctrl+f либо что-то более удобное.
 
см.файл.
 
создать кнопку:  
вид-панели инструментов-элементы управления-кнопка  
 
обработчик нажатия  
 
код листа(lt+f11-лист..)- создать подпрограмму sub onCommandButtonClick(), в которой прописать строчку:  
Application.Dialogs(xlDialogFormulaFind).Show
 
genyaa и slan - огромное спасибо, работает! Но только вот у меня в книге много листов, а данная кнопка ищет только на активном листе. Как сделать, чтобы она производила поиск по всей книге??
 
надо мудрить. простых выходов не вижу.
 
Call SendKeys("^f")  
   DoEvents  
   Call SendKeys("^+")  
   DoEvents  
   Call SendKeys("%с")  
   DoEvents  
   Call SendKeys("{DOWN}")  
   DoEvents  
   Call SendKeys("+{TAB}")  
   DoEvents  
   Call SendKeys("+{TAB}")
 
Ой, всё оказалось оч просто :)  
 
ThisWorkbook.Application.Dialogs(xlDialogFormulaFind).Show  
 
А тот код, что ты написал, его в какое место вставить?
 
Че мудрить?  
Sub ff()  
Dim WhatFind As String  
   WhatFind = InputBox("Введите строку для поиска", "Поиск")  
   For Each sh In Sheets  
   Set c = sh.Cells.Find(What:=WhatFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False)  
   Next  
   If c Is Nothing Then  
   MsgBox ("Текст " & WhatFind & " не найден")  
   Else  
   c.Parent.Activate  
   c.Activate  
   End If  
End Sub  
Поиск по всем листам, находит на последнем листе
 
{quote}{login=Catcher}{date=17.01.2008 11:54}{thema=}{post}Ой, всё оказалось оч просто :)  
 
.Dialogs(xlDialogFormulaFind).Show  
 
А тот код, что ты написал, его в какое место вставить?{/post}{/quote}  
 
да.. я sheets попробовал, а вот ThisWorkbook.Application нет  
:)  
забудьте про тот другой код, этот проще
 
Я в excel лузер. А кнопку поиска очень надо создать. Не могли бы вы подробно опистаь как ее создавать?
 
вставить на лист любой объект( например из "основных фигур") и назначить ей макрос(правой кнопкой-назначить макрос)  
 
ну а макрос из перечисленных выше..
Живи и дай жить..
Страницы: 1
Читают тему
Наверх