Excel VBA - Erros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

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

    popular!
    Adicionado em: 23/05/2012
    Modificado em: 23/05/2012
    Tamanho: Vazio
    Downloads: 1536

    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)

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    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