Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
[ Закрыто ] макрос поиска
 
#1
30.01.2013 17:54:48
Люди, помогите, дополнить код, чтобы в случае отсутствия искомого значения выдавалось MsgBox "Значение не найдено". А то в моем случае выдает ошибку. И в идеале, чтобы поиск шел не на всем листе, а только по первому столбцу А.
Код
Private Sub CommandButton1_Click()
Dim x As String
x = InputBox("Введите артикул, который нужно найти", "Ввод данных дя поиска")
    If x = "" Then
    MsgBox "Вы не ввели данные для поиска!", vbInformation, "ошибка"
    Exit Sub
    End If

 x_text = "*" & x & "*"

 Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

Заранее спасибо!
 
 
 
#2
30.01.2013 18:40:35
Код
Private Sub CommandButton1_Click()
    x = InputBox("Введите артикул, который нужно найти", "Ввод данных дя поиска")
    If VarType(x) = vbBoolean Then Exit Sub    ' нажата кнопка ОТМЕНА

    x_text = "*" & x & "*"
    Dim cell As Range
    Set cell = Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
    
    If cell Is Nothing Then
        MsgBox "Ничего не найдено", vbCritical
    Else
        cell.Activate    ' выделяем найденную ячейку
    End If
End Sub


Примеры макросов для поиска в Excel можно поглядеть здесь:
http://excelvba.ru/category/Excel/search
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
30.01.2013 18:54:10
Cells.Find    ищет по всему листу
Columns(1).Find  по столбцу А
 
 
 
#4
30.01.2013 22:14:47
EducatedFool, спасибо!
Цитата
Примеры макросов для поиска в Excel
буду изучать. Очень познавательно

Цитата
Kuzmich пишет:Cells.Findищет по всему листу
Columns(1).Findпо столбцу А
заменила Cells.Find на Columns(1).Find, но выдает ошибку
 
 
 
#5
30.01.2013 23:35:44
Предположу, что вы произвели замену в своем макросе,
где  SearchOrder:=xlByRows
а вы хотите поиск по столбцу, попробуйте  SearchOrder:=xlByColumns
 
 
 
