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