|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2011, 17:31 | #1 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Выделение цветом найденой строки
Есть макрос поиска значения в таблице
Sub Finderer() Dim FD, firstAddress, adrs FD = InputBox("ВВЕДИТЕ ИСКОМОЕ СЛОВО ИЛИ ЧИСЛО", "Мой поиск") If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск данных ' если ничего не нашли - выход из макроса If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub firstAddress = c.Address c.Select Do adrs = adrs & vbLf & c.Address(0, 0) Union(Selection, c).Select Set c = Range("A:A").FindNext(c) Loop While c.Address <> firstAddress MsgBox "Значение """ & FD & """ найдено в ячейке (ячейках):" & adrs, vbInformation End Sub Когда слово найдено в таблице, то оно выделяется рамочкой и пишут адрес ячейки в которой найдено это слово, но мне нужно чтобы эта ячейка выделялась цветом.Подскажите, что нужно дописать в исходный макрос И если не затруднит, то напишите пожалуйста, какая строка отвечает за какое действие, многое не могу объяснить, к сожалению Последний раз редактировалось tanyshenka09; 18.12.2011 в 17:34. |
18.12.2011, 17:47 | #2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Добавьте перед MsgBox "Значение """ & FD & """ найдено...:
Selection.interior.colorindex=3
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
18.12.2011, 17:49 | #3 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Большое Вам спасибо.Очень помогли мне!
|
18.12.2011, 17:52 | #4 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
А возможно ли сделать так, чтобы при повторном поиске прошлое выделение не оставалось?
|
18.12.2011, 18:03 | #5 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
В начало макроса:
cells.interior.colorindex=xlnone
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
15.11.2012, 23:45 | #6 |
Новичок
Джуниор
Регистрация: 07.01.2009
Сообщений: 1
|
Скажите, пожалуйста, как сделать так - чтобы окно после поиска и выделения не закрывалось (просто выделалась найденная ячейка). Тесть чтобы окно с запросом данных выводилось и дальше до момента когда значение не будет найдено, тогда сообщение об ошибке. А если бы ещё сделать так, чтобы когда значение найдено - то в колонке «М» этой же строчки ставилась единичка (для последующей фильтрации).
Заранее благодарен!!! Последний раз редактировалось Lihodej; 16.11.2012 в 00:38. |
16.11.2012, 10:21 | #7 | |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
Цитата:
Единственный способ стать умнее, играть с более умным противником...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выделение цветом столбца и строки активной ячейки | cerberochek | Microsoft Office Excel | 7 | 28.11.2012 12:56 |
выделение цветом | jojorr | Microsoft Office Excel | 1 | 17.08.2011 08:41 |
Выделение цветом нужной строки в ListBox | Kity19 | Компоненты Delphi | 5 | 01.02.2011 09:12 |
Выделение строки цветом и вставка символа | konistra | Microsoft Office Excel | 4 | 16.06.2010 21:16 |
Выделение цветом последней строки DBGrig | Yura_S | Помощь студентам | 2 | 28.10.2009 08:35 |