powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Где правильнее поставить метку?
7 сообщений из 7, страница 1 из 1
Где правильнее поставить метку?
    #34469544
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
Где правильнее поставить метку?
    #34469683
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
Где правильнее поставить метку?
    #34469687
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
Где правильнее поставить метку?
    #34469690
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
Где правильнее поставить метку?
    #34469716
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если уж ответить на вопрос, то правильно ставить метку после конструкции IF - ELSE - ENDIF, т.е. перед NEXT.

За Deggasad (ом) как всегда не поспеть... ;-)
...
Рейтинг: 0 / 0
Где правильнее поставить метку?
    #34469780
Volodya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!
...
Рейтинг: 0 / 0
Где правильнее поставить метку?
    #34469784
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
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Где правильнее поставить метку?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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