Home Excel - Dicas Microsoft Excel VBA Excel VBA - Erros Excel vba calculo capacidade estouro vba

Excel vba calculo capacidade estouro vba

E-mail Imprimir PDF

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  i
[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.




  Baixe o exemplo de planilha contendo os macros acima:
(Aquira nossos produtos didáticos para treinamentos MS excel VBA)
Excel vba calculos capacidade estouro vba (92.05 KB)

Última atualização em Qua, 23 de Maio de 2012 07:49  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

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