Home Excel - Dicas Microsoft Excel VBA Excel VBA - Msgbox e InputBox Excel planilha vba mensagem calcular restante excedente

Excel planilha vba mensagem calcular restante excedente

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), emite uma mensagem temporária, 2 segundos , mostrando o cálculo de margens a partir da célula A2, quando voce digitar mais alguma coisa em na célula(A2) e executar o macro, será emitido uma mensagem temporária com o cálculo da margem, se caso passar da medida da margem, a mensagem será de alerta, mostrando o valor que passou da medida da margem

Sub Calculando_margem()
vLinha = 2
vColuna = 1

While Cells(vLinha, vColuna) <> Empty
vSomaDasColunas = vSomaDasColunas + Cells(vLinha, vColuna).ColumnWidth
vColuna = vColuna + 1
Wend

If vSomaDasColunas > 146 Then
CreateObject("Wscript.shell").Popup "Margem Ultrapassada : [ " & vSomaDasColunas - 146 & " ]", 1, "Calculando Margem Excedente", vbCritical
Else
CreateObject("Wscript.shell").Popup "Ok! Dentro da Margem - Resta : [ " & 146 - vSomaDasColunas & " ]", 1, " Calculando Margem Excedente", vbInformation
End If

End Sub

'Esse procedimento é para ajudar no teste, quando digtar qualquer coisa na Celula(A2), será recalculado o tamanho restante da página. caso passe da medida, também vai retornar o valor que passou da medida. Evento change ocorre ao digitar na folha de planilha.
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A:A").AutoFit
End Sub



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



Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba margem calcular restante excedente (69.63 KB)

Última atualização em Qua, 03 de Outubro de 2012 15:04  

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4022
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30545
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17751
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440580
Aprenda MS Excel VBA

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