Вопрос : script находка ключевого слова и покажите результаты внутри первенствуйте электронная таблица

Hi специалисты,

I хотят сделать сценарий/макрос внутри первенствуют где он ищет для ключевого слова и после этого показывает его в клетке.

Currently я имею огромную базу данных контактов и я хочу побежать поиск для школы ключевого слова и после этого показать он в поле. Так если средняя школа клетки, северная школа, начальная школа etc Saint оно скопируют все содержание этих клетки и прошлого оно в другой клетке. Все результаты можно наклеить в одной клетке. помощь

Any больш была бы оценена.

Thanks

Jedi class=

Ответ : script находка ключевого слова и покажите результаты внутри первенствуйте электронная таблица

Это Кодий возвращает шнур к C1 (или к перемеююому VBA). Оно препятствует вам изменить колонку к поиску

См. прикрепленный архив

hth

Дэйв
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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Вариант точный

strText Const как шнур = «школа»

Sub ColSearch_DelRows ()
    Тусклое rng1 как ряд
    Тусклый cel как ряд

    Тусклые strFirstAddress как шнур
    Тусклое lAppCalc как длиной
    Тусклое strTmp как шнур
 

    'Получите работая ряд от потребителя
    На ошибке возобновьте затем
    Установите rng1 = Application.InputBox («пожалуйста выберите ряд для того чтобы искать для» & strText, «выбор ряда потребителя», Selection.Address (0, 0), 8)
    На ошибке переход 0
    Если rng1 ничего после этого, то выходите подводная лодка



    С применением
        lAppCalc =. Вычисление
        .ScreenUpdating = ложно
        . Вычисление = xlCalculationManual
    Конец с


    Установите cel = rng1.Find (strText, rng1.Cells (rng1.Cells.Count), xlValues, xlPart, xlByRows, xlNext, ложные)

    Если не cel ничего после этого
        strFirstAddress = cel. Адрес
        strTmp = cel. Значение
        Сделайте
            Установите cel = rng1.FindNext (cel)
         Если strFirstAddress <> cel. Адресуйте после этого strTmp = strTmp & vbCrLf & cel. Значение
        Закрепите петлеть пока strFirstAddress <> cel. Адрес
    Закончитесь если
    

    С применением
        .ScreenUpdating = True
        . Вычисление = lAppCalc
    Конец с
    
    strTmp MsgBox
    [c1]. Значение = strTmp

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us