O ideal seria ter postado a rotina que está utilizando ou um modelo simplificado, então vamos pela suposição que ao exibir o Control Calendar quando clicar em algum dia o mesmo é lançado em uma celula na planiilha, e você quer alterar a formatação, então tente o seguinte :
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = Format(DateClicked, "dd/mm/yyyy")
Next cell
Unload Me
End Sub
Veja no exemplo anexo se atende :
A Pop-up Calendar for Excel
Adaptado do exemplo tirado do site abaixo, tem dois exemplos para baixar, um como arquivo outro ADD-IN.
http://fontstuff.com/vba/vbatut07.htm
Veja tambem :
Usando Controle MonthView
http://msdn.microsoft.com/en-us/library ... 56(v=vs.60).aspx
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/06/2013 5:09 pm