Поиск по столбцу

@ghebog · Регистрация: 12.08.2012

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

Всем привет!
Тема уже избитая, но все равно я не нашел ответа на вопрос.

На таблице есть два столбца. В первом данные, во втором вычисления(формулы).
Нужно найти значение в столбце при помощи Find(What...).
Поиск по первому столбцу работает, а по второму выдает ошибку.
Как организовать поиск по второму столбцу?

Кликните здесь для просмотра всего текста

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
'Поиск по первому столбцу
    Dim iRange As Range
    Dim iFind As String
    Dim iRow As Integer
    iFind = Worksheets("Лист1").Cells(3, 1).Value
    Set iRange = Worksheets("Лист1").Columns("A:A").Find(What:=iFind)
    iRow = iRange.Row
    
'Поиск по второму столбцу
    Dim iRange0 As Range
    Dim iFind0 As String
    Dim iRow0 As Integer
    iFind0 = Worksheets("Лист1").Cells(3, 2).Value
    Set iRange0 = Worksheets("Лист1").Columns("B:B").Find(What:=iFind0)
    iRow0 = iRange0.Row
    
'Проверка
    MsgBox ("iFind= " & iFind & Chr(13) & _
            "iRow= " & iRow & Chr(13) & Chr(13) & _
            "iFind0= " & iFind0 & Chr(13) & _
            "iRow0= " & iRow0)
    
End Sub

@IvanOK · 02.04.2013, 14:00

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
'1-й Блок
    Dim iRange As Range
    Dim iFind As String
    Dim iRow As Integer
    iFind = Worksheets("Лист1").Cells(3, 1).Value
    Set iRange = Worksheets("Лист1").Columns("A:A").Find(What:=iFind, LookIn:=xlValues)
    iRow = iRange.Row
    
'2-й Блок
    Dim iRange0 As Range
    Dim iFind0 As String
    Dim iRow0 As Integer
    iFind0 = Worksheets("Лист1").Cells(3, 2).Value
    Set iRange0 = Worksheets("Лист1").Columns("B:B").Find(What:=iFind0, LookIn:=xlValues)
    iRow0 = iRange0.Row
    
'Проверка
    MsgBox ("iFind= " & iFind & Chr(13) & _
            "iRow= " & iRow & Chr(13) & Chr(13) & _
            "iFind0= " & iFind0 & Chr(13) & _
            "iRow0= " & iRow0)
    
End Sub

ты ищещь по умолчанию , а ето значит по формулам, а нужно искать по значению

@ghebog · 02.04.2013, 14:09 **[ТС]**

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

ты ищещь по умолчанию , а ето значит по формулам, а нужно искать по значению

Спасибо, помогло!

Не по теме:

Пинок в зад - отличный повод для шага вперед.

Скрипт · 02.04.2013, 14:20

VBA-Excel-команда "Find" связана с окном "Найти и заменить" в программе "Excel".
Поэтому в команде "Find" нужно указывать все парметры (я обычно не указываю параметр "After"), чтобы на работу кода не влияли настройки окна "Найти и заменить".

@ghebog · 02.04.2013, 14:46 **[ТС]**

Сообщение от Скрипт

VBA-Excel-команда "Find" связана с окном "Найти и заменить" в программе "Excel".
Поэтому в команде "Find" нужно указывать все парметры (я обычно не указываю параметр "After"), чтобы на работу кода не влияли настройки окна "Найти и заменить".

В моем случае помогло только добавление LookIn:=xlValues.
По любому спасибо за дополнение.

Скрипт · 02.04.2013, 14:50

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

В моем случае помогло только добавление LookIn:=xlValues.

ghebog, потому что в окне "Найти и заменить" было всё то, что вам нужно.

@ghebog · 12.04.2013, 12:02 **[ТС]**

Всем привет!
Задача такая:
В столбце "А" - имена, в столбце "В" - номера.
В ячейке "В1" вводится искомое значение и по нажатию кнопки ведется поиск на наличие в диапазоне
Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row).

Если значение найдено - выводится сообщение со значением из первого столбца той же строки.
Это получается.

Если значение не найдено - оно (значение) добавляется в последнюю ячейку столбца "В".
Это не получается.

Подтолкните в нужное направление.
Заранее благодарен.

