Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск нескольких ячеек по одному условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск нескольких ячеек по одному условию (Макросы/Sub)
Поиск нескольких ячеек по одному условию
Egider Дата: Понедельник, 29.06.2020, 15:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день уважаемые форумчане. Прошу помочь в корректировке макроса. Мне необходимо чтоб при его запуске, задав одно условие он находил в столбце D:D не одно значение допустим даты, а все какие подобные (равные, с той же датой) есть. Затем по найденным значениям отображался в текстбоксе 2 текст, соответствующий найденным значениям. В моем макросе отображается только одно верхнее значение, то что ниже не отображается. СПАСИБО.
[vba]
Код
Private Sub CommandButton4_Click()
Worksheets("Содержание").Activate
Dim q As String
q = TextBox1.Value
If q = "" Then MsgBox ("Внесите данные для поиска задачи")
    On Error GoTo ErrorHandler
Columns("D:D").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate
    RW = ActiveCell.Row
    With UserForm2
        .TextBox2.Value = Cells(RW, 6).Value
        End With
    Me.Caption = "СОДЕРЖАНИЕ ЗАДАЧИ СМОТРИ В ОКНЕ"
     Worksheets("КОНТРОЛЬ").Activate
Exit Sub
ErrorHandler:
    MsgBox ("Нету такого!")
Resume Next
End Sub
[/vba]


Пенсионер
 
Ответить
СообщениеДобрый день уважаемые форумчане. Прошу помочь в корректировке макроса. Мне необходимо чтоб при его запуске, задав одно условие он находил в столбце D:D не одно значение допустим даты, а все какие подобные (равные, с той же датой) есть. Затем по найденным значениям отображался в текстбоксе 2 текст, соответствующий найденным значениям. В моем макросе отображается только одно верхнее значение, то что ниже не отображается. СПАСИБО.
[vba]
Код
Private Sub CommandButton4_Click()
Worksheets("Содержание").Activate
Dim q As String
q = TextBox1.Value
If q = "" Then MsgBox ("Внесите данные для поиска задачи")
    On Error GoTo ErrorHandler
Columns("D:D").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate
    RW = ActiveCell.Row
    With UserForm2
        .TextBox2.Value = Cells(RW, 6).Value
        End With
    Me.Caption = "СОДЕРЖАНИЕ ЗАДАЧИ СМОТРИ В ОКНЕ"
     Worksheets("КОНТРОЛЬ").Activate
Exit Sub
ErrorHandler:
    MsgBox ("Нету такого!")
Resume Next
End Sub
[/vba]

Автор - Egider
Дата добавления - 29.06.2020 в 15:04
Kuzmich Дата: Понедельник, 29.06.2020, 17:38 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 155 ±
Замечаний: 0% ±

Excel 2003
Цитата
не одно значение допустим даты, а все какие подобные (равные, с той же датой)

Используйте Find и FindNext (почитайте справку)
 
Ответить
Сообщение
Цитата
не одно значение допустим даты, а все какие подобные (равные, с той же датой)

Используйте Find и FindNext (почитайте справку)

Автор - Kuzmich
Дата добавления - 29.06.2020 в 17:38
Egider Дата: Понедельник, 29.06.2020, 19:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich,
А пример не приведете?


Пенсионер
 
Ответить
СообщениеKuzmich,
А пример не приведете?

Автор - Egider
Дата добавления - 29.06.2020 в 19:52
Egider Дата: Понедельник, 29.06.2020, 20:04 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
И еще, нужно чтоб по всем одинаковым значениям в столбце D, в одном текстбоксе 2 отображались все cоответствующие значения ячеек из столбца 6 ( .TextBox2.Value = Cells(RW, 6).Value)


Пенсионер
 
Ответить
СообщениеИ еще, нужно чтоб по всем одинаковым значениям в столбце D, в одном текстбоксе 2 отображались все cоответствующие значения ячеек из столбца 6 ( .TextBox2.Value = Cells(RW, 6).Value)

Автор - Egider
Дата добавления - 29.06.2020 в 20:04
Hugo Дата: Понедельник, 29.06.2020, 20:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
А пример есть в справке, почитайте уже :)


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеА пример есть в справке, почитайте уже :)

Автор - Hugo
Дата добавления - 29.06.2020 в 20:14
Kuzmich Дата: Понедельник, 29.06.2020, 20:17 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 155 ±
Замечаний: 0% ±

