AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / computer / Perguntas / 1498978
Accepted
BruceWayne
BruceWayne
Asked: 2019-11-05 11:10:35 +0800 CST2019-11-05 11:10:35 +0800 CST 2019-11-05 11:10:35 +0800 CST

Depuração VBA - percorre o programa principal, mas executa rotinas chamadas a partir dele?

  • 772

Digamos que eu tenha uma grande rotina primária, que faz muitas coisas e chama vários outros programas.

Ao depurar, passo pelo meu programa principal com F8para que eu possa ver linha por linha o que está acontecendo.

No entanto, quando faço isso, todas as rotinas que chamo desse sub principal também são executadas. Em vez de rolar para a rotina chamada End Sube colocar um intervalo, existe uma maneira de fazer com que o VBA apenas execute essa rotina, mas pare quando eu voltar ao meu programa principal?

Atualmente, tenho duas maneiras de fazer isso. Adiciono uma quebra na linha após chamar uma sub, na rotina PRINCIPAL - ou - adiciono uma quebra na End Sublinha da rotina chamada.

Por exemplo,

Sub main_program()
Dim rng As Range
Set rng = Range("A1:Z1000")

do_things rng

Dim cel As Range
For Each cel In rng.SpecialCells(xlCellTypeBlanks)
    Debug.Print cel.Offset(1, 0).Value
Next cel
End Sub

Sub do_things(rng As Range)
Dim cel As Range
For Each cel In rng
    If cel.Value <> "something" Then
        cel.Font.Bold = True
    End If
Next cel
End Sub

Portanto, ao percorrer meu programa principal linha por linha, gostaria de poder executá- do_thingslo sem precisar interromper For Each cel in rng..., ou o End Sub.

Eu acho que uma solução é ter o VBA automaticamente breakquando atinge uma End Sublinha ou algo assim. Estou aberto a ideias, pesquisei e não consigo encontrar nada além das soluções atuais que mencionei acima.

(Desculpe se o título é um pouco desajeitado, não consegui pensar em uma maneira melhor de expressá-lo - fique à vontade para editar).

microsoft-excel vba
  • 1 1 respostas
  • 549 Views

1 respostas

  • Voted
  1. Best Answer
    BruceWayne
    2019-11-05T11:19:14+08:002019-11-05T11:19:14+08:00

    Existe - embora possa não ser óbvio à primeira vista.

    Quando estiver nessa sub-rotina (embora funcione em qualquer rotina), vá para Debug --> Step Out( CTRL+SHIFT+F8).

    Isso realmente concluirá essa rotina e, em seguida, irá para a próxima linha no outro código, se aplicável. (Na primeira leitura, presumi que simplesmente parava aquela rotina na linha atual e voltaria para a rotina que a chamou).

    Por exemplo:

    Sub main_program()
    Dim rng As Range
    Set rng = Range("A1:B10")
    
    do_things rng
    
    Dim cel As Range
    For Each cel In rng.SpecialCells(xlCellTypeBlanks)
        Debug.Print cel.Offset(1, 0).Value
    Next cel
    End Sub
    
    Sub do_things(rng As Range)
    Dim cel As Range
    For Each cel In rng
        cel.Value = "Test"
    Next cel
    For Each cel In rng
        If cel.Row Mod 2 = 1 Then cel.EntireRow.Font.Bold = True
    Next cel
    End Sub
    

    .gif acima:

    insira a descrição da imagem aqui

    Edit: Um excelente comentário que eu queria adicionar para tornar esta resposta mais completa. Por @MathieuGuindon, quando a do_things rnglinha é destacada, você pode fazer Debug --> Step Over( SHIFT+F8) e executar do_things completamente, e ela parará na próxima linha.

    • 9

relate perguntas

  • Como usar a função LENGTH do Excel para uma coluna inteira?

  • Matriz do Excel (2 variáveis)

  • como abrir um arquivo de escritório do WSL

  • VBA para renomear planilha com base no nome do arquivo

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    O visualizador de fotos do Windows não pode ser executado porque não há memória suficiente?

    • 5 respostas
  • Marko Smith

    Como faço para ativar o WindowsXP agora que o suporte acabou?

    • 6 respostas
  • Marko Smith

    Área de trabalho remota congelando intermitentemente

    • 7 respostas
  • Marko Smith

    Serviço do Windows 10 chamado AarSvc_70f961. O que é e como posso desativá-lo?

    • 2 respostas
  • Marko Smith

    O que significa ter uma máscara de sub-rede /32?

    • 6 respostas
  • Marko Smith

    Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows?

    • 1 respostas
  • Marko Smith

    O VirtualBox falha ao iniciar com VERR_NEM_VM_CREATE_FAILED

    • 8 respostas
  • Marko Smith

    Os aplicativos não aparecem nas configurações de privacidade da câmera e do microfone no MacBook

    • 5 respostas
  • Marko Smith

    ssl.SSLCertVerificationError: falha na verificação do certificado [SSL: CERTIFICATE_VERIFY_FAILED]: não foi possível obter o certificado do emissor local (_ssl.c:1056)

    • 4 respostas
  • Marko Smith

    Como posso saber em qual unidade o Windows está instalado?

    • 6 respostas
  • Martin Hope
    Albin Como faço para ativar o WindowsXP agora que o suporte acabou? 2019-11-18 03:50:17 +0800 CST
  • Martin Hope
    fixer1234 O "HTTPS Everywhere" ainda é relevante? 2019-10-27 18:06:25 +0800 CST
  • Martin Hope
    Kagaratsch O Windows 10 exclui muitos arquivos minúsculos muito lentamente. Algo pode ser feito para agilizar? 2019-09-23 06:05:43 +0800 CST
  • Martin Hope
    andre_ss6 Área de trabalho remota congelando intermitentemente 2019-09-11 12:56:40 +0800 CST
  • Martin Hope
    Riley Carney Por que colocar um ponto após o URL remove as informações de login? 2019-08-06 10:59:24 +0800 CST
  • Martin Hope
    zdimension Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows? 2019-08-04 06:39:57 +0800 CST
  • Martin Hope
    Inter Sys Como Ctrl+C e Ctrl+V funcionam? 2019-05-15 02:51:21 +0800 CST
  • Martin Hope
    jonsca Todos os meus complementos do Firefox foram desativados repentinamente, como posso reativá-los? 2019-05-04 17:58:52 +0800 CST
  • Martin Hope
    MCK É possível criar um código QR usando texto? 2019-04-02 06:32:14 +0800 CST
  • Martin Hope
    SoniEx2 Altere o nome da ramificação padrão do git init 2019-04-01 06:16:56 +0800 CST

Hot tag

windows-10 linux windows microsoft-excel networking ubuntu worksheet-function bash command-line hard-drive

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve