Dicas: Macros para Excel - Parte 2

Dicas de Macros para Excel - Parte 2

Saber utilizar macros no Excel em nosso dia-a-dia realmente pode fazer a diferença, principalmente para tarefas rotineira. Com as macros podemos agilizar a realização de tarefas que tomam em muito nosso precioso tempo.

Dicas sobre pequenos códigos (macros) sempre são bem vindas. Esta matéria apresenta mais alguns códigos para uma consulta rápida.

Ocultar o Microsoft Excel

Sub Exibir_Excel() Application.Visible = False End Sub

Exibir o Microsoft Excel

Sub Exibir_Excel() Application.Visible = True End Sub

Inserir uma planilha após a última 

Sub Inserir_Plan() Worksheets.Add. Move After:=Worksheets(Worksheets.Count) End Sub

Exibir todas as planilhas em uma pasta de trabalho 

Private Sub exibir_plans() For i = 1 To Sheets.Count Sheets(i).Visible = True Next End Sub

Executar um Formulário

Sub Executar_Formulario() Nome_do_Formulario.Show End Sub

Fechar um Formulário

Sub Fechar_Formulario() Unload Nome_do_Formulario End Sub

Ocultar um Formulário

Sub Ocultar_Formulario() Nome_do_Formulario.Hide End Sub

Não permitir a digitação de texto em um TextBox

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub

Máscara no TextBox - Exemplo para Data

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox1.MaxLength = 10 If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then 'MsgBox "Digite somente números.", vbCritical, "Informação" KeyAscii = 0 Else If Len(TextBox1) = 2 Then TextBox1.Text = TextBox1 & "/" End If If Len(TextBox1) = 5 Then TextBox1.Text = TextBox1 & "/" End If End If End Sub

TextBox - Data atual, avançar ou retroceder 01 dia

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If vbKeyH = KeyCode Then TextBox1 = Format(TextBox1, "dd/mm/yyyy") ElseIf vbKeyAdd = KeyCode Then If TextBox1 = "" Then TextBox1 = Format(Date, "dd/mm/yyyy") TextBox1 = Format((FormatNumber(cdData, 0) + 1), "dd/mm/yyyy") ElseIf vbKeySubtract = KeyCode Then If TextBox1 = "" Then TextBox1 = Format(Date, "dd/mm/yyyy") TextBox1 = Format((FormatNumber(TextBox1, 0) - 1), "dd/mm/yyyy") End If End Sub

Observação:

• Para a data atual pressione a tecla 'h'
• Para avançar um dia pressione a tecla '+'
• Para retroceder um dia pressione a tecla '-'

Confira também: Dicas de Macros para Excel - Extraindo dados

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