Controllo calendario

Hai un problema con Excel?

Nuova discussione

Controllo calendario
di Frank (utente non iscritto) data: 03/02/2011
Ciao, esiste un modo per cui il controllo calendario appaia solo nel momento in cui seleziono la cella ad esso collegata?
grazie
di Isy (utente non iscritto) data: 03/02/2011
Ciao

carica con excel il file: calendar.xla

dopodichè con click destro avrai menu data

eventualmente si può anche modificare il codice
di Frank (utente non iscritto) data: 07/02/2011
Ma dove lo trovo? io non ce l'ho!
di Frank (utente non iscritto) data: 07/02/2011
...ok, l'ho trovato e così già è un passo avanti, grazie.
ma invece fare in modo, come dicevo, che quando clicco su una cella mi appaia automaticamente il controllo calendario? la mia fantasia chiede troppo?
di Ricky53 (utente non iscritto) data: 07/02/2011
Ciao,
copia questo codice nel foglio ove hai il calendario.
io ho scelto la cella "a1" per attivare/disattivare il calendario il cui nome è "calendar1"

adatta in base alla tua situazione
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Calendar1.Visible = True Else Calendar1.Visible = False End If End Sub
di Frank (utente non iscritto) data: 08/02/2011
Grandioso! ma allora approfitto e vado oltre, perchè mi fermo al passo successivo:
in realtà ho due celle data in cui vorrei che apparissero i controlli calendario, ma se copio due volte la macro che mi hai suggerito mi viene fuori, sulla seconda, l'errore "rilevato nome non univoco".
che fare...?

di Baz (utente non iscritto) data: 08/02/2011
Il controllo è sia per la cella a1 che b1

vedi se ti va bene

ciao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
        calendar1.Visible = True
    Else
        calendar1.Visible = False
    End If
End Sub

di Frank (utente non iscritto) data: 09/02/2011
Purtroppo non ci siamo ancora perchè così il riferimento rimane a calendar1 e quindi la data viene inserita nella stessa cella; in realtà io
ho bisogno di inserire nello stesso foglio le date "dal" e "al" per cui devo avere due controlli calendari che facciano riferimento a due celle diverse.

di Baz (utente non iscritto) data: 09/02/2011
Mmmm ... adesso hai spiegato meglio!!
e speriamo sia tutto.

a questo punto metti n°2 calendar, uno impostato dalla cella a1 e l'altro dalla cella b1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Calendar1.Visible = True
        Calendar2.Visible = False
    ElseIf Target.Address = "$B$1" Then
        Calendar1.Visible = False
        Calendar2.Visible = True
    Else
        Calendar1.Visible = False
        Calendar2.Visible = False
    End If
End Sub

di Frank (utente non iscritto) data: 09/02/2011
Siiiiiiiiiiii!!!!!! grazie!!!!!!!!
di Frank (utente non iscritto) data: 09/02/2011
... abbiate pazienza, è venuto fuori un altro problema: sul mio pc funziona perfettamente ma quando prova ad aprirlo - in rete - il mio collega, viene fuori il messaggio di errore: "impossibile trovare il progetto o la libreria". cosa manca sul suo pc?
di Baz (utente non iscritto) data: 10/02/2011
Provo andare a memoria.

prova controlare nel tuo editor di vba -> strumenti -> riferimenti
e paragonarlo con quello del tuo collega, a lui dovrebbe mancare il controllo del calendario

Vuoi Approfondire?