Notifications
Clear all

Calendário Excel

2 Posts
2 Usuários
0 Reactions
2,347 Visualizações
(@work10)
Posts: 0
New Member
Topic starter
 

Bom dia Galera.

Tenho uma planilha em que precisa colocar a data da movimentação, porém como é muita informação, gostaria de ter uma forma em que clico na opção DATA e apareça o calendário ao invés de eu precisar digitar seria estilo a Lista Suspensa.

Como faço isso no Excel ???

Obrigada !!!

 
Postado : 08/07/2016 6:54 am
(@issamu)
Posts: 0
New Member
 

Uma sugestão:
1) Instale o suplemento "WinDatePicker" em anexo, desenvolvido pelo Ron de Bruin, na pasta "C:Usersseu_usuárioAppDataRoamingMicrosoftAddIns" ou "C:Usersseu_usuárioAppDataRoamingMicrosoftSuplementos" dependendo da versao do Office.

2) Vá nas opções do Excel, e em Suplementos do Excel e habilite o suplemento "Excel for Windows Data Picker"

3) Agora você terá uma nova opção "Date Picker" ao clicar com o botão direito do mouse.

4) se desejar inclua o código abaixo para aparecer o date picker no duplo clique do mouse no intervalo desejado:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim TestWkbk As Workbook
    Dim obj As Object
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then 'Range("A1:A10") e o intervalo onde deseja por as datas
    Cancel = True

    If Val(Application.Version) >= 12 Then
        Set TestWkbk = Nothing
        On Error Resume Next
        Set TestWkbk = Workbooks("WinDatePicker.xlam")
        On Error GoTo 0
        If TestWkbk Is Nothing Then
            MsgBox "Sorry the Date Picker add-in is not open."
        Else
            Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj
        End If
    End If
End If
End Sub

Para mais informações acesse:

http://www.rondebruin.nl/win/addins/datepicker.htm

 
Postado : 08/07/2016 7:46 am