Excel 2003
Egider
А ваш где пример?
 
Ответить
СообщениеEgider
А ваш где пример?

Автор - Kuzmich
Дата добавления - 29.06.2020 в 20:17
Egider Дата: Вторник, 30.06.2020, 15:43 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вот привожу классический пример. Но нужно чтоб макрос нашел цифру 2 в столбце А, но не менял ее на 99, а просто выделял ячейку цветом.
И дополнительно еще чтоб выделял цветом ячейку в столбце В, в строках, содержащих цифру 2. СПАСИБО
[vba]
Код
Sub Button1_Click()
    With Worksheets(1).Range("a1:a50")
        Set c = .Find(2, LookIn:=xlValues)
        If Not c Is Nothing Then
            Do
                c.Value = 99
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End Sub
[/vba]


Пенсионер
 
Ответить
СообщениеВот привожу классический пример. Но нужно чтоб макрос нашел цифру 2 в столбце А, но не менял ее на 99, а просто выделял ячейку цветом.
И дополнительно еще чтоб выделял цветом ячейку в столбце В, в строках, содержащих цифру 2. СПАСИБО
[vba]
Код
Sub Button1_Click()
    With Worksheets(1).Range("a1:a50")
        Set c = .Find(2, LookIn:=xlValues)
        If Not c Is Nothing Then
            Do
                c.Value = 99
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End Sub
[/vba]

Автор - Egider
Дата добавления - 30.06.2020 в 15:43
Kuzmich Дата: Вторник, 30.06.2020, 16:21 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 155 ±
Замечаний: 0% ±

Excel 2003
Цитата
нужно чтоб макрос нашел цифру 2 в столбце А
а просто выделял ячейку цветом.

[vba]
Код
Sub Button1_Click()
Dim FAdr As String
Dim c As Range
    With Worksheets(1).Range("a1:a50")
      Range("a1:b50").Interior.ColorIndex = xlNone
        Set c = .Find(2, , xlValues, xlWhole)
        If Not c Is Nothing Then
          FAdr = c.Address
            Do
                c.Resize(, 2).Interior.ColorIndex = 6
                Set c = .FindNext(c)
            Loop While c.Address <> FAdr
        End If
    End With
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
нужно чтоб макрос нашел цифру 2 в столбце А
а просто выделял ячейку цветом.

[vba]
Код
Sub Button1_Click()
Dim FAdr As String
Dim c As Range
    With Worksheets(1).Range("a1:a50")
      Range("a1:b50").Interior.ColorIndex = xlNone
        Set c = .Find(2, , xlValues, xlWhole)
        If Not c Is Nothing Then
          FAdr = c.Address
            Do
                c.Resize(, 2).Interior.ColorIndex = 6
                Set c = .FindNext(c)
            Loop While c.Address <> FAdr
        End If
    End With
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 30.06.2020 в 16:21
Egider Дата: Вторник, 30.06.2020, 17:03 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
СПАСИБО. РАЗОБРАЛСЯ


Пенсионер
 
Ответить
СообщениеСПАСИБО. РАЗОБРАЛСЯ

Автор - Egider
Дата добавления - 30.06.2020 в 17:03
Egider Дата: Пятница, 03.07.2020, 13:44 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Прошу помощи в решении задачи по выводу в форму текстбокса задач по условию из столбца "А:А". Не понимаю почему выводится только одна строка, остальные никак. Задаю в юзерформе условие поиска, нажимаю поиск. Но при одинаковом условии в текстбоксе только одна задача??? Помогите если не трудно. Спасибо. Файл прилагаю
К сообщению приложен файл: _002.xlsm (20.5 Kb)


Пенсионер
 
Ответить
СообщениеПрошу помощи в решении задачи по выводу в форму текстбокса задач по условию из столбца "А:А". Не понимаю почему выводится только одна строка, остальные никак. Задаю в юзерформе условие поиска, нажимаю поиск. Но при одинаковом условии в текстбоксе только одна задача??? Помогите если не трудно. Спасибо. Файл прилагаю

Автор - Egider
Дата добавления - 03.07.2020 в 13:44
китин Дата: Пятница, 03.07.2020, 13:48 | Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Egider, - Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеEgider, - Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема

Автор - китин
Дата добавления - 03.07.2020 в 13:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск нескольких ячеек по одному условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!