Como fazer uma userform profissional

Deixar seu arquivo Excel mais bonito não é meramente uma questão estética. Caprichando no visual seu arquivo fica mais fácil de ser utilizado e transmite muito mais confiança nos dados apresentados.

Neste artigo, foco em um ponto específico de arquivos em Excel, as userform, que são aquelas janelas que podemos montar e configurar da maneira que acharmos mais convenientes e que dão a nossa planilha uma cara de…. não-planilha, e mais de um programa de computador mesmo.

Outro artigo interessante sobre userforms que temos aqui no site é o de abrir uma Paleta de cores em userform.

Como seria uma Userform moderna?

A proposta aqui é puramente te mostrar formas de montar um userform com visual moderno, e que você possa aplicar essas ideais em seus próprios projetos, fazendo adaptações para o seu próprio gosto e necessidade.

Iremos sair de uma userform básica, feia, como essa:

Para um userform com uma cara totalmente profissional, como essa a seguir.

Diferenças entre as userforms acima

Vídeo

O conteúdo deste artigo é muito visual, já que se trata da estética das userforms, logo acredito que descrever os passos todos em texto ficará extremamente extenso e cansativo para o leitor, assim, segue abaixo o vídeo onde mostro a como sair de uma userform feia, para uma userform profissional.

Códigos

Todos os códigos mostrados no vídeo acima, estão aqui e separados conforme onde eles estavam no vídeo.

Código do Userform UF_Registros

Private Sub BT_Inativo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    BT_Inativo.Visible = False
End Sub

Private Sub BT_Ativo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    BT_Inativo.Visible = False
    Call AddCursor
End Sub

Private Sub CT_Preço_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 44, 48 To 57
            'Não faz nada, aceita a tecla
        Case Else
            KeyAscii = 0
    End Select
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    BT_Inativo.Visible = True
End Sub

Código Módulo1

Option Explicit

'Declaração de API
    Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

'Setar o Cursor
Function AddCursor()
    SetCursor LoadCursor(0, 32649)

'    Outros cursores do Windows
'    IDC_ARROW = 32512
'    IDC_IBEAM = 32513
'    IDC_WAIT = 32514
'    IDC_CROSS = 32515
'    IDC_UPARROW = 32516
'    IDC_SIZE = 32640
'    IDC_ICON = 32641
'    IDC_SIZENWSE = 32642
'    IDC_SIZENESW = 32643
'    IDC_SIZEWE = 32644
'    IDC_SIZENS = 32645
'    IDC_SIZEALL = 32646
'    IDC_NO = 32648
'    IDC_HAND = 32649
'    IDC_APPSTARTING = 32650
End Function

Pacote de imagens

No vídeo falo sobre um pacote de icones para download, você pode baixar o arquivo zipado abaixo, porém somente membro do canal têm acesso.

O pacote possui um total de 2019 imagens.