Как написать поиск по всем листам

@nastya_belova · Регистрация: 06.06.2013

Author24 — интернет-сервис помощи студентам

При нажатии на кнопку поиск пользователь вводит часть фразы или код,происходит поиск по всем листам и выводит результат.пользователь нажимает то что что он выбирал и автоматически перебрасывает его на ячейку с его результатом. КГ.xlsx

Попыталась так.но не получается.Помогите

Visual Basic

Private Sub CommandButton2_Click()
Dim n As String
n = InputBox("Введите слово")
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
For r = 1 To Selection.Rows.Count
Next r
 
End Sub

@korvindeson · 27.03.2014, 16:08

Visual Basic

Sub Поиск()
 
n = InputBox("Введите слово")
found = False
 
For Each wsh In ThisWorkbook.Worksheets
    On Error Resume Next
        wsh.Select
        wsh.Range(wsh.Cells(2, 1), wsh.Cells(65536, 256)).Find(n).Activate
        
        If Err = 0 Then
            found = True
            Exit For
        Else
            Err.Clear
        End If
    On Error GoTo 0
Next
 
If Not found Then
    ThisWorkbook.Worksheets(1).Activate
    MsgBox ("Не найдено!")
End If
    
 
End Sub

@nastya_belova · 27.03.2014, 16:20 **[ТС]**

korvindeson,ага.а если сделать только по столбцам С,I,O

@nastya_belova · 27.03.2014, 16:27 **[ТС]**

Возможно это бред. Я не знаю.Но помогите пожалуйства мне

PureBasic

Private Sub CommandButton2_Click()
Dim n As String
n = InputBox("Введите слово")
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
For r = 1 To Selection.Rows.Count
If Cells(r + 1, 1) = n Then Worksheets.Open
Next r
 
End Sub

Добавлено через 1 час 33 минуты
Как сделать что бы поиск был только по столбцам С,I,O

Visual Basic

n = InputBox("Введите слово")
found = False
 
For Each wsh In ThisWorkbook.Worksheets
    On Error Resume Next
        wsh.Select
        wsh.Range(wsh.Cells(2, 1), wsh.Cells(65536, 256)).Find(n).Activate
        
        If Err = 0 Then
            found = True
            Exit For
        Else
            Err.Clear
        End If
    On Error GoTo 0
Next
 
If Not found Then
    ThisWorkbook.Worksheets(1).Activate
    MsgBox ("Не найдено!")
End If

@Казанский · 27.03.2014, 17:19

В принципе, можно без цикла по листам

Visual Basic

Sub bb()
Dim ac As Range
Set ac = ActiveCell
Worksheets.Select
Range("C:C,I:I,O:O").Select
On Error Resume Next
Selection.Find(InputBox("Введите слово"), , xlFormulas, xlPart).Select
If Err Then
  ac.Parent.Activate
  ac.Select
  MsgBox "Не найдено"
End If
End Sub

Правда, столбцы остаются выделенными на других листах.

@nastya_belova · 28.03.2014, 20:19 **[ТС]**

всё таки наверное надо форму сделать.с объектами. пользователю не удобно будет искать.так и так будет нажимать ctrl+f

Добавлено через 18 минут
Создала форму.поместила TextBox и ListBox. и кнопку. думаю пользователь вводит часть слова и результат поиска выводиться на ListBox.

Добавлено через 7 минут
а если поместить на кнопку макрос

Добавлено через 26 секунд
что и как лучше сделать!?

Добавлено через 2 часа 6 минут
НАподоби этого необходимо мне.Но эта программа ищет только на одном листе

Visual Basic

Private Sub ListBox1_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub
    Cells(ListBox1.Value, 1).Select
End Sub

Visual Basic

Private Sub TextBox1_Change()
Dim j As Long, i As Long
ListBox1.Clear
'при отсутствии символов для поиска - выход
   If Len(TextBox1.Value) = 0 Then Exit Sub   
   j = 0
'для одного символа поиск осуществляем по первой букве
If Len(TextBox1.Value) = 1 Then
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If UCase(Left(Cells(i, 1), 1)) = UCase(TextBox1.Value) Then
            ListBox1.AddItem i
            ListBox1.List(j, 1) = Cells(i, 1)
            j = j + 1
        End If
    Next i
    'если найден только один эл-т, то переходим к нему
    If j = 1 Then Cells(ListBox1.List(0, 0), 1).Select
    Exit Sub
End If 
For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
    If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Value)) > 0 Then
       ListBox1.AddItem i
       ListBox1.List(j, 1) = Cells(i, 1)
       j = j + 1
    End If
Next i
   'если найден только один эл-т, то переходим к нему
   If j = 1 Then Cells(ListBox1.List(0, 0), 1).Select
End Sub

Добавлено через 5 часов 41 минуту

VB.NET

Private Sub TextBox1_Change()
    ListBox1.Clear
    
    Dim iText$, iAddress$, iCount&, iList As Worksheet, iCell As Range
    iText = TextBox1.Value
    
    If iText <> "" Then 'If Len(iText) > 0
       For Each iList In ThisWorkbook.Worksheets
           Set iCell = iList.UsedRange.Find(iText, , xlValues, xlPart)
           If Not iCell Is Nothing Then
              iAddress = iCell.Address
              Do
                   ListBox1.AddItem
                   ListBox1.List(iCount, 0) = iCell.Value
                   ListBox1.List(iCount, 1) = iCell.Address(, , , True)
                   iCount = iCount + 1
              Loop While iCell.Address <> iAddress
           End If
       Next
    End If
End Sub
 
Private Sub ListBox1_Click()
    If ListBox1.ListIndex > -1 Then
       Application.Goto Application.Range(ListBox1.List(ListBox1.ListIndex, 1))
    End If
End Sub

как сузить поиск.по всем листам но только по столбцам C,I,O

shanemac51 · 29.03.2014, 07:12

ОБЫЧНО
применяю занесение результатов поиска в рабочий лист

е2007

shanemac51 · 29.03.2014, 08:04

на закомменченный код не смотрите--режим отладки

е2003

@nastya_belova 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 20
	27.03.2014, 16:20 [ТС]	3
	korvindeson,ага.а если сделать только по столбцам С,I,O 0

	29.03.2014, 08:04