Пример использования Go To

Пример использования Go To

В следующем примере оператор Go To направляет поток программы из главной части процедуры к метке Special Value, если встречается необычное значение:

Function GoToExample (ItemNumber As Integer )

Dim intR As Integer

Select Case ItemNumber

Case 2412

Go To SpecialValue

Case Is < CutOffValue

DoSomething

Case >= CutOffValue

DoHardlyAnything

End Select

( операторы, выполняющие какое-то действия)

GoToExample = intR

Exit Function

SpecialVal ue:

DoSomethingSpecial

GoToExample = intR

End Function

Обратите внимание на формат метки SpecialValue - она размещается в своей отдельной строке и заканчивается двоеточием. Двоеточие здесь просто обязательно - при его отсутствии VBA непременно расстроится и выведет сообщение об ошибке.