Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Где правильнее поставить метку? / 7 сообщений из 7, страница 1 из 1
18.04.2007, 13:24:35
    #34469544
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
Доброго времени суток!
Вот кусок кода макроса, где я проверяю значение в ячейке на наличие
знака "<". Если этот знак встречается, то нужно переходить к след ячейке.
Как правильнее поставить метку - перед NEXT или перед END IF?
Работает в обоих случаях.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set rng = Range("D15:D30")
    For Each cel In rng
        If cel.Value Like "*<*" Then
            GoTo metka1
        Else
        ...
        ... 
       End If
metka1:    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 13:56:42
    #34469683
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
VolodyaДоброго времени суток!
Вот кусок кода макроса, где я проверяю значение в ячейке на наличие
знака "<". Если этот знак встречается, то нужно переходить к след ячейке.
Как правильнее поставить метку - перед NEXT или перед END IF?
Работает в обоих случаях.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set rng = Range("D15:D30")
    For Each cel In rng
        If cel.Value Like "*<*" Then
            GoTo metka1
        Else
        ...
        ... 
       End If
metka1:    Next



Думаю так, метками без необходимости наверное лучше не пользоваться!

Код: plaintext
1.
2.
3.
4.
5.
  Set rng = Range("D15:D30")
    For Each cel In rng
      If Not (cel.Value Like "*<*") Then
       cel.Value = "!"
      End If
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 13:58:25
    #34469687
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
Код: plaintext
cel.Value = "!"
На эту строку не обращать внимание, там твой текст

Код: plaintext
1.
2.
3.
4.
5.
  Set rng = Range("D15:D30")
    For Each cel In rng
      If Not (cel.Value Like "*<*") Then
       ...
      End If
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 13:58:50
    #34469690
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
Нафиг ГОУТУ!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub dd()
Set rng = Range("A1:A30")
    For Each cel In rng
        If (cel.Value Like "*<*") = True Then
            'делай с ней что хочешь
        End If
    Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 14:03:49
    #34469716
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
А если уж ответить на вопрос, то правильно ставить метку после конструкции IF - ELSE - ENDIF, т.е. перед NEXT.

За Deggasad (ом) как всегда не поспеть... ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 14:21:46
    #34469780
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 14:22:29
    #34469784
asta97
asta97
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где правильнее поставить метку?
авторЗа Deggasad (ом) как всегда не поспеть... ;-)Это точно.
А метки в основном используются для обработки ошибок.
Стандартный пример из хэлпа
Sub test()
On Error GoTo ErrorHandler

....код

Exit Sub
ErrorHandler:
Dim strError As String
Dim errLoop As Error
For Each errLoop In Errors
With errLoop
strError = _
"Error #" & .Number & vbCr
strError = strError & _
" " & .Description & vbCr
strError = strError & _
" (Source: " & .Source & ")" & vbCr
strError = strError & _
"Press F1 to see topic " & .HelpContext & vbCr
strError = strError & _
" in the file " & .HelpFile & "."
End With
MsgBox strError
Next

Resume Next


End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Где правильнее поставить метку? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 339ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183113]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 211ms
total:  339ms
x
x
Закрыть


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