ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel и Cells.Find
18 сообщений из 18, страница 1 из 1
Exel и Cells.Find
    #33165282
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Есть задача, найти все ячейки содержащие определенный текст выделить их жирным шрифтом. Вот что на данный момент я смогла написать...

Cells.Find(What:="Текст для поиска", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Font.Bold = True

Проблема в том, что текст может и не найтись - так вот вопрос как сделать чтобы при отсутствии заданного текста выполнялся поиск следующего...
...
Рейтинг: 0 / 0
14.07.2005, 10:58
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165293
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Да.... и еще после редактирования ячейки надо над ней вставить целую строку, то есть не одну ячейку со сдвигом вниз, а строку со сдвигом вниз... Помогите плиз!
...
Рейтинг: 0 / 0
14.07.2005, 11:01
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165332
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Dim R as Range
Set R= Cells.Find(What:="Текст для поиска", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
If Not R is Nothing then
R.Font.Bold = True
R.Rows.Insert xlShiftDown
End If
Для дальнейшего поиска исполузуйте cells.FindNext

...
Рейтинг: 0 / 0
14.07.2005, 11:13
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165382
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Здесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"
...
Рейтинг: 0 / 0
14.07.2005, 11:30
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165463
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Мона просто: On Error Resume Next.....
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
14.07.2005, 11:55
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165490
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Супер, марси...
Но все еще трабл....

Cells.Find(What:="текст для поиска", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
On Error Resume Next
Selection.Font.Bold = True
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste

Cells.Find(What:="текст для поиска2", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Font.Bold = True
On Error Resume Next
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
Selection.EntireRow.Insert

Так вот нужно чтобы Selection.EntireRow.Insert не выполнялось если текст не найден...
...
Рейтинг: 0 / 0
14.07.2005, 12:01
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165602
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Тоды On Error GoTo V где "V" - метка, которыю нада ставить (например, сюды: V:Cells.Find(What:="текст для поиска2", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _.....


Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
14.07.2005, 12:35
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165671
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"Для ответа на этот вопрос (и другие аналогичные), настоятельно рекомендуется RTFM под названием "Справка Microsoft Visual Basic".
Посмотрите Find Method и пример к нему.
...
Рейтинг: 0 / 0
14.07.2005, 12:52
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165687
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"

Этого я не понял. Чем вариант не подходит? Зачем и на что менять?
...
Рейтинг: 0 / 0
14.07.2005, 12:55
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165897
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
SteplerТоды [quot ]On Error GoTo V где "V" - метка, которыю нада ставить (например, сюды: V:Cells.Find(What:="текст для поиска2", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _.....

А не работает :( Ставлю метку он мне добавляет кстати после нее пробел и не работает :( с Resume Next работало, но все лишняя строка мешает :( Может где-то ошибка?
...
Рейтинг: 0 / 0
14.07.2005, 13:44
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165901
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Processor LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"Для ответа на этот вопрос (и другие аналогичные), настоятельно рекомендуется RTFM под названием "Справка Microsoft Visual Basic".
Посмотрите Find Method и пример к нему.

Я не сильна в английском:( и мне это надо буквально "на раз"... Напишу макрос и забуду.
...
Рейтинг: 0 / 0
14.07.2005, 13:45
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33165909
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Пользователь2 LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"

Этого я не понял. Чем вариант не подходит? Зачем и на что менять?

Вот на это например:

On Error Resume Next
...
Рейтинг: 0 / 0
14.07.2005, 13:46
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33166049
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
On Error GoTo Vasy
Cells.Find(What:="òåêñò äëÿ ïîèñêà", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Font.Bold = True
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
Vasy: MsgBox "Òåïåðÿ ïðîøëî ???"
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
14.07.2005, 14:25
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33166061
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Вернее....
Скопируй енто и поставь в цикл и в выборку...
On Error GoTo Vasy
Cells.Find(What:="Текст для поиска", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Font.Bold = True
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
Vasy: MsgBox "Теперя Нашло ???"
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
14.07.2005, 14:28
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #33167050
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"
Абослютная глупость.
...
Рейтинг: 0 / 0
14.07.2005, 19:01
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Exel и Cells.Find
    #37069134
john161
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
john161
Гость
АПомогите
Cells.Find(What:="john", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

Если найдет John то сделает ячейку активной, что нужно добавить в формулу, чтобы активной делать ячейку справа х2 от найденной?
...
Рейтинг: 0 / 0
20.01.2011, 14:09
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #37069167
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
.offset(0,2).activate
...
Рейтинг: 0 / 0
20.01.2011, 14:19
| Ответить | Цитировать | Написать  
Exel и Cells.Find
    #37074162
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Модератор:
john161,
в следующий раз открывайте новый топик.
...
Рейтинг: 0 / 0
23.01.2011, 22:05
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel и Cells.Find
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=140&tid=2177249]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 195ms
total:  346ms
созд. / загр.: 346ms
x
x
Закрыть


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