Вопрос : Клетки Эксел VBA соединенные находкой

Hi,

I am пытаясь написать сценарий который закрепит петлеть через все рабочий лист в моих workbook и поиске для соединенных клеток к определенной помощи

Any frrr адреса «/isis " было бы great

Thanks

Mark class=

Ответ : Клетки Эксел VBA соединенные находкой

Кровь Аарон написала превосходный общецелевой режим находки («находку Kickbutt») на http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228, котор вы можете зарегистрировать для этого места для того чтобы получить к тому соединению.

Я добавил макрос для того чтобы вызвать что режим находки для того чтобы искать все листы для текста вы определяете в формулах. Он после этого выберет все такие клетки. По мере того как вы идете от рабочий лист к рабочий лист, вы можете после этого рассмотреть те выборы.

Если вы искали формулы, то снабжают ссылками названный ряд как frrr_isis, как раз вписывает тот текст в ответ на коробку входного сигнала.

Брэд
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:

Sub SearchAllSheets ()
Тусклый ws как рабочий лист
Тусклое rg как ряд
Тусклое FindText как шнур
FindText = Application.InputBox («пожалуйста впишите адрес или названный ряд, котор вы хотите найти»)
Для каждого ws в ActiveWorkbook.Worksheets
    Установите rg = ничего
    Установите rg = Find_Range (FindText, ws. Клетки, xlFormulas, xlPart, ложные)
    Если не rg ничего после этого
        ws. Активируйте
        rg. Отборно
    Закончитесь если
Затем
Подводная лодка конца

'Find_Range написанное Аарон Кровью
Функция Find_Range (Find_Item как вариант, _
    Search_Range как ряд, _
    Опционное LookIn как XlFindLookIn = xlValues, _
    Опционное LookAt как XlLookAt = xlPart, _
    Опционное MatchCase как булевско = ложно) как ряд
     
    Тусклый c как ряд, FirstAddress как шнур
     
    С Search_Range
        Установите c =. Находите (_
            : =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: Delete =False) 'эта термина для XL2000 и более раньше
        Если не c ничего после этого
            Установите Find_Range = c
            FirstAddress = c.Address
            Сделайте
                Установите Find_Range = соединение (Find_Range, c)
                Установите c = .FindNext (c)
            Закрепите петлеть пока не c будет ничего и c.Address <> FirstAddress
        Закончитесь если
    Закончитесь с
     
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us