Как с помощью VBA сделать форму поиска?

@Даша Кетова · Регистрация: 30.03.2018

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

Помогите пожалуйста, как с помощью VBA сделать форму поиска.Т.е. у нас есть таблица с несколькими значениями, например:№,название. город-год, таблица состоит из множества заполненных значений и где может повторятся год, но города разные, нужно чтоб при нажатии на кнопку на другой пустой выводилась эта таблица, но с тем годом который мне нужен , если есть разные записи , но с похожим годом. Нужен в своем роде, отчет , но через VBA,

@Даша Кетова · 12.04.2019, 08:51 **[ТС]**

Если бы было можно, просто нужно чоб там где продолжительность обучения, были цифры, ну чтоб с 3 строки начинал, пробовала все в одну сделать вместе с цифрами, но тогда даже цифры имеют другой цвет, а нужно чтоб они были белые, вот в чем проблема, можете подсказать как изменить код?

@Burk · 13.04.2019, 09:12

Даша Кетова, не знаю где здесь проблемы, может я что-то не понял, но при помощи рекодера нарисовал цвета вашей шапки и очистил цвета третьей строки с цифрами.

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
26
Sub proba()
Dim K As Integer, LastCol As Integer
K = IIf([N1].MergeCells, 3, 2) 'начальная строка
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, "F"), Cells(K, "M")).Select
Call ColorCirpich
Range(Cells(1, "N"), Cells(K - 1, LastCol)).Select
Call ColorCirpich
Range(Cells(1, "N"), Cells(K, LastCol)).Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End Sub
 
Sub ColorCirpich()
' Макрос из рекодера
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
End Sub

Добавлено через 33 минуты
Даша Кетова, строку, в которой надо сделать без цвета, неправильно написал (9 строка), надо так

Visual Basic
1
Range(Cells(K, "N"), Cells(K, LastCol)).Select

@Даша Кетова · 13.04.2019, 15:16 **[ТС]**

Спасибо за помощь, но вы не так поняли),сейчас проблема в том что, при введении года с первого раза нормально, а когда ввожу 2 раз выдает ошибку.Получается нужно если объеденные первые тве строки, чтоб запись шла в 3. Все бы хорошо, если бы не 2 строка с цифрами, но они нужны, и в одной строке на сколько я знаю две строки не сделать.

@Burk · 14.04.2019, 11:41

Даша Кетова, я посылаю вам свой-ваш файл. Там два макроса, один создает отчет на втором листе, второй закрашивает на первом листе строки заданного года -ОТЧЁТ_окраска

@Burk · 14.04.2019, 11:50

поставьте после строки с Clearcontenfs, например, MsgBox "очистили второй лист!"

@Даша Кетова · 14.04.2019, 12:29 **[ТС]**

Burk,Спасибо, на вашем примера работает, а у меня почему то с листа исходных данных наоборот удаляет,но я меняю номер листа исходных данных, почему так?

@Burk · 14.04.2019, 13:07

Даша Кетова, запустил свой-ваш файл с переставленными страницами. Всё работает, естественно. Так что разбирайтесь. Посылаю этот файл с вашим макросом

@Burk · 14.04.2019, 14:09

Даша Кетова, можете вместо номеров листов ставить их названия, тогда ни о чём думать не надо, только листы не переименовывать. вместо Sheets(1) , например, Sheets("Dasha")

@Даша Кетова · 14.04.2019, 17:10 **[ТС]**

Burk
Спасибо, вам большое. Сейчас работает, будем надеяться что и дальше тоже.Очень выручили,теперь на будущие знаю к кому обращаться)

@Даша Кетова · 25.04.2019, 14:37 **[ТС]**

Burk, здравствуйте, можете подсказать что нужно изменить в коде, что он очищал все значения, а не часть? Получается, как я поняла он очищает только по 6 столбец? Когда ввожу к примеру 2013 то все выводит, а когда ввожу 1999, и если там мало записи , то он выводит 1999, и в пустых ячейках оставляет из 2013

@Burk · 26.04.2019, 06:06

Даша Кетова, а что для того, чтобы поставить вместо шестёрки, нужное вам, число требуется моё разрешение? Разрешаю. И кстати, в графе теория у вас в шестой строке объединённая ячейка. Не думаю, что она там должна быть. И вообще вы с данными обращаетесь неаккуратно. Где-то далеко внизу были ячейки с границами пустые.
Когда поставите нужное число, то первый раз уничтожьте лишние данные вручную

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84

	Excel Как с помощью VBA сделать форму поиска? 07.04.2019, 14:24. Показов 3493. Ответов 30 Метки нет (Все метки) Помогите пожалуйста, как с помощью VBA сделать форму поиска.Т.е. у нас есть таблица с несколькими значениями, например:№,название. город-год, таблица состоит из множества заполненных значений и где может повторятся год, но города разные, нужно чтоб при нажатии на кнопку на другой пустой выводилась эта таблица, но с тем годом который мне нужен , если есть разные записи , но с похожим годом. Нужен в своем роде, отчет , но через VBA, 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	12.04.2019, 08:51 [ТС]
	Если бы было можно, просто нужно чоб там где продолжительность обучения, были цифры, ну чтоб с 3 строки начинал, пробовала все в одну сделать вместе с цифрами, но тогда даже цифры имеют другой цвет, а нужно чтоб они были белые, вот в чем проблема, можете подсказать как изменить код? 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	13.04.2019, 15:16 [ТС]
	Спасибо за помощь, но вы не так поняли),сейчас проблема в том что, при введении года с первого раза нормально, а когда ввожу 2 раз выдает ошибку.Получается нужно если объеденные первые тве строки, чтоб запись шла в 3. Все бы хорошо, если бы не 2 строка с цифрами, но они нужны, и в одной строке на сколько я знаю две строки не сделать. Миниатюры 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	14.04.2019, 11:50
	поставьте после строки с Clearcontenfs, например, MsgBox "очистили второй лист!" 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	14.04.2019, 12:29 [ТС]
	Burk,Спасибо, на вашем примера работает, а у меня почему то с листа исходных данных наоборот удаляет,но я меняю номер листа исходных данных, почему так? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	14.04.2019, 14:09
	Даша Кетова, можете вместо номеров листов ставить их названия, тогда ни о чём думать не надо, только листы не переименовывать. вместо Sheets(1) , например, Sheets("Dasha") 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	14.04.2019, 17:10 [ТС]
	Burk Спасибо, вам большое. Сейчас работает, будем надеяться что и дальше тоже.Очень выручили,теперь на будущие знаю к кому обращаться) 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	26.04.2019, 06:06
	Даша Кетова, а что для того, чтобы поставить вместо шестёрки, нужное вам, число требуется моё разрешение? Разрешаю. И кстати, в графе теория у вас в шестой строке объединённая ячейка. Не думаю, что она там должна быть. И вообще вы с данными обращаетесь неаккуратно. Где-то далеко внизу были ячейки с границами пустые. Когда поставите нужное число, то первый раз уничтожьте лишние данные вручную 0