Discussione:
Calendario pop-up
(troppo vecchio per rispondere)
amb32326
2007-03-28 11:09:09 UTC
Permalink
Ciao a tutti,
ho un foglio excel dove volevom avere la possibilita di fare apparire
il calendario quando vado in 2 celle per inserire la data.

-Nell'archivio ho trovato il file

http://www.prodomosua.it/zips/calendarioRIP.xls
ma quando copio la macro nel mio file non funziona(forse perche non
trova il calendario). Ci sono altri soluzioni( altri file o qualcosa
da cambiare in questo file)
- si può fare in modo di fare aparire il calendario semplicemente
clickando (evitando di fare il CTRL+D) e solo nelle due celle e non in
tutte le celle?
- si puo avere sempre per prima il mese corrente?

Grazie,
Aurel
Norman Jones
2007-03-28 11:45:43 UTC
Permalink
Ciao Aurel,

'----------------

ho un foglio excel dove volevom avere la possibilita di fare apparire
il calendario quando vado in 2 celle per inserire la data.

-Nell'archivio ho trovato il file

http://www.prodomosua.it/zips/calendarioRIP.xls
ma quando copio la macro nel mio file non funziona(forse perche non
trova il calendario).
'----------------

Non c'e' alcun problema con il codice di Fernando.

Per quanto riguarda il calenadario, credo che questo controllo sia
disponibile con Access e, quindi, Office Professional,. Se non hai un
controllo calendario, potresti scaricarlo da:

Get the Calendar Control
http://www.fontstuff.com/vba/vbatut07.htm

Se vuoi scoprire il calenadario in risposta alla selezione di una o piu'
celle, potresti utilizzare l'evento WorkSheet_SelectionChange.

'-----------------
Ci sono altri soluzioni( altri file o qualcosa
da cambiare in questo file)
- si può fare in modo di fare aparire il calendario semplicemente
clickando (evitando di fare il CTRL+D) e solo nelle due celle e non in
tutte le celle?
- si puo avere sempre per prima il mese corrente?
'------------------

Per del codice di esempio, vedi Ron de Bruin a:

Use the Calendar control to fill in dates
http://www.rondebruin.nl/calendar.htm


---
Regards,
Norman
amb32326
2007-03-29 11:56:44 UTC
Permalink
Post by Norman Jones
Ciao Aurel,
'----------------
ho un foglio excel dove volevom avere la possibilita di fare apparire
il calendario quando vado in 2 celle per inserire la data.
-Nell'archivio ho trovato il file
http://www.prodomosua.it/zips/calendarioRIP.xls
ma quando copio la macro nel mio file non funziona(forse perche non
trova il calendario).
'----------------
Non c'e' alcun problema con il codice di Fernando.
Per quanto riguarda il calenadario, credo che questo controllo sia
disponibile con Access e, quindi, Office Professional,. Se non hai un
Get the Calendar Control
http://www.fontstuff.com/vba/vbatut07.htm
Se vuoi scoprire il calenadario in risposta alla selezione di una o piu'
celle, potresti utilizzare l'evento WorkSheet_SelectionChange.
'-----------------
Ci sono altri soluzioni( altri file o qualcosa
da cambiare in questo file)
- si può fare in modo di fare aparire il calendario semplicemente
clickando (evitando di fare il CTRL+D) e solo nelle due celle e non in
tutte le celle?
- si puo avere sempre per prima il mese corrente?
'------------------
Use the Calendar control to fill in dates
http://www.rondebruin.nl/calendar.htm
---
Regards,
Norman
amb32326
2007-03-29 12:01:18 UTC
Permalink
Grazie Norman,
tutto chiaro nel sito di Ron de Bruin.
Scusa ma l'evento WorkSheet_SelectionChange non so come scriverlo.
Ciao Aurel.
Norman Jones
2007-03-29 12:18:06 UTC
Permalink
Ciao Aurel,

'--------------
tutto chiaro nel sito di Ron de Bruin.
Scusa ma l'evento WorkSheet_SelectionChange non so come scriverlo.
'--------------

Hai un esempio nel codice suggerito da Ron de Bruin:

'-------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

'-------------

Per approfondire le routine di evento, apri un nuovo
thread o vedi Chip Pearson a:

Event Procedures
http://www.cpearson.com/excel/events.htm



---
Regards,
Norman

eliano
2007-03-28 14:04:04 UTC
Permalink
Post by amb32326
Ciao a tutti,
ho un foglio excel dove volevom avere la possibilita di fare apparire
il calendario quando vado in 2 celle per inserire la data.
-Nell'archivio ho trovato il file
http://www.prodomosua.it/zips/calendarioRIP.xls
ma quando copio la macro nel mio file non funziona(forse perche non
trova il calendario). Ci sono altri soluzioni( altri file o qualcosa
da cambiare in questo file)
- si può fare in modo di fare aparire il calendario semplicemente
clickando (evitando di fare il CTRL+D) e solo nelle due celle e non in
tutte le celle?
- si puo avere sempre per prima il mese corrente?
Grazie,
Aurel
Ciao Aurelio.
Oltre ai riferimenti di Norman (ciao), vedi se ti può interessare:
http://ennius.altervista.org/vba/vba139.php
Eliano
Loading...