Calendar

23/12/2003 - 22:04 por Andrés Farias | Informe spam
Menu Insertar > Objeto > Control calendar ver xx
Muy bonito, pero ¿sirve para algo? ¿como se puede aplicar funcionalididad a
ciertos días para que ejecuten "algo" al momento de seleccionarlos?
Tengo algunos libros que trabajan con muchas fechas y me gustaría
incorporarlo en ellos, pero no se como hacerlo.

Gracias

Andrés Farias.cl

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
23/12/2003 - 22:24 | Informe spam
Claro que sirve para algo. Puedes usar los eventos del calendario para hacer cosas. Por ejemplo, pega lo siguiente en el módulo de la hoja que tiene el calendario (click derecho sobre su etiqueta->Ver código):

Private Sub Calendar1_Click()
If Calendar1.Value = DateValue("31-12-2003") Then MsgBox "Feliz año 2004"
End Sub

Private Sub Calendar1_NewMonth()
MsgBox "Has cambiado de mes"
End Sub

Private Sub Calendar1_NewYear()
MsgBox "Has cambiado de año"
End Sub

Y luego haz algunas pruebas. Si seleccionas el día 31/12/2003, el calendario te deseará feliz año 2004 :-)
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Andrés Farias" <andresfariasARROBAmsnPUNTOcom> escribió en el mensaje news:
Menu Insertar > Objeto > Control calendar ver xx
Muy bonito, pero ¿sirve para algo? ¿como se puede aplicar funcionalididad a
ciertos días para que ejecuten "algo" al momento de seleccionarlos?
Tengo algunos libros que trabajan con muchas fechas y me gustaría
incorporarlo en ellos, pero no se como hacerlo.

Gracias

Andrés Farias.cl


Respuesta Responder a este mensaje
#2 Andrés Farias
24/12/2003 - 13:12 | Informe spam
Gracias Fernado por tu ayuda. Trabajaré los ejemplos después de las fiestas
;-)
Felicidades

Andrés Farias.cl


"Fernando Arroyo" escribió en el mensaje
news:e$
Claro que sirve para algo. Puedes usar los eventos del calendario para hacer
cosas. Por ejemplo, pega lo siguiente en el módulo de la hoja que tiene el
calendario (click derecho sobre su etiqueta->Ver código):

Private Sub Calendar1_Click()
If Calendar1.Value = DateValue("31-12-2003") Then MsgBox "Feliz año
2004"
End Sub

Private Sub Calendar1_NewMonth()
MsgBox "Has cambiado de mes"
End Sub

Private Sub Calendar1_NewYear()
MsgBox "Has cambiado de año"
End Sub

Y luego haz algunas pruebas. Si seleccionas el día 31/12/2003, el calendario
te deseará feliz año 2004 :-)
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Andrés Farias" <andresfariasARROBAmsnPUNTOcom> escribió en el mensaje
news:
Menu Insertar > Objeto > Control calendar ver xx
Muy bonito, pero ¿sirve para algo? ¿como se puede aplicar funcionalididad


a
ciertos días para que ejecuten "algo" al momento de seleccionarlos?
Tengo algunos libros que trabajan con muchas fechas y me gustaría
incorporarlo en ellos, pero no se como hacerlo.

Gracias

Andrés Farias.cl


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida