Excel VBA - Erros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba calculos capacidade estouro vba Excel vba calculos capacidade estouro vba

    popular!
    Adicionado em: 23/05/2012
    Modificado em: 23/05/2012
    Tamanho: 92.05 KB
    Downloads: 1296

    Escola Saberexcel VBA Estudos® - Treinamento com macros, Fórmulas e Funções

    Esses macros do aplicativo Microsoft Excel VBA(Visual Basic Application), faz um cálculo baseado em um erro causado pelo VB,
    Observem abaixo o primeiro macro que retorna o erro, aproveitei, e inseri uma msgbox para retornar o tipo de erro e o helpcontext,
    Também, usei alguns shapes (ocultar) para o treinamento com vba, ao executar o macro, um shapes(Autoformas) irá mostrar o macro
    na tela em uma caixa de texto formatada. logo abaixo contém os macros que mostram e ocultam as autoformas(shapes). Espero que o exemplo possa lhe ser útil.
    Fique com Deus,
    Expedito Marcondes.
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    'esse macro retorna um erro de estouro
    Sub sbx_calculo_teste_erro_estouro()

    On Error Resume Next
    Resposta = (7 * 3600) + ((62 * 3600) / 100) 'estoura retorna erro
    'RETORNA A DESCRIÇÃO DO ERRO E BIBLIOTECA
    If Err.Number <> 0 Then
    Cells(1, 1).Value = "erro [ESTOURO-CALCULO]"
    MsgBox Err.Number & " " & Err.Description _
    & Chr(10) & "Helpcontext: " & Err.HelpContext _
    & Chr(10) & "Helpfile: " & Err.HelpFile _
    & Chr(10) & "BUSCA : " & Err.Source, vbCritical, "Excel VBA Estudos®"
    txt1_visible
    Exit Sub
    End If

    Cells(1, 1) = Resposta
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    'esses macro realiza o teste sem erro de estouro
    Sub sbx_calculo_teste_I()
    Resposta = (7 * 3600) + ((62 * CLng(3600)) / 100) 'realiza o calculo
    Cells(1, 1) = Resposta
    txt2_visible
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    'esses macro realiza o teste sem erro de estouro
    Sub sbx_calculo_teste_II()
    Resposta = (7 * CLng(3600)) + ((62 * CLng(3600)) / 100) 'realiza o caluclo nao estoura
    Cells(1, 1) = Resposta
    txt3_visible
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    'esses macro realiza o teste sem erro de estouro
    Sub sbx_calculo_teste_III()
    Resposta = (7 * CLng(3600)) + ((62 * CLng(3600)) / 100)
    Cells(1, 1) = Resposta
    txt4_visible
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    'esses macro realiza o teste sem erro de estouro
    Sub sbx_calculo_teste_IV()
    Const vBaseHoras = 60
    Cells(1, 1) = (7 * vBaseHoras ^ 2) + (62 * vBaseHoras ^ 2 / 100)
    txt5_visible
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub sbx_Limpar_teste()
    [A1].ClearContents
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Observem os macros para ocultar e ou mostrar determinados Shapes(Autoformas) desejados.
    '- veja no exemplo de planilha o exemplo, é muito útil.
    'Fiquem com Deus, --- Expedito Marcondes.

    Sub Oculta_Shapes()
    For i = 1 To 60
    On Error Resume Next
    With ActiveSheet
    .Shapes("saber" & i).Visible = False
    End With
    Next
    [A1].Select
    End Sub

    ' - - - - - - - - - - - - - - - -
    Sub txt1_visible()
    Oculta_Shapes
    Saber1.Shapes("saber1").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - -
    Sub txt2_visible()
    Oculta_Shapes
    Saber1.Shapes("saber2").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - -
    Sub txt3_visible()
    Oculta_Shapes
    Sheets("Calculo_sem_estouro").Shapes("saber3").Visible = True
    End Sub
    '...................'
    Sub txt4_visible()
    Oculta_Shapes
    Sheets("Calculo_sem_estouro").Shapes("saber4").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - -
    Sub txt5_visible()
    Oculta_Shapes
    Sheets("Calculo_sem_estouro").Shapes("saber5").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - -
    Sub txt6_visible()
    Oculta_Shapes
    Sheets("Calculo_sem_estouro").Shapes("saber6").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - -




    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




     
    (Aquira nossos produtos didáticos para treinamentos MS excel VBA)


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA