Skip to main content
adicionou 12 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

##Exemplo

Um exemplo simples será demonstrado, com a seguinte árvore no VBA:

Árvore de Projeto VBA

Então, assume que toda a programação está na mesma Pasta de Trabalho.

No módulo1 haverá o Sub executar()

No módulo2 o seguinte código:

Sub teste1()
    MsgBox "1"
End Sub

E no módulo 3:

Sub teste2(text As String)
    MsgBox text
End Sub

Private Sub teste3()
    MsgBox "3"
End Sub

##Explicação

Ao executar com o seguinte código:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA ainda utiliza esta sintaxe

    teste2 "2"

    teste3
End Sub

Ocorrerá um erro em teste3, pois ele é uma Private Sub do módulo3.

Porém ao executar com:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA ainda utiliza esta sintaxe

    teste2 "2"
End Sub

O código funcionará corretamente, pois mesmo que teste1() e teste2() estejam em outros módulos, eles são declarados como Public.

Para rodar uma Private Sub de outro módulo, utilize:

Sub executar()
    teste1

    teste2 ("2")
    
    Application.Run "Módulo3.teste3"
End Sub

Portanto, é necessário chamar os Subs em um outro Sub para realizar isto.

Para um código mais avançado, refira a esta referência: Programming The VBA Editor. Em que você pode realizar ações dentro do Projeto VBA, podendo listar os Subs dos módulos e dar run.

##Exemplo

Um exemplo simples será demonstrado, com a seguinte árvore no VBA:

Árvore de Projeto VBA

Então, assume que toda a programação está na mesma Pasta de Trabalho.

No módulo1 haverá o Sub executar()

No módulo2 o seguinte código:

Sub teste1()
    MsgBox "1"
End Sub

E no módulo 3:

Sub teste2(text As String)
    MsgBox text
End Sub

Private Sub teste3()
    MsgBox "3"
End Sub

##Explicação

Ao executar com o seguinte código:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA utiliza esta sintaxe

    teste2 "2"

    teste3
End Sub

Ocorrerá um erro em teste3, pois ele é uma Private Sub do módulo3.

Porém ao executar com:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA utiliza esta sintaxe

    teste2 "2"
End Sub

O código funcionará corretamente, pois mesmo que teste1() e teste2() estejam em outros módulos, eles são declarados como Public.

Para rodar uma Private Sub de outro módulo, utilize:

Sub executar()
    teste1

    teste2 ("2")
    
    Application.Run "Módulo3.teste3"
End Sub

Portanto, é necessário chamar os Subs em um outro Sub para realizar isto.

Para um código mais avançado, refira a esta referência: Programming The VBA Editor. Em que você pode realizar ações dentro do Projeto VBA, podendo listar os Subs dos módulos e dar run.

##Exemplo

Um exemplo simples será demonstrado, com a seguinte árvore no VBA:

Árvore de Projeto VBA

Então, assume que toda a programação está na mesma Pasta de Trabalho.

No módulo1 haverá o Sub executar()

No módulo2 o seguinte código:

Sub teste1()
    MsgBox "1"
End Sub

E no módulo 3:

Sub teste2(text As String)
    MsgBox text
End Sub

Private Sub teste3()
    MsgBox "3"
End Sub

##Explicação

Ao executar com o seguinte código:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA ainda utiliza esta sintaxe

    teste2 "2"

    teste3
End Sub

Ocorrerá um erro em teste3, pois ele é uma Private Sub do módulo3.

Porém ao executar com:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA ainda utiliza esta sintaxe

    teste2 "2"
End Sub

O código funcionará corretamente, pois mesmo que teste1() e teste2() estejam em outros módulos, eles são declarados como Public.

Para rodar uma Private Sub de outro módulo, utilize:

Sub executar()
    teste1

    teste2 ("2")
    
    Application.Run "Módulo3.teste3"
End Sub

Portanto, é necessário chamar os Subs em um outro Sub para realizar isto.

Para um código mais avançado, refira a esta referência: Programming The VBA Editor. Em que você pode realizar ações dentro do Projeto VBA, podendo listar os Subs dos módulos e dar run.

Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

##Exemplo

Um exemplo simples será demonstrado, com a seguinte árvore no VBA:

Árvore de Projeto VBA

Então, assume que toda a programação está na mesma Pasta de Trabalho.

No módulo1 haverá o Sub executar()

No módulo2 o seguinte código:

Sub teste1()
    MsgBox "1"
End Sub

E no módulo 3:

Sub teste2(text As String)
    MsgBox text
End Sub

Private Sub teste3()
    MsgBox "3"
End Sub

##Explicação

Ao executar com o seguinte código:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA utiliza esta sintaxe

    teste2 "2"

    teste3
End Sub

Ocorrerá um erro em teste3, pois ele é uma Private Sub do módulo3.

Porém ao executar com:

Sub executar()
    Call teste1                                  'Não é necessário o Call, somente o VBA utiliza esta sintaxe

    teste2 "2"
End Sub

O código funcionará corretamente, pois mesmo que teste1() e teste2() estejam em outros módulos, eles são declarados como Public.

Para rodar uma Private Sub de outro módulo, utilize:

Sub executar()
    teste1

    teste2 ("2")
    
    Application.Run "Módulo3.teste3"
End Sub

Portanto, é necessário chamar os Subs em um outro Sub para realizar isto.

Para um código mais avançado, refira a esta referência: Programming The VBA Editor. Em que você pode realizar ações dentro do Projeto VBA, podendo listar os Subs dos módulos e dar run.