calendario in una cella

Hai un problema con Excel?

Nuova discussione

calendario in una cella
di Ckaos (utente non iscritto) data: 23/10/2014 12:21:34
Salve ho un problema che non riesco a risolvere con il calendario su excel 2003, provo ad esporre il problema
Ho un intervallo di celle dalla A3:A52, dove si inseriscono delle date, e possibile appena si seleziona la cella far apparire il calendario e scegliere la data da inserire nella cella selezionata?
Io ci sono riuscito solo con una cella, c'è qualcuno che mi può spiegare come risolvere il problema?
Un altro problema è che nel calendario resta selezionato il giorno, il mese, e l'anno selezionato, e possibile quando si riapre il calendario posizionarlo sul mese, anno, giorno attuale?
Allego il codice e il file realizzato.
oltre al calendario allegato al file ci sono altri più carini?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Then
    Calendar1.Visible = True
        
        'Cancel = True
    Else
        Calendar1.Visible = False
    End If
End Sub

Private Sub Calendar1_Click()
'TextBox1.Value = Calendar1.Value
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

di Arturo (utente non iscritto) data: 23/10/2014 13:45:20
Allegato, dovrebbe funzionare anche per 2003
di Ckaos (utente non iscritto) data: 23/10/2014 15:52:44
ciao Arturo, ho scaricato il file da te modificato ma nel mio pc non funziona, quando clikko con il tasto destro per scegliere il calendario si apre però non sono visibili i giorni il calendario è tutto nero.
un altra cosa non sarebbe possibile attivare la cella appena selezionata come stavo facendo io? per mè sarebbe più funzionale! Grazie
di Ckaos (utente non iscritto) data: 23/10/2014 18:08:54
Cia qualcuno sa come posso risolvere il problema del calendario in una cella?
E' possibile modificare il codice da me allegato e farlo dunzionare nelle celle come da file allegato?

di Arturo (utente non iscritto) data: 24/10/2014 12:58:20
Pensavo fosse la versione 2003, credo invece a qualche libreria che non conosco.
Se qualcuno puoi controllare ...Grazie

Questo il codice da mettere nel Tuo allegato

Dim x As Long, Y As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Y = ActiveCell.Column
x = ActiveCell.Row
    If Y = 1 Then
        Calendar1 = Date
        Calendar1.Visible = True
    End If
End Sub
Private Sub Calendar1_Click()
Cells(x, Y) = Calendar1.Value
Calendar1.Visible = False
End Sub

Vuoi Approfondire?