Кликните здесь для просмотра всего текста

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Set whereImLooking = Worksheets("Ëèñò1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    Dim iLookingFor As String
    iLookingFor = Worksheets("Ëèñò1").Cells(1, 2).Value
    
    Dim iRowErr As Integer
    
    If iLookingFor = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False) Then
        iRowErr = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False).Row
        MsgBox "Óæå åñòü !" & Chr(13) & Chr(13) & "Âîò æå îíî :)" & Chr(13) & _
            (Worksheets("Ëèñò1").Cells(iRowErr, 1).Value), vbCritical, "ÂÍÈÌÀÍÈÅ"
            Worksheets("Ëèñò1").Cells(iRowErr, 1).Select
        Exit Sub
    Else
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = iLookingFor
        MsgBox "Íå çàáóäü äîáÿâèòü èìÿ!", vbExclamation, "ÂÍÈÌÀÍÈÅ"
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2).Select
    End If
End Sub

@Казанский · 12.04.2013, 13:09

Пробуйте, разбирайтесь

Кликните здесь для просмотра всего текста

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Dim myCell As Range
    Set whereImLooking = Worksheets("Лист1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    Dim iLookingFor As String
    iLookingFor = Worksheets("Лист1").Cells(1, 2).Value
    
    Dim iRowErr As Integer
    
    Set myCell = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False)
    If Not myCell Is Nothing Then 'найдено
        myCell.Select
        MsgBox "Уже есть !" & vbLf & vbLf & "Вот же оно :)" & vbLf & _
            myCell, vbCritical, "ВНИМАНИЕ"
        Exit Sub
    Else
        Worksheets("Лист1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select
        Selection.Value = iLookingFor
        MsgBox "Не забудь добявить имя!", vbExclamation, "ВНИМАНИЕ"
'        Worksheets("Лист1").Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2).Select
    End If
End Sub

@ghebog · 12.04.2013, 13:51 **[ТС]**

Сообщение от Казанский

Пробуйте, разбирайтесь

ОК! Ща бум)))

Добавлено через 8 минут
Вроде ищем ячейку со значением, а не само значение...

Добавлено через 26 минут
Казанский, еще раз СПАСИБО!
Окончательный вариант:

Кликните здесь для просмотра всего текста

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Dim iRowErr As Integer
    Set whereImLooking = Worksheets("Ëèñò1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    Dim iLookingFor As String
    iLookingFor = Worksheets("Ëèñò1").Cells(1, 2).Value
    Dim myCell As Range
    Set myCell = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False)
    If Not myCell Is Nothing Then 'íàéäåíî
        myCell.Select
        iRowErr = myCell.Row
        MsgBox "Óæå åñòü !" & vbLf & vbLf & "Âîò æå îíî :)" & vbLf & _
            (Worksheets("Ëèñò1").Cells(iRowErr, 1).Value), vbCritical, "ÂÍÈÌÀÍÈÅ"
            Worksheets("Ëèñò1").Cells(iRowErr, 1).Select
        Exit Sub
    Else
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select
        Selection.Value = iLookingFor
        MsgBox "Íå çàáóäü äîáÿâèòü èìÿ!", vbExclamation, "ÂÍÈÌÀÍÈÅ"
        Worksheets("Ëèñò1").Cells(Selection.Row, 1).Select
    End If
End Sub

@Апострофф · 12.04.2013, 13:58

Не по теме:

17-я строка лишняя:scratch:

@ghebog · 12.04.2013, 15:44 **[ТС]**

Сообщение от Апострофф

17-я строка лишняя

Не по теме:

В данном контексте согласен на все 100.
А как поведет себя код, если на кнопку повешаны (кнопка на юзерФорм) и другие действия и расчеты?

Добавлено через 1 час 33 минуты
Поправка 4-й строки.
Если диапазон на другом листе, тогда везде надо явно указать лист.
Set whereImLooking = Worksheets("Лист1").Range("B3:B" & Worksheets("Лист1").Cells(Rows.Count, "B").End(xlUp).Row)

