Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilhas vba margem calcular restante excedente

Excel planilhas vba margem 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)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 19:18  

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_counterHoje4873
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25074
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43262
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466091
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