Compartilhar via

GoSub... Declaração de devolução

  • Artigo

Ramifica para e devolve de um subroutíne dentro de um procedimento.

Sintaxe

Linha GoSub
... linha
linha...
Devolver

O argumentode linha pode ser qualquer etiqueta de linha ou número de linha.

Comentários

Utilize GoSub e Return em qualquer lugar num procedimento, mas GoSub e a instrução Return correspondente têm de estar no mesmo procedimento. Uma subrreitina pode conter mais do que uma instrução Return , mas a primeira instrução Return encontrada faz com que o fluxo de execução volte à instrução imediatamente após a instrução GoSub executada mais recentemente.

Observação

Não pode introduzir ou sair de Subprocessos com o GoSub... Devolver.

Dica

A criação de procedimentos separados que pode chamar pode fornecer uma alternativa mais estruturada à utilização do GoSub... Devolver.

Exemplo

Este exemplo utiliza o GoSub para chamar uma subrresitina dentro de um subprocesso. A instrução Return faz com que a execução seja retomada na instrução imediatamente após a instrução GoSub . A instrução Exit Sub é utilizada para impedir que o controlo flua acidentalmente para a subrreplicação.

Sub GosubDemo() 
Dim Num 
' Solicit a number from the user. 
 Num = InputBox("Enter a positive number to be divided by 2.") 
' Only use routine if user enters a positive number. 
 If Num > 0 Then GoSub MyRoutine 
 Debug.Print Num 
 Exit Sub ' Use Exit to prevent an error. 
MyRoutine: 
 Num = Num/2 ' Perform the division. 
 Return ' Return control to statement. 
End Sub ' following the GoSub statement.

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.