#6
30.01.2013 23:44:49
Kuzmich, нет, не в своем.
вот таким образом не ищет(
Код
Set cel = Columns(1).Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
 
 
 
#7
30.01.2013 23:53:17
Вам отвечали макросом, где
Set cell=
 
 
 
#8
31.01.2013 00:01:36
Kuzmich, простите не понимаю.
Код EducatedFool ищет по всему листу. По крайней мере у меня (
 
 
 
#9
31.01.2013 00:04:19
Попробуйте
Код
Set cell = Columns(1).Find(What:=x_text,  LookIn:=xlValues, LookAt:=xlWhole)

или покажите файл .xls
 
 
 
#10
31.01.2013 00:08:43
Kuzmich, заработало! :D Ура!
Спасибо!
 
 
 
#11
31.01.2013 07:57:14
Зачем создавать x_text = "*" & x & "*" ?
Ищите сразу введенный артикул x
Код
Set cell = Columns(1).Find(What:= x , LookIn:=xlValues, LookAt:=xlPart)
 
 
 
#12
31.01.2013 11:25:48
Создаю x_text, чтобы можно было искать по части артикула. Артикулы бывают длинные где впереди стоят три-четыре нуля. Чтобы долго не вбивать нолики в поисковик. В общем лень двигатель прогресса :-)
 
 
 
#13
31.01.2013 11:51:15
Juliya, вам пытались сказать, что надо в макросе заменить  LookAt:=xlWhole (точное совпадение) на  LookAt:=xlPart (частичное совпадение), и не придётся дописывать звёздочки к искомому значению
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#14
31.01.2013 11:57:51
EducatedFool, спасибо за пояснения.
Честно говоря, не обратила на это внимания :oops:
 
 
 
#15
31.01.2013 18:44:37
Люди, помогите, а то сойду с ума. Все-таки Excel довольно сложная штука.  :(
Как найти пустую ячейку знаю, как найти какое-либо значение знаю, а как найти в диапазоне просто не пустую ячейку (значение в ячейке может быть любое). В формулах это пишется <>"", а как в макросах?
Заранее благодарю за помощь!
 
 
 
#16
31.01.2013 18:54:28
В вашем примере любое значение будет выглядеть так:
x = "*"
 
 
 
#17
31.01.2013 18:57:02
Sergei_A, спасибо!
Прикольно, а голову ломала полдня)
 
 
 
#18
31.01.2013 22:36:05
Подскажите, кто-нибудь, пожалуйста, как этот код сделать циклом. Т.е. надо, чтобы код перебирая ячейки нашел первую непустую, очистил ее и пошел дальше по диапазону искать возможные непустые ячейки. И так до конца диапазона.
Код
Sub ClearFiltr()
Dim f As Range, wr As Range
Set wr = Range("A3:K3")
 Set f = wr.Find(What:="*", LookIn:=xlValues, LookAt:=xlPart)
    If f Is Nothing Then
        MsgBox "Фильтр не применялся", vbCritical
    Else
        f.ClearContents
        MsgBox "Условия фильтра удалены", vbInformation
    End If
Range("A3").Select
End Sub

Спасибо!
 
 
 
#19
31.01.2013 22:49:28
Попробуйте вот так:
Код
Sub ClearFiltr2()
Dim f, wr As Range
Set wr = Range("A3:K3")
 For Each cell In wr  ' начинаем перебирать каждую ячейку в указанном диапазоне    
If ActiveCell <> "" Then ActiveCell = "" 
Next cell
End Sub
Изменено: Gilvanov - 31.01.2013 22:50:39
 
 
 
#20
31.01.2013 22:56:35
А почему нельзя
Код
 Range("A3:K3").ClearContents
 
 
 
#21
31.01.2013 23:00:00
Kuzmich, на листе сделала суперфильтр(80 столбцов), который содрала здесь на планете. фильтр работает на Worksheet_SelectionChange и если макрос будет изменять 80 ячеек это очень долго.
 
 
 
#22
31.01.2013 23:03:51
Gilvanov, не работает(
 
 
 
#23
31.01.2013 23:22:38
Gilvanov,  хотел сказать
Код
Sub ClearFiltr2()
Dim f, wr As Range
Set wr = Range("A3:K3")
For Each cell In wr  ' начинаем перебирать каждую ячейку в указанном диапазоне
   If cell.Value <> "" Then cell.Value = ""
Next
End Sub
 
 
 
#24
01.02.2013 00:17:02
всем спасибо!
 
 
 
#25
28.01.2017 05:46:06
Спасибо за советы! Мне вот почти такой же макрос нужен, можно я тоже со своим вопросом? Нужен поиск по всей книге (много листов), в определённом столбце. Приведенные здесь примеры ищут только в одном листе.
 
 
 
#26
28.01.2017 06:31:31
Добавьте перебор листов )
 
 
 
#27
28.01.2017 06:55:30
Макрос в третьем столбце каждого листа будет искать заданный текст:
Код
Sub Finder()
Dim Rng As Range, i As Long, Txt As String
    Txt = "Мяррр" 'Искомый текст
    For i = 1 To Sheets.Count
        Set Rng = Sheets(i).Columns(3).Find(what:=Txt, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Rng Is Nothing Then Debug.Print "Найдено на " & Sheets(i).Name & " в ячейке " & Rng.Address(0, 0)
    Next
End Sub
 
 
 
#28
28.01.2017 08:58:10
Цитата
Юрий М написал:
Макрос в третьем столбце каждого листа будет искать заданный текст:
Спасибо Юрий, а как это совместить с этим? :
Код
Sub поиск()
    x = InputBox("Введите артикул, который нужно найти", "Ввод данных дя поиска")
    If VarType(x) = vbBoolean Then Exit Sub    ' нажата кнопка ОТМЕНА
 
   x_text = "*" & x & "*"
    Dim cell As Range
    
    Set cell = Columns(10).Find(What:=x_text, LookIn:=xlValues, LookAt:=xlWhole)

    If cell Is Nothing Then
        MsgBox "Ничего не найдено", vbCritical
    Else
        cell.Activate    ' выделяем найденную ячейку
    End If
End Sub

С этим окном поиска по столбцу №10, который код привожу удобнее (выделение) но только нужен поиск по всей книге, с последующем переходом на этот лист и выделением найденного.
Изменено: genn931 - 28.01.2017 09:23:37
 
 
 
#29
28.01.2017 09:08:38
Вы определитесь, что делать с найденными ячейками?
И код следует оформлять соответствующим тегом: ищите такую кнопку <...> и исправьте своё сообщение.
Код
Sub Finder()
Dim Rng As Range, i As Long, Txt As String
    Txt = InputBox("Введите артикул, который нужно найти", "Ввод данных дя поиска")
    If VarType(x) = vbBoolean Then Exit Sub ' нажата кнопка ОТМЕНА
    For i = 1 To Sheets.Count
        Set Rng = Sheets(i).Columns(3).Find(what:=Txt, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Rng Is Nothing Then Debug.Print "Найдено на " & Sheets(i).Name & " в ячейке " & Rng.Address(0, 0)
    Next
End Sub
 
 
 
#30
28.01.2017 09:45:46
Цитата
Юрий М написал: Вы определитесь, что делать с найденными ячейками?
Прошу прощения если путанно обьяснил, спасибо поправил верхнее сообщение. но как совместить поиск и выделение найденного по всей книге не пойму(((
Изменено: genn931 - 28.01.2017 13:06:20
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх