Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка условия присутствия данных / 12 сообщений из 12, страница 1 из 1
31.12.2010, 08:48
    #37043421
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Что-то не пойму - на втором круге выдает ошибку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = ActiveCell.Row
f =  1 
l: p = Cells(i,  4 )
   pp = Cells(i,  4 ).Address
   Cells(i,  4 ).Select
    Selection.AutoFilter Field:=Cells(i,  4 ).Column -  1 , Criteria1:=p
    Columns("B:B").Select
    On Error GoTo l1
     Selection.Find(What:="да").Activate
    i = i +  1 
GoTo l
l1:  i = i +  1 
e = Columns("B:B").Count
   If e <=  1  Then GoTo l
End Sub
ошибка идет на строке
Код: plaintext
Selection.Find(What:="да").Activate
как буд-то должно быть с "Set" , но я раньше делал без Set и ведь работало....
Что не так??

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

Код: plaintext
 P.S.Чтобы наступила смерть - необходима жизненная сила !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 09:26
    #37043437
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
все оч просто
если .Find не нашел указанного паттерна, он возвращает Nothing
а нельзя активировать то, чего нет!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 09:28
    #37043441
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
еще нюанс.
Возврат из процедуры обработки ошибки, обязательно должен заканчиваться Resume. Хорошо бы вообще переписать этот цикл без использования On Error
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 09:31
    #37043443
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Selection тоже не надо использовать

конструкции вида:
Код: plaintext
1.
Columns("B:B").Select
Selection.Find(What:="да").Activate

можно записывать так:
Код: plaintext
Columns("B:B").Find(What:="да").Activate

ЗЫ:
Сразу не заметил:
авторна втором круге выдает ошибку
дело именно в неправильной обработке On Error
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 09:38
    #37043446
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Shocker.Pro,

Код: plaintext
1.
2.
On Error GoTo служит критерием, не хочется двойной проверки типа:
 if Columns("B:B").Find(What:="да").Activate then.....
 if Columns("B:B").Find(What:=" ").Activate then.....
Но все равно, спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 10:06
    #37043462
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
SteplerOn Error GoTo служит критерием
критерием должен служить Nothing
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim s As Range
Set s = Columns("B:B").Find(What:="да")
If s Is Nothing Then
  MsgBox "Не найдено"
Else
  s.Activate
End If
Правда, для чего там Activate - тоже не ясно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 10:11
    #37043470
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Shocker.Pro,

Аctivate для действий в ячейках....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 10:13
    #37043471
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
SteplerАctivate для действий в ячейках....
Что за действия, которые нельзя сделать минуя Activate?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 10:39
    #37043498
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Shocker.Pro,

"да", это как пример.
Коды макроса гораздо сложнее, я выложил часть в качестве примера.
Активация нужна для последующей адресации и значения.
Исчо раз спасибо за советы - уже проблемму решил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 10:56
    #37043520
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
SteplerАктивация нужна для последующей адресации и значения.
Активация, а также работа с Select и Selection нужна только для того, чтобы выделить какую-то ячейку или область для пользователя то есть это условно последняя инфтрукция в программе. Для работы самой программы это все не нужно и даже вредно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 11:39
    #37043571
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
Shocker.Pro,

Да, но мне нада в процессе работы макроса дописовать данные в активные ячейки...
Исчо раз спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2010, 11:50
    #37043582
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка условия присутствия данных
SteplerДа, но мне нада в процессе работы макроса дописовать данные в активные ячейки...
Исчо раз спасибо
Не плодите сущностей, брейтесь Оккамом.
Вы уверены, что вам надо дописывать данные в АКТИВНЫЕ ячейки? Может быть ПРОСТО в ячейки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка условия присутствия данных / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 168ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2159105]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 16ms
total:  168ms
x
x
Закрыть


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