Excel planilha vba mensagem calcular restante excedente

Sex, 06 de Maio de 2011 06:40 Expedito Marcondes
Imprimir

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)

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