ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти - заменить
6 сообщений из 6, страница 1 из 1
Найти - заменить
    #34440260
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
Подскажите, как можно список найденых значений, появляющийся в окне "Найти" скопировать в отдельный лист.
...
Рейтинг: 0 / 0
05.04.2007, 13:22:08
| Ответить | Цитировать | Написать  
Найти - заменить
    #34440289
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Сергей06Подскажите, как можно список найденых значений, появляющийся в окне "Найти" скопировать в отдельный лист.

Если ручками, то

В окне поиска выбрать все найденные значения
Сделать активным окно самой программы Exel (например щёлкнуть по заголовку окна программы)
Нажать копировать
Выбрать куда вставлять
Нажать вставить или (специальная вставка - занчения, если нужны только значения)
...
Рейтинг: 0 / 0
05.04.2007, 13:28:05
| Ответить | Цитировать | Написать  
Найти - заменить
    #34440296
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Чтобы выделить све значения в окне поиска, после прекращения поиска нажми <Ctrl> + <A>
...
Рейтинг: 0 / 0
05.04.2007, 13:29:23
| Ответить | Цитировать | Написать  
Найти - заменить
    #34440342
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
DeggasadЧтобы выделить све значения в окне поиска, после прекращения поиска нажми <Ctrl> + <A>
Спасибо за ответы!
Я наверное не правильно выразился :(
Мне нужно скопировать информуцию которая находится в самом окне "Найти": Книга, Лист, Имя, Ячейка, значение, Формула...


Кроме того, я ищу совпадения в нескольких листах а он не выделяет диапазоны в разных листах :)
...
Рейтинг: 0 / 0
05.04.2007, 13:36:58
| Ответить | Цитировать | Написать  
Найти - заменить
    #34440412
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Намёк:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Кнопка28_Щелкнуть()
With ActiveWorkbook.Worksheets( 1 ).Columns( 1 )
Set C = .Find("март", LookIn:=xlValues, LookAt:=xlWhole)
  If Not C Is Nothing Then
     firstAddress = C.Address
    Do
    If hhh = "" Then
    hhh = "Столбец-" & C.Column & "Строка-" & C.Row
    Else
    hhh = hhh & ", " & "Столбец-" & C.Column & "Строка-" & C.Row
    End If
       Set C = .FindNext(C)
      Loop While Not C Is Nothing And C.Address <> firstAddress
Else
MsgBox "Проставь названия месяцов"
End If

MsgBox hhh
End With
End Sub


а дальше - сам....
...
Рейтинг: 0 / 0
05.04.2007, 13:53:04
| Ответить | Цитировать | Написать  
Найти - заменить
    #34440488
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Сергей06 DeggasadЧтобы выделить све значения в окне поиска, после прекращения поиска нажми <Ctrl> + <A>
Спасибо за ответы!
Я наверное не правильно выразился :(
Мне нужно скопировать информуцию которая находится в самом окне "Найти": Книга, Лист, Имя, Ячейка, значение, Формула...


Кроме того, я ищу совпадения в нескольких листах а он не выделяет диапазоны в разных листах :)


Ну тогда осуществляешь поск макросом и для каждой найденной ячейки смотришь имя активной книги. Имя листа, формулы, значение и всё что нужно. Всю необходимую информацию собирашь там где нужно и опля...
...
Рейтинг: 0 / 0
05.04.2007, 14:10:30
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти - заменить
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34440488&tid=2183186]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 87ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 245ms
total:  443ms
созд. / загр.: 443ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]