Nascondere il calendario



  • Nascondere il calendario
    di Franco o (utente non iscritto) data: 21/04/2012

    Ho inserito in un foglio di lavoro il controllo control calendar 12 (excel 2007) che mi inserisce la data cliccata in una cella.
    non riesco a scrivere una macro (che associerei poi ad un pulsante)che mi renda il calendario visibile (o invisibile).
    grazie in anticipo per l'aiuto che mi darete.
    franco



  • di Patel (utente non iscritto) data: 21/04/2012

    Lo sai fare manualmente ? se sì attiva il registratore macro, nascondi il calendario, fermi il registratore, associ la macro ad un pulsante ed hai finito.



  • di Franco o. (utente non iscritto) data: 21/04/2012

    Purtroppo non è così. questa è la prima osa che ho fatto ma avviato il generatore di macro viene registrata la selezione del calendario
    activesheet.shapes("calendar1").select ma non la successiva variazione della proprietà visible da false a true.
    grazie comunque.



  • di Patel (utente non iscritto) data: 21/04/2012

    Non posso provare perché non ce l'ho, ma puoi tentare con
    activesheet.shapes("calendar1").visible=false



  • di Luigi (utente non iscritto) data: 22/04/2012

    Crea un togglebutton (che consente di mettere due condizioni nel codice).
    dopo di ciò incolla questi codici
     
    Private Sub Calendar1_Click()
    Sheets(1).[A1] = Calendar1.Value   
    End Sub
    Private Sub ToggleButton1_Click()
        If ToggleButton1.Value = True Then
           
        ActiveSheet.Shapes("calendar1").Visible = False
        
        Else
        ActiveSheet.Shapes("calendar1").Visible = True
        
        End If
    End Sub
    



  • di Franco o. (utente non iscritto) data: 22/04/2012

    Risolto, grazie. in effetti sbagliavo la sintassi di visible.
    ciao, franco