| Descricao: |
 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)
|