|
|
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
Доброго времени суток! Вот кусок кода макроса, где я проверяю значение в ячейке на наличие знака "<". Если этот знак встречается, то нужно переходить к след ячейке. Как правильнее поставить метку - перед NEXT или перед END IF? Работает в обоих случаях. Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 13:24:35 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
VolodyaДоброго времени суток! Вот кусок кода макроса, где я проверяю значение в ячейке на наличие знака "<". Если этот знак встречается, то нужно переходить к след ячейке. Как правильнее поставить метку - перед NEXT или перед END IF? Работает в обоих случаях. Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. Думаю так, метками без необходимости наверное лучше не пользоваться! Код: plaintext 1. 2. 3. 4. 5. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 13:56:42 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
Код: plaintext Код: plaintext 1. 2. 3. 4. 5. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 13:58:25 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
Нафиг ГОУТУ! Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 13:58:50 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
А если уж ответить на вопрос, то правильно ставить метку после конструкции IF - ELSE - ENDIF, т.е. перед NEXT. За Deggasad (ом) как всегда не поспеть... ;-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 14:03:49 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 14:21:46 |
|
||
|
Где правильнее поставить метку?
|
|||
|---|---|---|---|
|
#18+
авторЗа 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.04.2007, 14:22:29 |
|
||
|
|

start [/forum/topic.php?fid=61&gotonew=1&tid=2183113]: |
0ms |
get settings: |
9ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
60ms |
get topic data: |
14ms |
get first new msg: |
8ms |
get forum data: |
3ms |
get page messages: |
58ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 422ms |

| 0 / 0 |