Новые блоги и статьи Все статьи Все блоги /
WebAssembly в Kubernetes stackOverflow 03.03.2025 В современной экосистеме облачных технологий WebAssembly (Wasm) становится все более значимым компонентом, предлагая уникальный подход к выполнению кода в распределенных системах. Эта технология. . .	GitHub Actions или Jenkins: Выбираем CI/CD платформу stackOverflow 03.03.2025 Непрерывная интеграция и развертывание (CI/ CD) изменили подход к разработке программного обеспечения, превратив его в бесшовный процесс от написания кода до развертывания в продакшн. GitHub Actions и. . .	Автоматизация тестирования Pull Request в Kubernetes: Интеграция с GitHub Actions и GKE stackOverflow 03.03.2025 Масштабные проекты с использованием Kubernetes требуют надежной системы тестирования изменений перед их внедрением в продакшн-среду. Традиционный подход с ручной проверкой Pull Request не справляется. . .	Tестирование Pull Request в Kubernetes с помощью vCluster stackOverflow 03.03.2025 При работе с микросервисной архитектурой критически важно обеспечить качественное тестирование каждого изменения перед его слиянием в основную кодовую базу. Однако тестирование Pull Request в. . .	Использование пакета Context в Golang bytestream 03.03.2025 Управление параллельными процессами в современных приложениях - сложная задача, особенно когда речь идет о микросервисной архитектуре и распределенных системах. Пакет context в Go - это гибкое. . .
WebAssembly и Go: Работа с DOM и обработка ошибок bytestream 03.03.2025 WebAssembly представляет собой технологию, позволяющую запускать низкоуровневый код в браузере практически на нативной скорости. Особенно интересные возможности открываются при использовании. . .	WebAssembly и Go: Создание высокопроизводительных веб-приложений bytestream 03.03.2025 WebAssembly - это технология, изменившая подход к созданию высокопроизводительных веб-приложений. До появления WebAssembly JavaScript оставался единственным языком программирования, который понимали. . .	Контексты в Go: отмена, тайм-ауты и распространение bytestream 03.03.2025 В многопоточном программировании существует множество ситуаций, когда необходимо прерывать выполнение горутин или ограничивать время их работы. Отсутствие грамотного управления параллельными. . .	WebSocket в Go: создание масштабируемых real-time приложений bytestream 03.03.2025 Веб-приложения все чаще требуют обработки данных в режиме реального времени. Традиционный подход с использованием HTTP-запросов имеет существенные ограничения для таких сценариев. При каждом запросе. . .	Как дебажить в Go: Руководство по отладке bytestream 03.03.2025 Отладка в Go имеет свои особенности, связаные с строгой типизацией, моделью конкурентности и управлением памятью. Go предоставляет богатый набор встроеных средств для отладки, которые дополняются. . .

@ghebog 4 / 4 / 1 Регистрация: 12.08.2012 Сообщений: 67
	02.04.2013, 14:09 [ТС]	3
	Сообщение от IvanOK ты ищещь по умолчанию , а ето значит по формулам, а нужно искать по значению Спасибо, помогло! Не по теме: Пинок в зад - отличный повод для шага вперед. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	02.04.2013, 14:20	4
	VBA-Excel-команда "Find" связана с окном "Найти и заменить" в программе "Excel". Поэтому в команде "Find" нужно указывать все парметры (я обычно не указываю параметр "After"), чтобы на работу кода не влияли настройки окна "Найти и заменить". 2

@ghebog 4 / 4 / 1 Регистрация: 12.08.2012 Сообщений: 67
	02.04.2013, 14:46 [ТС]	5
	Сообщение от Скрипт VBA-Excel-команда "Find" связана с окном "Найти и заменить" в программе "Excel". Поэтому в команде "Find" нужно указывать все парметры (я обычно не указываю параметр "After"), чтобы на работу кода не влияли настройки окна "Найти и заменить". В моем случае помогло только добавление LookIn:=xlValues. По любому спасибо за дополнение. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	02.04.2013, 14:50	6
	Сообщение от ghebog В моем случае помогло только добавление LookIn:=xlValues. ghebog, потому что в окне "Найти и заменить" было всё то, что вам нужно. 0

@Апострофф
	12.04.2013, 13:58	10
	Не по теме: 17-я строка лишняя:scratch: 0

@ghebog 4 / 4 / 1 Регистрация: 12.08.2012 Сообщений: 67
	12.04.2013, 15:44 [ТС]	11
	Сообщение от Апострофф 17-я строка лишняя Не по теме: В данном контексте согласен на все 100. А как поведет себя код, если на кнопку повешаны (кнопка на юзерФорм) и другие действия и расчеты? Добавлено через 1 час 33 минуты Поправка 4-й строки. Если диапазон на другом листе, тогда везде надо явно указать лист. Set whereImLooking = Worksheets("Лист1").Range("B3:B" & Worksheets("Лист1").Cells(Rows.Count, "B").End(xlUp).Row) 0