Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel и Cells.Find / 18 сообщений из 18, страница 1 из 1
14.07.2005, 10:58
    #33165282
Loll
Loll
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
Есть задача, найти все ячейки содержащие определенный текст выделить их жирным шрифтом. Вот что на данный момент я смогла написать...

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

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

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

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

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

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

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

On Error Resume Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2005, 14:25
    #33166049
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
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
    #33166061
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
Вернее....
Скопируй енто и поставь в цикл и в выборку...
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, 19:01
    #33167050
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
LollЗдесь ты обзываешь/объявляешь переменно(так кажется) ячейку то есть присваеваешь ей имя "R", но мне этого не надо, то есть
If Not R is Nothing then
надо заменить еа что-то без "R"
Абослютная глупость.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
20.01.2011, 14:09
    #37069134
john161
john161
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
АПомогите
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:19
    #37069167
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
.offset(0,2).activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2011, 22:05
    #37074162
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel и Cells.Find
Модератор:
john161,
в следующий раз открывайте новый топик.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel и Cells.Find / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 912ms
Закрыть
start [/forum/search_topic.php?author=AVERAGE&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 16ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 164ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 646ms
total:  912ms
x
x
Закрыть


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