calendario

hola, Roberto !

... es posible que en el control calendario se puedan pintar de colores diferentes los dias del mes
por ejemplo un lunes amarillo, otro verde, un miercoles azul, etc?
algo asi como lo que equivaldria al evento de dayrender de .net pero para hacerlo con vb en macros de excel?

[hasta donde se]... las propiedades de los controles son administradas por sus aplicaciones 'propietarias'...
[p.e.] en el caso del control calendar, sus propiedades las provee la libreria mscal.ocx...
y nunca he probado a 'manipularlas' de una manera tan... 'discrecional' :-(
[quizas] si comentas cual seria el uso o la funcionalidad que piensas poner a disposicion de los usuarios -?-
[probablemente] se podria 'puentear' con algunas alternativas [dependiendo de lo que no has comentado] ;)

si culalquier duda [o informacion adicional]... comentas ?
saludos,
hector.

[por cierto]... no se de donde 'colgaste' esta consulta a una respuesta +/- de julio de 2005 :))

Hola.
Me ha costado mucho hacerlo, pero al final lo he conseguido. Sin embargo,
quería preguntarte cómo permito que la celda se muestre inicialmente en
blanco, salvo que la haya cumplimentado posteriormente. No se si me explico,
necesito que la celda se me presente en blanco para poder rellenarla
posteriormente utilizando el calendario.
Muchas gracias

"Héctor Miguel" escribió:

hola, 'anonimo/a' !

> ... como desplegar un calendario para poder seleccionar fechas desde el

-> puedes incrustar un control DTPicker [Date&Time] o... un control Calendar...
puede ser 'directamente' en una hoja de calculo o... a traves de un formulario de usuario
-> [p.e. en la hoja]: [menu] insertar / objeto... o desde la barra de herramientas 'cuadro de controles' / mas controles...
control calendar x.x [segun la version de office] o...
Microsoft Date and Time Picker x.x [SPx] -segun numero de version y service-pack del archivo-
-> suponiendo que seleccionaste el control calendario [incrustado en la hoja]...
y deseas que se muestre SOLO si [en esa hoja] se selecciona de entre el rango 'A1:A5'...
y que el resultado de la seleccion se ponga en la celda 'activa'...
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Width + 5
Calendar1.Visible = Not Intersect(ActiveCell, Range("a1:a5")) Is Nothing
End Sub
Private Sub Calendar1_Click()
ActiveCell = CDate(Calendar1)
End Sub

si requieres ayuda adicional para usarlo [o el DTPicker] y/o a traves de formularios [o 'userforms']... comentas?
saludos,
hector.

p.d. el control DTPicker requiere que esta instalado y registrado...
-> el componente [+/- C:\Windows\System[32]\mscomct2.ocx]...
el control calendar requiere que este instalado y registrado...
-> el componente [C:\Archivos de programa\Microsoft Office x.0\Officexx\MSCal.ocx]