Desenvolvimento, Excel, Microsoft Office, VBA

VBA – Mostrando uma mensagem durante o cálculo do Excel

A pergunta surgiu em um dós fóruns de Excel do qual participo. Das soluções com as quais me deparei, essa foi a mais interessante e limpa. Siga os seguintes passos:

Na planilha em que será avaliada para cálculo, abra o código VBA da planilha e coloque o seguinte código

Private Sub Worksheet_Calculate()
	UserForm1.Show
End Sub

Crie um novo UserForm chamado UserForm1 e adicione este código ao UserForm:

Private Sub UserForm_Activate()
	Call WaitTimer
End Sub

Crie um novo Módulo VBA e adicione o seguinte código:

Sub WaitTimer()
	If Application.CalculationState <> xlDone Then
		Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
		Procedure:="WaitTimer", Schedule:=True
	Else
		Unload UserForm1
	End If
End Sub

Essas e algumas outras podem ser vistas na seguinte referência:

http://www.eggheadcafe.com/software/aspnet/35770319/vba-message-box-to-inform.aspx

Bom proveito!

Comentários

comentários