Dicas: Macros para Excel - Parte 1

Dicas de Macros para Excel - Parte 1

Esta matéria tem por objetivo reunir alguns pequenos códigos (macros) para consultas rápidas sempre que necessário.

Muitas vezes estamos construindo uma solução e precisamos implementar algo que não sabemos ou lembramos. Daí a necessidade de termos em algum lugar um resumo ou conjunto
de dicas.

Impedindo Fechar pelo botão [X]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Evita que o usuário feche a tela no 'x' na tela If CloseMode = vbFormControlMenu Then MsgBox "Use o Botão Fechar!!!" 'Esta linha é opcional Cancel = True End If End Sub

Abrindo uma planilha através de uma Macro 

Sub nome_da_macro() Workbooks.Open FileName:="c:\pasta1.xls" End Sub

Acionar a Calculadora do Windows

Sub nome_da_macro() Application.ActivateMicrosoftApp Index:=0 End Sub

Fechando o UserForm com a Tecla ESC

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 27 Then Unload Me End If End Sub

Mascara no Textbox - Exemplo para Horas

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Textbox1.MaxLength = 5 If Len(Textbox1) = 2 Then _ Textbox1.Text = Textbox1.Text & ":" SendKeys "{End}", True End Sub

Em breve mais dicas de macros para Excel.

Confira também: Dicas de Macros para Excel - Parte 2

Compartilhe com seus amigos ....
Consultor e Professor Ivair Claudio Ferrari