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
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 08/07/2016 7:46 am