Создание кнопки "Поиск" средствами VBA

Catcher

Гость

17.01.2008 08:38:49

Помогите пожалуйста -никак не могу найти то, что нужно.

Есть база данных, оформлена в Excel.

Жизнено необходим быстрый поиск, но дело в том, что базой пользуюсь не только я, и комбинация ctrl+f многим неизвестена :((((

Помогите, как создать на листе кнопку "Поиск", которая будет дублировать ctrl+f либо что-то более удобное.

genyaa Пользователь Сообщений: 296 Регистрация: 01.01.1970	#2 17.01.2008 09:03:05 см.файл. Прикрепленные файлы post_7082.xls (21 КБ)

slan Гость	#3 17.01.2008 09:54:52 создать кнопку: вид-панели инструментов-элементы управления-кнопка обработчик нажатия код листа(lt+f11-лист..)- создать подпрограмму sub onCommandButtonClick(), в которой прописать строчку: Application.Dialogs(xlDialogFormulaFind).Show

Catcher Гость	#4 17.01.2008 10:22:18 genyaa и slan - огромное спасибо, работает! Но только вот у меня в книге много листов, а данная кнопка ищет только на активном листе. Как сделать, чтобы она производила поиск по всей книге??

slan Гость	#5 17.01.2008 11:09:36 надо мудрить. простых выходов не вижу.

slan Гость	#6 17.01.2008 11:28:27 Call SendKeys("^f") DoEvents Call SendKeys("^+") DoEvents Call SendKeys("%с") DoEvents Call SendKeys("{DOWN}") DoEvents Call SendKeys("+{TAB}") DoEvents Call SendKeys("+{TAB}")

Catcher Гость	#7 17.01.2008 11:54:15 Ой, всё оказалось оч просто :) ThisWorkbook.Application.Dialogs(xlDialogFormulaFind).Show А тот код, что ты написал, его в какое место вставить?

Лузер

Гость

17.01.2008 12:12:01

Че мудрить?
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
Поиск по всем листам, находит на последнем листе

Guest

Гость

17.01.2008 12:21:31

{quote}{login=Catcher}{date=17.01.2008 11:54}{thema=}{post}Ой, всё оказалось оч просто :)

.Dialogs(xlDialogFormulaFind).Show

А тот код, что ты написал, его в какое место вставить?{/post}{/quote}

да.. я sheets попробовал, а вот ThisWorkbook.Application нет
:)
забудьте про тот другой код, этот проще

Анна Гость	#10 28.03.2012 13:15:18 Я в excel лузер. А кнопку поиска очень надо создать. Не могли бы вы подробно опистаь как ее создавать?

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#11 28.03.2012 13:27:15 вставить на лист любой объект( например из "основных фигур") и назначить ей макрос(правой кнопкой-назначить макрос) ну а макрос из перечисленных выше.. Живи и дай жить..

Читают тему